Dim sqlGeo As String = "SELECT geo_name FROM geography"
Dim daGeo As New OleDb.OleDbDataAdapter(sqlGeo, con)
Dim dtGeo As New DataTable
daGeo.Fill(dtGeo)
With cmbGeo
.DataSource = dtGeo
.DisplayMember = dtGeo.Columns.Item("geo_name").ColumnName
End With
ประมาณนี้ครับ อันนี้ VB+Access นะครับ ส่วน mysql ก็ไม่ต่างจากนี้ครับ ลองดูครับ
Dim strConnString As String
strConnString = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false"
objConn = New MySqlConnection(strConnString)
objConn.Open()
Dim sqlGeo As String = "SELECT geo_name FROM geography"
Dim daGeo As New MySqlDataAdapter(sqlGeo, con)
Dim dtGeo As New DataTable
daGeo.Fill(dtGeo)
With cmbGeo
.DataSource = dtGeo
.DisplayMember = dtGeo.Columns.Item("geo_name").ColumnName
End With