C# と VB.NET の質問掲示板

■No42340 (nao さん) に返信

>現状デバックではできるもののWeb発行されたものをIEで表示させ
>ボタンを押すと前述したようなエラーが出てしまい
>例外の詳細: System.Data.OleDb.OleDbException: ファイルを作成できませんでした。

WebサーバーはIISでしょうか？
App_Data フォルダに書き込み権限を与えて、アップロードするファイルをApp_Dataフォルダに指定する
http://msdn.microsoft.com/ja-jp/library/445z2s49.aspx

データソースについても、App_Dataフォルダに書き換える。（とりあえずフォルダ先を同じにする）

>なので、デバック状況ではグリッドビューに表示ができるので、グリッドビューに表示されたものを
>for〜 nextでInsertすればいいのかなって思ってます。
>一括ではおそらく出来なさそうなので、グリッドビューのデータを1件ずつInsertさせようと思ってます。

例 ちなみに、下記のようにすると一括でINSERTが可能です。
strAccessSql = "INSERT INTO [" & strExcelSheetName & "$] " & _
               "SELECT * FROM TestTable2 " & _
               "IN '" & App.Path & "\testdb.mdb" & "' "
http://www.cocoaliz.com/asp.net/index/41/

■No42542 (nao さん) に返信
> サーバー名から書くよう変更したのですがそれでも駄目なようです。
> 他に書き方があるのでしょうか？

ファイルをサーバーにアップロードして
アップロードしたファイルを読み込むようにすると善いのではないでしょうか。

' サーバー側のアップロード先
Dim filePath As String = "c:\morio.xls"

' ファイルをアップロード
FileUpload1.SaveAs(filePath)

' 接続文字列を作成
Dim connectionString As String = excelConnectionString(filePath)


Function excelConnectionString(ByVal filePath As String) As String
    Dim builder As New OleDbConnectionStringBuilder()
    builder.Provider = "Microsoft.Jet.OLEDB.4.0"
    builder.DataSource = filePath
    builder("Extended Properties") = "Excel 8.0"
    Return builder.ConnectionString
End Function