|
> 現在配列に含まれるﾃﾞｰﾀを、DataGridViewにバインドする方法で悩んでいます。
手元のプロジェクトをザッと編集したコードをアップします。
SQL Server からデータを読み取ってDataGridViewに表示するものです。
細かい設定は割愛していますが、まぁ～参考に！
※ GetData() の、『DataGridView1.Rows.Add(objDt)』部分が、今回のミソ
ですネ！～
※ 適宜、Imports を追加して下さい。
細かいエラー処理も割愛してます～
Private Sub InitGrid()
With DataGridView1
.Columns.Add("Hoge1", "Ｈｏｇｅ１")
.Columns.Add("Hoge2", "Ｈｏｇｅ２")
.Columns.Add("Hoge3", "Ｈｏｇｅ３")
.Columns.Add("Hoge4", "Ｈｏｇｅ４")
.Columns.Add("Hoge5", "Ｈｏｇｅ５")
End With
End Sub
Public Function GetDBConnectString() As String
Dim AdoSQL As SqlConnectionStringBuilder
AdoSQL = New SqlConnectionStringBuilder
With AdoSQL
.DataSource = "HOGE_SERVER"
.InitialCatalog = "HOGE_TABLE"
.UserID = "hogeUser"
.Password = "hogePass"
.IntegratedSecurity = False
.ConnectTimeout = 10
End With
Return AdoSQL.ToString
End Function
Private Sub GetData()
Dim bRet As Boolean
Dim AdoSQL As StringBuilder
Dim objDt(6) As Object
Using AdoDB As SqlConnection = New SqlConnection(GetDBConnectString())
Try
AdoDB.Open()
bRet = True
Catch ex As SqlException
bRet = False
End Try
If bRet Then
AdoSQL = New StringBuilder
With AdoSQL
.Length = 0
.Append("select ")
.Append("Hoge1,")
.Append("Hoge2,")
.Append("Hoge3,")
.Append("Hoge4,")
.Append("Hoge5 ")
.Append("from ")
.Append("HOGE_TABLE")
End With
Using AdoDA As SqlDataAdapter = New SqlDataAdapter
Using AdoDS As DataSet = New DataSet
AdoDS.Clear()
Using AdoCMD As SqlCommand = AdoDB.CreateCommand
With AdoCMD
.CommandType = CommandType.Text
.CommandTimeout = AdoDB.ConnectionTimeout
.CommandText = AdoSQL.ToString
End With
AdoDA.SelectCommand = AdoCMD
Try
AdoDA.Fill(AdoDS, "HOGE_TABLE")
bRet = True
Catch ex As SqlException
bRet = False
End Try
End Using
If bRet Then
Using dt As DataTable = AdoDS.Tables("HOGE_TABLE")
If dt.Rows.Count > 0 Then
DataGridView1.Rows.Clear()
For Each dr As DataRow In dt.Rows
objDt(0) = CType(dr.Item("Hoge1"), Object)
objDt(1) = CType(dr.Item("Hoge2"), Object)
objDt(2) = CType(dr.Item("Hoge3"), Object)
objDt(3) = CType(dr.Item("Hoge4"), Object)
objDt(4) = CType(dr.Item("Hoge5"), Object)
DataGridView1.Rows.Add(objDt)
Next
End If
End Using
End If
End Using
End Using
AdoDB.Close()
End If
End Using
End Sub
以上。
|