Public Cn As New ADODB.Connection Public Sub dbConnect()Dim sqlbuka As String On Error GoTo errHandler sqlbuka = "DSN=nama_dsn;UID=user_name;PWD=Password;" Cn.Open sqlbuka Cn.CursorLocation = adUseClient Exit SuberrHandler: MsgBox Err.Description Cn.Close Set Cn = Nothing EndEnd Sub
About Me : http://babiatnapa.blogspot.com/http://babiat.multiply.com/http://profiles.friendster.com/30759605http://www.facebook.com/people/Sukron-Samosir/1398614688 --- Pada Jum, 16/7/10, Juned Syafruddin <[email protected]> menulis: Dari: Juned Syafruddin <[email protected]> Judul: [programmer-vb] KONEKSI DATABASE Kepada: [email protected] Tanggal: Jumat, 16 Juli, 2010, 11:19 AM Mohon bantuannya rekan2, saya selalu kesulitan saat komputer clien membuka program vb saya yang kadang2 tidak dapat maping ke komputer dimana data berada ilustrasinya seperti ini Database : access ODBC : DATAX lokasi : Z:\database saya simpan ODBC; System DSN; DATAX dimana drive Z: adalah komputer DATA
