taro di form_load
Call opendb()
Dim AA As String = " SELECT * FROM petugas"
cmd = New OleDb.OleDbCommand(AA, conn)
Dim RS As OleDb.OleDbDataReader
RS = cmd.ExecuteReader()
cmbidpetugas.Items.Clear()
If RS.HasRows Then
While RS.Read
cmbidpetugas.Items.Add(RS("idpetugas"))
End While
End If
Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa
No comments:
Post a comment