Gimana sih rumus koneksi vb ke accsess?
sediakan 1 form dan 1 combo didalamnya
kemudian buat table dengan nama province dengan field Province_Name
tempatkan database satu folder yang sama dengan program vb yang anda buat
ini sample codenya
Dim db As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim msg as string
Private Sub Form_Load()
Dim Lok As String
Lok = App.Path + "\dataku.mdb"
Msg1 = "Provider=Microsoft.Jet.OLEDB.4.0;" & Chr(10)
Msg1 = Msg1 & "Data Source='" & Lok & "';" & Chr(10)
Msg1 = Msg1 & "Persist Security Info=False" & Chr(10)
Set db = New ADODB.Connection
db.Open Msg1
Msg = "SELECT Province_Name"
Msg = Msg & " From PROVINCE"
Set Rs = New ADODB.Recordset
Rs2.Open Msg, db, adOpenStatic
Combo1.Clear
Combo1.Text = "[...]"
Combo1.AddItem "[...]"
While Rs.EOF <> True
With Combo5
.AddItem Rs(0)
End With
Rs.MoveNext
Wend
Rs.Close
Set Rs = Nothing
end sub
kemudian buat table dengan nama province dengan field Province_Name
tempatkan database satu folder yang sama dengan program vb yang anda buat
ini sample codenya
Dim db As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim msg as string
Private Sub Form_Load()
Dim Lok As String
Lok = App.Path + "\dataku.mdb"
Msg1 = "Provider=Microsoft.Jet.OLEDB.4.0;" & Chr(10)
Msg1 = Msg1 & "Data Source='" & Lok & "';" & Chr(10)
Msg1 = Msg1 & "Persist Security Info=False" & Chr(10)
Set db = New ADODB.Connection
db.Open Msg1
Msg = "SELECT Province_Name"
Msg = Msg & " From PROVINCE"
Set Rs = New ADODB.Recordset
Rs2.Open Msg, db, adOpenStatic
Combo1.Clear
Combo1.Text = "[...]"
Combo1.AddItem "[...]"
While Rs.EOF <> True
With Combo5
.AddItem Rs(0)
End With
Rs.MoveNext
Wend
Rs.Close
Set Rs = Nothing
end sub
Komentar
Posting Komentar
silahkan mencoba