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

■No42942 (nao さん) に返信
> ss = "SELECT * INTO test_naoa FROM OPENROWSET("'" & appfile "'", [Sheet1$])"
> と、しているのですが、Sheet1でもエラーメッセージ、appfileでもエラーとなってしまいます。

どのようなエラーなのでしょうか。


excel の DataTable を元に SQL Server への Insert クエリーを発行するという手もあります。

Public Sub insertFromExcel(ByVal excelTable As DataTable)
    Using connection As New SqlConnection(connectionString)
        Using insertCommand = New SqlCommand( _
            "INSERT INTO [namer] ( name ) VALUES( @name )", connection)

            Dim nameParameter As SqlParameter = _
                insertCommand.Parameters.Add("@name", SqlDbType.NVarChar)

            connection.Open()

            For Each excelRow As DataRow In excelTable.Rows
                nameParameter.Value = excelRow(0)
                insertCommand.ExecuteNonQuery()
            Next

            connection.Close()
        End Using
    End Using
End Sub

■No43045 (nao さん) に返信
> Usingっていうのはエラーにはなりませんでしたが、これってC#とかではなく？

VB.NET です。実行時に Try Finally に展開されます。
オブジェクトの破棄を保証するときに使います。

Visual Basic 言語リファレンス
    Using ステートメント (Visual Basic)
http://msdn.microsoft.com/ja-jp/library/htd05whh(VS.80).aspx

> DataTableにExcelファイルを読み込ませる方法がわかりません。

GridView に Excel のデータを表示する際、DataTable に読み込んでいるはずですので
それを利用すると善いかと思われます。
GridView に表示するところのコードをお教えいただけると具体的な助言
が出来るかもしれません。

■No43142 (nao さん) に返信
' データベースからデータを取得して DataTable に格納
da.Fill(ds, "Excel")

' GridView のデータソースに DataTable の DefaultView をセット
GridView1.DataSource = ds.Tables(0).DefaultView

ds.Tables(0) というのが Excel のデータが格納された DataTable です。
このデータを SQL Server にインサートすると善いのではないでしょうか。

.NET Framework クラス ライブラリ
    DbDataAdapter.Fill メソッド (DataSet, String)
http://msdn.microsoft.com/ja-jp/library/y4b211hz.aspx

> 因みに、このInsert文だと1つのセルのみのInsertになるのでしょうか？

その通りです。適宜修正が必要です。

.NET Framework クラス ライブラリ
    SqlCommand.Parameters プロパティ
http://msdn.microsoft.com/ja-jp/library/system.data.sqlclient.sqlcommand.parameters.aspx

■No43183 (nao さん) に返信
> http://msdn.microsoft.com/ja-jp/library/system.data.sqlclient.sqlcommand.parameters.aspx
> ちょっと、これだけがいまいち理解できなかったんですが・・・

パラメータークエリー、もしくはパラメタライズドクエリーと呼ばれるものです。

SQL の中に @... のパラメーターマーカーを記述して
INSERT INTO [test_miura] ( name, data, sex ) VALUES ( @name, @data, @sex )

パラメーターマーカーと対応するパラメーターを作成して
Dim nameParameter As SqlParameter = insertCommand.Parameters.Add("@name", SqlDbType.NVarChar)
Dim dataParameter As SqlParameter = insertCommand.Parameters.Add("@data", SqlDbType.NVarChar)
Dim sexParameter As SqlParameter = insertCommand.Parameters.Add("@sex", SqlDbType.Int)

パラメーターに値をセットするというものです。
nameParameter.Value = exceltable.Rows(i).Item(0)
dataParameter.Value = exceltable.Rows(i).Item(1)
sexParameter.Value = exceltable.Rows(i).Item(2)

SQL インジェクションの対策になりますし、コードの可読性も向上します。
積極的に利用されることをお勧めします。
定型的なものなので丸ごと覚えてしまったほうが善いかもしれません。