Untuk Connect ke SQL Server silahkan lihat di My Blog...
http://rosedikerangalam.blogspot.com/
Salam
Mawardi
-----Original Message-----
From: Robi Buana [mailto:[EMAIL PROTECTED]
Sent: Sunday, January 06, 2008 11:15
To: Programmer-VB@yahoogroups.com
Subject: [Programmer-VB] Tanya Koneksi Database ke PC Server
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.
<http://us.rd.yahoo.com/evt=51734/*http://tools.search.yahoo.com/newsear
ch/category.php?category=shopping>
