1. misalkan passwordnya = 1010101010
maka koneksinya adalah ;
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\DBASSETIT.MDB;Persist
Security Info=False;" & _
"Jet OLEDB:Database Password=1010101010"
2. Untuk nomer 2, tinggal foldernya di sharing aja, pastikan bawah user
login dan passwordnya di PC client, sudah harus di register
user-accountnya di PC Server (user name dan password harus sama antara
client & server) jadi nanti syntax data sourcenya adalah sbr ;
= \\[nama pc server atau nomer IP server]\[nama folder yg di sharing]
contoh = Nama PCnya = Dinda dgn nomer IP = 145.82.154.3
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & "\\145.82.154.3\datamdb\" & "\
DBASSETIT.MDB;Persist Security Info=False;" & _
"Jet OLEDB:Database Password=1010101010"
atau
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & "\\Dinda\datamdb\" & "\DBASSETIT.MDB
;Persist Security Info=False;" & _
"Jet OLEDB:Database Password=1010101010"
Saran...untuk menunjuk PC Server, lebih baik pakai nomer IP saja, krn
prosesnya pasti lebih cepat dari pada menunjuk nama dari PC tsb.
Selain contoh koneksi pd nomer 2, juga ada cara lain...dengan cara membuat
Mapping Drive terhadap folder yg di share di Server tsb
Demikian informasinya...
poniran itperson <[EMAIL PROTECTED]> on 11/04/2005 14:22:23
Please respond to [email protected]
To: [email protected]
cc: (bcc: Edi Herdiawan/ID/PNTS/ICI)
Subject: [indoprog-vb] Mohon Pencerahaan mengenai ODBC
Yth. Rekan-rekan programmer
Saya buat form Master departemen yang sudah running dengan coding form
loadnya sbb :
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Provider = "microsoft.jet.oledb.4.0"
cn.CursorLocation = adUseClient
cn.Open App.Path & "\DBASSETIT.MDB"
Set rs = New ADODB.Recordset
rs.Open "select * from tbldept", cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.ReBind
dg1
If rs.RecordCount = 0 Then
Call KondisiRecordKosong
Else
rs.MoveFirst
Call TampilkanData
Call KunciTextEditor
End If
statusubah = False
End Sub
Dengan tetap menggunakan coding seperti diatas, saya ingin menambahkan sbb
:
Database (DBASSETIT.MDB) saya proteksi dengan password misalnya :
âadminâ Mohon pencerahaan coding yang harus ditambahkan dan diletakkan
dibagian mana ( untuk digunakan di PC Client )
2. Jika Database (DBASSETIT.MDB) saya letakkan di server (windows2000
server ) dan tetap dipassword misalnya âadminâ, kemudian untuk
koneksinya
ingin saya ubah melalui ODBC Microsoft Access setup ( sbgai
client â server )
mohon pencerahaan untuk perubahan coding diatas, supaya form
master
departemen bisa running.
Sebelumnya mohon maaf apabila pernah dibahas
Rgds,
ipong
---------------------------------
Yahoo! Mail Mobile
Take Yahoo! Mail with you! Check email on your mobile phone.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke :
[EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
Yahoo! Groups Links
__
This email has been scanned for Viruses and Spam. For more information
please contact your local Information Security representative.
__
IMPORTANT NOTICE:
This email may be confidential, may be legally privileged, and is for the
intended recipient only.
Unauthorised access, disclosure, copying, distribution, or reliance on any of
it by anyone else is prohibited and may be a criminal offence.
Please delete if obtained in error and email confirmation to the sender.
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
