ผมต้องการ SELECT province_id ครับ ในรูปเป็น Number ผมทำการ SELECT ข้อมูลไม่ออกครับ แต่ถ้าเป็น TEXT มีข้อมูลออกมาครับ
ผลที่ได้
ผลที่ได้
โค๊ดติดต่อฐานข้อมูลครับ Code (VB.NET)
Function UpdateGrid(ByVal sqlStr As String)
Dim dt As New DataTable()
Dim connStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=DB_VBDU.mdb;"
Dim dataAdapter As New OleDb.OleDbDataAdapter(sqlStr, connStr)
dataAdapter.Fill(dt)
dataAdapter.Dispose()
Return dt
End Function
โค๊ดให้แสดงท่าน DataGridView ครับ Code (VB.NET)
Sub Update_Datagridview_District()
Dim Province_id As DataTable = OpenDB("SELECT province_id FROM province WHERE province_name = '" & frmSettingArea.txtProvinceName.Text & "'")
With frmSettingArea.dgvDistrict
frmSettingArea.dgvDistrict.Enabled = True
.DataSource = UpdateGrid("SELECT district_name FROM district WHERE province_id = '" & Province_id.Rows(0)("province_id") & "' ORDER BY district_name ASC")
.Columns(0).Width = 227
.Columns(0).HeaderText = "ชื่ออำเภอ"
.ReadOnly = True
End With
End Sub
Sub Update_Datagridview_District()
Dim Province_id As DataTable = OpenDB("SELECT province_id FROM province WHERE province_name = '" & frmSettingArea.txtProvinceName.Text & "'")
With frmSettingArea.dgvDistrict
frmSettingArea.dgvDistrict.Enabled = True
.DataSource = UpdateGrid("SELECT district_name FROM district WHERE province_id = " & Province_id.Rows(0)("province_id") & " ORDER BY district_name ASC")
.Columns(0).Width = 227
.Columns(0).HeaderText = "ชื่ออำเภอ"
.ReadOnly = True
End With
End Sub