sudah saya tulis seperti ini tapi kok invalid conection string yaaaa
informasi
sql server 2000
namaserver : ICHA
namadatabase : masukan
namauser : sa
password : malang
------------ --------- --------- --------- --------- --------- ---------
--------- --------- ---
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
Private Sub cmdGakJadi_Click( )
DoCmd.Close 'check lagi sintaksnya
End Sub
Private Sub cmdKonek_Click( )
Konek txtNamaServer. Value, txtNamaDatabase. Value, txtNamaUser. Value,
txtPassword. Value
End Sub
mohon
bantuannya
Berselancar lebih cepat. Internet Explorer 8 yang dioptimalkan untuk
Yahoo! otomatis membuka 2 halaman favorit Anda setiap kali Anda membuka
browser. Dapatkan IE8 di sini!
http://downloads.yahoo.com/id/internetexplorer
