Dear All,
Jika kamu pernah mengalami kesulitan melakukan koneksi ke database berikut ini adalah script koneksi menggunakan ADODC
Option explicit
Public CNN as new Connection
Public RSS as new Recordset
'Awal Fungsi Koneksi
Function IsKonek()
On Error Goto Err
'Cara Sederhananya
CNN.CursorLocation=adUseClient
CNN.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=(namaserver);Data Source=(namadatabase)
exit Function
msgbox Err.Description & " " & err.number
end function
'Akhir Fungsi Koneksi
untuk melakukan koneksi ke Database Access adalah :
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
cara kalau pake Path Database:
Public CNN as New Connection
Public Sub Koneksi()
Dim strPath as string
strPath=app.path & " \Namadb.mdb"
With CNN
.OPEN ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath & ";Persist Security Info=False" )
End With
End Sub
cara kalau pake Path Database:
Public CNN as New Connection
Public Sub Koneksi()
Dim strPath as string
strPath=app.path & " \Namadb.mdb"
With CNN
.OPEN ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath & ";Persist Security Info=False" )
End With
End Sub
Sedangkan untuk membuat koneksi ke MySQL harus melalui ODBC:
Provider=MSDASQL.1;Persist Security Info=False;Data Source=(namaODBCnya)
semoga bermanfaat
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
