tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。