Guesuper
20th November 2011, 10:13 AM
dengan vb6
Gan Ada yang tau gak script dimodule untuk conneksi lebih dari satu tabel acces
nah misalnya table di acces 1 untuk login
ane buat yang kedua untuk data pelajar
nah script untuk koneksi lebih dari satu table itu gmn ya gan ???
nih script untuk login
Public Conn As New ADODB.Connection
Public RSPetugas As ADODB.Recordset
Public Sub Buka()
Set Conn = New ADODB.Connection
Set RSPetugas = New ADODB.Recordset
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATABASE.mdb"
End Sub
nah ane buat yang pelajar seperti itu juga tapi kok eror ya ???
Public Conn As New ADODB.Connection
Public RSPelajar As ADODB.Recordset
Public Sub Buka()
Set Conn = New ADODB.Connection
Set RSPelajar = New ADODB.Recordset
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATABASE.mdb"
End Sub
nah ada yang tau gak script yang benar ???
thanks ya gan buat yang kasih solusi !!
</div>
Gan Ada yang tau gak script dimodule untuk conneksi lebih dari satu tabel acces
nah misalnya table di acces 1 untuk login
ane buat yang kedua untuk data pelajar
nah script untuk koneksi lebih dari satu table itu gmn ya gan ???
nih script untuk login
Public Conn As New ADODB.Connection
Public RSPetugas As ADODB.Recordset
Public Sub Buka()
Set Conn = New ADODB.Connection
Set RSPetugas = New ADODB.Recordset
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATABASE.mdb"
End Sub
nah ane buat yang pelajar seperti itu juga tapi kok eror ya ???
Public Conn As New ADODB.Connection
Public RSPelajar As ADODB.Recordset
Public Sub Buka()
Set Conn = New ADODB.Connection
Set RSPelajar = New ADODB.Recordset
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATABASE.mdb"
End Sub
nah ada yang tau gak script yang benar ???
thanks ya gan buat yang kasih solusi !!
</div>