Re: [Programmer-VB] Tanya koneksi

Tue, 26 Jul 2005 02:25:57 -0700

Saran saya, taruh di modul kemudian variabelnya dideklarasikan  sebagai public dan modul koneksi dijadikan function
 
Yang dijadikan function adalah koneksi ke database, bukan koneksi ke recordset.
 
Ex :
nama Modul : Fungsi.bas
 
'Deklarasi Variabel Public Disini
Public...........
Public...........
 
Function KoneksiDatabase(vCn as String, vStrCn as String) as Boolean
        'Perintah Koneksi disini
        'Jika gagal di trapping melalui on error dan melakukan set hasil fungsi menjadi false, sedangkan jika OK, hasil fungsi =             true
End Function
 
Cara Panggil :
 
If KoneksiDatabase(..............) = False Then
    msgbox "Gagal koneksi database'
Endif
 
Pls CMIIW,
 
Vavai
----- Original Message -----
From: "ajiekurnia" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Tuesday, July 26, 2005 2:39 PM
Subject: [Programmer-VB] Tanya koneksi

> Dear All,
>
> Saya pingin Tanya gimana ya supaya kode di bawah ini [koneksi] dipanggil
> sekali aja kalo form-nya ada banyak. Mohon bantuannya
> [Pake module maksudnya]
> ----------------------------------------------------------------------------
> -----------
> Dim cnDB as connection
> Dim rsttkaryawan as recorset
> Dim SSQL as string
>
>  Set cnDB = New Connection
>  Set rsttKaryawan = New Recordset
>
>  With cnDB
>   .CursorLocation = adUseClient
>   .Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=.\KaryawanDB.mdb;"
>  End With
>
> SSQL = "SELECT * FROM TKARYAWAN"
>  With rsttKaryawan
>   .Open SSQL, cnDB, adOpenStatic, adLockOptimistic
>  End With

Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]



SPONSORED LINKS
Programming languages Programmer C programming language
Computer programming languages Java programming language C programming language

YAHOO! GROUPS LINKS



Kirim email ke