Dear all,
Mohon pencerahannya..., gimana caranya/codingnya ya untuk koneksi ke Server,
yang saya tau sementara koneksi ke database yang ada di PC yg sama, misalnya
koneksi ke Directory C di PC yang sama :
'----------------------------------------------------------------------------------------------------------------
Public Koneksi As New ADODB.Connection
Public RsUser As New ADODB.Recordset
Public RsAnggota As New ADODB.Recordset
Public RsSimpan As New ADODB.Recordset
Public RsType As New ADODB.Recordset
Public RsPhoto As New ADODB.Recordset
Public RsSet As New ADODB.Recordset
Public RsLog As New ADODB.Recordset
_____________________________________________________________________
Sub BukaDatabase()
On Error Resume Next
Koneksi.CursorLocation = adUseClient
If Koneksi.State = 1 Then Koneksi.Close
Dbase = App.Path + "\Database\SPDAT.mdb;Jet OLEDB:Database Password=SP;"
Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security
Info=False;Data Source=" & Dbase
RsUser.Open "select * from tbluser", Koneksi, adOpenStatic, adLockOptimistic
RsAnggota.Open "select * from tblanggota", Koneksi, adOpenStatic,
adLockOptimistic
RsSimpan.Open "select * from tblsimpan", Koneksi, adOpenStatic, adLockOptimistic
RsType.Open "select * from tbltype", Koneksi, adOpenStatic, adLockOptimistic
RsLog.Open "select * from tblLog", Koneksi, adOpenStatic, adLockOptimistic
RsPhoto.Open "select * from tblPhoto", Koneksi, adOpenStatic, adLockOptimistic
RsSet.Open "select * from tblSet", Koneksi, adOpenStatic, adLockOptimistic
End Sub
'----------------------------------------------------------------------------------------------------------------------
nah, Jika databasenya ada di salah Satu PC lain yang dijadikan Server dengan
jaringan LAN gimana bisa Connect ??
share dong codingnya...
maaf jika sudah pernah dibahas sebelumnya
thx sebelumnya.
rgds
---------------------------------
Looking for last minute shopping deals? Find them fast with Yahoo! Search.
