Ini nanya apa nyuruh? he he he
Kalo pake fungsi dari pak Haer.
buat 1 form. misal Form1
4 textbox.
txtNamaServer
txtNamaDatabase
txtNamaUser
txtPassword
2 CommandButton
cmdKonek
cmdGakJadi
Private Sub cmdKonek_Click
Konek txtNamaServer.value, txtNamaDatabase.value, txtnamauser.value,
txtPassword.value
end sub
Private Sub cmdGakJadi
docmd.close 'check lagi sintaksnya
end sub
Function Konek(pServer, pDB, pUser, pPwd) As Boolean
Konek = True
On Error GoTo Konek_Err
bc = "PROVIDER=SQLOLEDB.1;" & _
"PERSIST SECURITY INFO=TRUE;" & _
"DATA SOURCE=" & pServer & ";" & _
"USER ID=" & pUser & ";" & _
"PASSWORD=" & Nz(pPwd, "") & ";" & _
"INITIAL CATALOG=" & pDB
' first close current connection
CurrentProject.CloseConnection
' then establish new connection
CurrentProject.OpenConnection (bc)
Konek_Exit:
Exit Function
Konek_Err:
MsgBox Err.Description, vbCritical, "Caution"
Konek = False
Resume Konek_Exit
End Function
salam,
murid access - CL
----- Original Message -----
From: GALIH PERSADHA
To: [email protected]
Sent: Thursday, April 23, 2009 08:45
Subject: [belajar-access] cara membuat form untuk menentukan koneksi ke server
bagaimana cara membuat form untuk menentukan koneksi ke server
tetapi tidak menggunakan conection yang tersedia di file pada ms access
maksudnya kita bisa menentukan datbase dan server yang kita gunakan dengan
mengetik di form access yang kita buat sendiri (seperti conection string pada
vb)
mohon pencerahannya
