Membuat Parameter di dalam form koneksi

- Buka VB 6.0 pilih standart exe.
- Tambahkan 2 Command : Test Koneksi dan ListView , serta tambahkan Listview seperti gambar di bawah ini :

- Lalu masukkan Source Coding Berikut :

Private Sub Command1_Click()

Dim con As New ADODB.Connection

If koneksidb("ROSIANANOVITA", "mobil", "", "", con) = False Then

Unload Me

End If

End Sub

- Lalu di dalam form ini terdapat modul untuk mengkoneksikan ke SQL 2008.Berikut adalah codingnya :

Option Explicit

Function koneksidb(server As String, database As String, user As String, password As String, con As ADODB.Connection) As Boolean

On Error GoTo a

If con.state = adstateopen Then con.Close

con.Open "Provider=SQLNCLI10;Server=" & server & ";Database=" & database & ";Trusted_COnnection=yes"

MsgBox "Koneksi sukses"

koneksidb = True

Exit Function

a:

koneksidb = False

MsgBox "Koneksi Gagal"

End Function

- Project sudah selesai , silahkan dicoba yaa :D