|
Saya lebih prefer di modul. Ada
beberapa teman malah menggunakan file skrip (misalnya file teks yang
dienkripsi) yang diletakkan diluar program sehingga mudah diupdate
tanpa perlu merubah program. Buat saja prosedur mengaktifkan database (koneksi database) yang variablenya diset public. Contoh : Public AdoCn as ADODB.Connection Function PrepareConnectionAdo(vNmServer As String, vUID As String, vPswd As String, vDatabase As String) As Boolean On Error GoTo Err_Handler ' Open a connection without using a Data Source Name (DSN). Set AdoCn = New ADODB.Connection With AdoCn .ConnectionString = "driver={SQL Server};" & _ "server=" & vNmServer & ";uid=" & vUID & ";pwd=" & VPswd & ";database=" & vDatabase .ConnectionTimeout = 30 .Open End With PrepareConnectionAdo = True Exit Function Err_Handler: PrepareConnectionAdo = False End Function Contoh Cara panggilnya : (Letakkan kode ini dibagian awal, jika perlu saat splash screen) If PrepareConnectionAdo("Server", "sa", "", "DBInventory") = False Then MsgBox "Error sewaktu melakukan koneksi database !", vbOKOnly + vbCritical, "Ups..." Exit Sub End If Vavai skdmdn wrote:
Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut: http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke: [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini: Yahoo! Messenger: wahanaprogrammer YAHOO! GROUPS LINKS
|
- Re: [Programmer-VB] Aktifkan Database &... Masim \"Vavai\" Sugianto
- Re: [Programmer-VB] Aktifkan Datab... skdmdn
- Re: [Programmer-VB] Aktifkan Datab... Purwedi Kurniawan
