タイトル | : DataGridViewに2次元配列のレコードを表示させたい |
記事No | : 7052 |
投稿日 | : 2008/02/20(Wed) 19:27 |
投稿者 | : 伊藤 |
VB2005初心者の伊藤と申します。
DataGridViewに2次元配列のレコードを表示させたいのですが、 DataGridView.DataSourceに何を指定すればよいのでしょうか?
以下のプログラムは、DB(MySQL)からSELECT文で抽出したレコードを DataGridViewに表示させるプログラムです。 このDataGridViewに、Dim strDat(2, 2) As Object のレコードを表示させたいです。
どなたかご存知の方、ご教授いただけるようお願いします。
Private Sub subShowByeByeCnt()
Dim DSet As New System.Data.DataSet
Dim sSQL As String
Dim con As Odbc.OdbcConnection = New Odbc.OdbcConnection
con.ConnectionString = "dsn=" & pMySqlDns & ";uid=" & pMySqlUid & ";pwd=" & pMySqlPwd
'Oracleのコマンド Dim cmd As New Odbc.OdbcCommand cmd.Connection = con
sSQL = "" sSQL = sSQL & " " & "SELECT datestamp 'データ日付'," sSQL = sSQL & " " & "count(*) '件数'" sSQL = sSQL & " " & "FROM tbl_byebye" sSQL = sSQL & " " & "group by datestamp" sSQL = sSQL & " " & "order by datestamp desc"
Dim DAdapter As New System.Data.Odbc.OdbcDataAdapter(sSQL, con)
DAdapter.Fill(DSet, "zipcode") DataGridView1.DataSource = DSet.Tables("zipcode")
With DataGridView1
.Columns(0).Width = 100 .Columns(1).Width = 60 End With
End Sub
|