|
分類:[VB.NET]
2006/05/17(Wed) 09:57:00 編集(投稿者)
お世話になります。
■No3628に返信(まじんさんの記事)
型指定の無いデータセットの場合、Fill の第 2 引数で何も指定しなかった場合は
Dataset 内部のテーブル名は、Table, Table1, Table2 ...
と連番(?)で付けられていたような。
もし、Fill(ds, "wankuma")
とやれば、ds.Tables(0).TableName は "wankuma" のはずです。
一応、私がテスト用に作成したコードを張っておきますね。
参考になればよいのですが...
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim ds As DataSet = New DataSet
Dim sqlConn As SqlClient.SqlConnection _
= New SqlClient.SqlConnection("Server=(local);Database=NorthWind;Trusted_Connection=True;")
Dim sqlDa As SqlClient.SqlDataAdapter
sqlConn.Open()
Try
sqlDa = New SqlClient.SqlDataAdapter
Try
sqlDa.SelectCommand = New SqlClient.SqlCommand
sqlDa.SelectCommand.Connection = sqlConn
sqlDa.SelectCommand.CommandType = CommandType.Text
sqlDa.SelectCommand.CommandText = _
"SELECT * FROM [Orders] INNER JOIN [Order Details] ON [Orders].OrderID = [Order Details].OrderID "
sqlDa.Fill(ds, "wankuma")
Me.DataGridView1.DataSource = ds
Me.DataGridView1.DataMember = ds.Tables(0).TableName 'コレは wankuma になる。
Finally
If Not sqlDa Is Nothing Then sqlDa.Dispose()
End Try
Finally
If sqlConn IsNot Nothing Then sqlConn.Close()
If sqlConn IsNot Nothing Then sqlConn.Dispose()
End Try
End Sub
|