タイトル : DataGridViewに2次元配列のレコードを表示させたい 投稿日 : 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 |