Sekian lama tidak kuliah Visual basic malam ini pelajarannya dengan intro lebih cepet jadi lebih menantang, heheh hari ini saya akan sedikit membagikan ilmu yang baru didapet malam ini yaitu Membuat koneksi database akses dengan Visual basic 6
Oke langsung saja
1. Kita buat database pada ms acces dengan dengan nama db_mahasiswa, buat field NIM (text 15), Nama (text 30), tempat_lahir(text 30),tanggal_lahir ( date/time) simpan dan close
2. Kita buat project baru pada VB6 dengan standart exe ( Untuk desain formnya kita lanjutkan di tutorial selanjutnya )
3. Kita buat module baru
Klik kanan pada panel project -Add-module-Pilih module-open
4. Pastekan source kode berikut ini
5. klik menu project pilih reference - Pilih Microsoft Activex Data Object 2.0 Library lalu OK
6. Nah sekarang untuk koneksinya tinggal tambahkan
Okeh sekian dulu udah ditinggalin temen temen kampus
Read More
Oke langsung saja
1. Kita buat database pada ms acces dengan dengan nama db_mahasiswa, buat field NIM (text 15), Nama (text 30), tempat_lahir(text 30),tanggal_lahir ( date/time) simpan dan close
2. Kita buat project baru pada VB6 dengan standart exe ( Untuk desain formnya kita lanjutkan di tutorial selanjutnya )
3. Kita buat module baru
Klik kanan pada panel project -Add-module-Pilih module-open
4. Pastekan source kode berikut ini
Option Explicit
Public conn As ADODB.Connection
Public db_file As String
Public statement As String
Public Sub OpenMDB()
On Error GoTo error
db_file = App.Path
If Right$(db_file, 1) <> "\" Then db_file = db_file & "\"
db_file = db_file & "ganti_nama_database_kalian.mdb"
' Open a connection.
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & db_file & ";" & _
"Persist Security Info=False;Jet OLEDB:Database Password="
conn.CursorLocation = adUseClient
conn.Open
Exit Sub
error:
MsgBox "Gagal Melakukan Koneksi Database!", vbCritical + vbOKOnly, "Gagal"
End
End Sub
Public Sub CloseDB()
On Error Resume Next
conn.Close
End Sub
5. klik menu project pilih reference - Pilih Microsoft Activex Data Object 2.0 Library lalu OK
6. Nah sekarang untuk koneksinya tinggal tambahkan
OpenMDBpada Form Load
Okeh sekian dulu udah ditinggalin temen temen kampus