นำข้อมูลออกมาแสดงทั้ง ชื่อฟิลด์ ประเภท และข้อมูลในตาราง
Private Sub Fill( ) 'ดึงข้อมูลในตารางออกมาแสดงโดยการเลือกตามชื่อ Field
Try
Dim ConnetionString As String
ConnetionString = "Server=localhost;Database=DbName;User Id=Sa;Pwd=1234;"
Dim con As New SqlConnection(ConnetionString)
Dim cmd As New SqlCommand("select * from TableName", con)
Dim ds As New DataSet()
Dim myData As New SqlDataAdapter(cmd)
ds.Clear()
myData.Fill(ds)
'DataGridView1.DataSource = ds.Tables(0)
For Each table As DataTable In ds.Tables
For Each row As DataRow In table.Rows
For Each column In table.Columns
'MsgBox("ColumnName: " & column.ColumnName & _
' vbNewLine & _
' "Type : " & column.DataType.ToString & column.ColumnName)
MsgBox(row(column.ColumnName).ToString())
Next
Next
Next
con.Close()
Catch ex As Exception
End Try
End Sub
ไม่มีความคิดเห็น:
แสดงความคิดเห็น