01.Imports System.Data.OleDb
02.Imports System.Data
03.Public Class Form2
04. Dim dt As New DataTable
05. Dim da As OleDbDataAdapter
06.
07. Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
08. CallDataDepartments()
09. CallDatauser()
10.
11. End Sub
12.
13. Private Sub CallDataDepartments()
14. Dim conn As New OleDbConnection
15. If conn.State = ConnectionState.Open Then conn.Close()
16. conn.ConnectionString = ConnectDB.Con
17. conn.Open()
18. Dim sql1 As String = "SELECT userlogin_ID,username FROM userlogin where username = '" & Form1.txtloginname.Text & "'"
19. Dim da As New OleDbDataAdapter(sql1, conn)
20. Dim dt As New DataTable
21.
22. da.Fill(dt)
23.
24. With cmbdepartment
25. .DataSource = dt
26. .DisplayMember = dt.Columns.Item("username").ColumnName
27. .SelectedItem = dt.Columns.Item("userlogin_ID").ColumnName
28. End With
29. Return
30. End Sub
31.
32. Private Sub CallDatauser()
33. Dim conn As New OleDbConnection
34. If conn.State = ConnectionState.Open Then conn.Close()
35. conn.ConnectionString = ConnectDB.Con
36. conn.Open()
37. Dim sql2 As String = "SELECT user_ID,full_name FROM user"
38. Dim da As New OleDbDataAdapter(sql2, conn)
39. Dim dt As New DataTable
40.
41. da.Fill(dt)
42.
43. With cmbuser
44. .DataSource = dt
45. .DisplayMember = dt.Columns.Item("full_name").ColumnName
46. .SelectedItem = dt.Columns.Item("user_ID").ColumnName
47. End With
48. Return
49. End Sub
50.
51.End Class
