01.
Private
Sub
CallDataDepartments()
02.
03.
Dim
sqlDepartments
As
String
04.
05.
06.
07.
08.
09.
10.
11.
12.
13.
14.
Dim
Conn
As
New
OleDbConnection(strConn)
15.
Conn.Open()
16.
17.
sqlDepartments =
"SELECT Departments_ID,Departments_Name FROM Departments"
--->(เปลี่ยน databaseตรงนี้นะ)
18.
da =
New
OleDbDataAdapter(sqlDepartments, Conn)
19.
da.Fill(dc)
20.
With
CmbDepartment
21.
.DataSource = dc
22.
.DisplayMember = dc.Columns.Item(
"Departments_Name"
).ColumnName
23.
.SelectedItem = dc.Columns.Item(
"Departments_ID"
).ColumnName
24.
End
With
25.
Return
26.
End
Sub