VB6.0 :: Koneksi Database Access Menggunakan ADODB Dengan VB6

Pada tulisan kali ini saya ingin share sedikit pengetahuan tentang cara mengkoneksikan database access dengan menggunakan ADODB pada bahasa pemrograman Visual Basic 6. Semoga yang ingin belajar dapat mengikuti langkah-langkah yang saya berikan.

Adapun langkahnya adalah sebagai berikut :

1. Buat satu database dan tabel pada access. Untuk tulisan kali ini saya menggunakan access 2007. Adapun caranya adalah sebagai berikut : 

Buka aplikasi access yang tersedia, kemudian klik New Blank Database seperti pada gambar dibawah ini.

Ubah file dari database yang akan dibuat seperti pada gambar dibawah kemudian klik browse untuk menyimpan kedalam folder penyimpanan file project dan database nanti. Pada tulisan ini saya masukkan pada folder dengan nama Catatan VB6.

Ubah save as type menjadi Microsoft Access Databases (2000-2003 format)-Kemudian tekan tombol OK - Kemudian tekan tombol create

Buat struktur field dengan menekan icon View dan pilih design view. Seperti pada gambar dibawah ini dan kemudian simpan tabel dengan nama pegawai.

Berikut struktur tabel yang harus dibuat :

Kemudian isi data pada tabel yang telah dibuat.

2. Setelah tabel dibuat, maka database pada program telah siap. Setelah itu jalankan Microsoft Visual Basic 6.0. Pilih Standard EXE-Tekan tombol Open.

3. Simpan project dengan nama koneksi dan form dengan frkoneksi. Kemudian tambahkan komponen datagrid pada form untuk menampilkan data dari tabel access yang telah dibuat sebelumnya. Dengan cara klik menu project pilih component.

4. Cari file .ocx dengan nama Microsoft DataGrid Control 6.0 (OLEDB). Kemudian tekan tombol OK. Dan akan muncul component datagrid pada toolbox.

5. Masukkan komponen datagrid pada form dengan cara klik icon toolbox datagrid dan geser ke arah form. Dan atur lebar datagrid seperti pada gambar berikut dan desain form seperti pada gambar.

6. Langkah berikutnya adalah mensetting koneksi ADODB agar bisa dimasukkan ke dalam file module. Adapun caranya adalah dengan mengklik menu project-references.

7. Cari file library dengan nama Microsoft ActiveX Data Object 2.6 Library dan kemudian centang dan tekan tombol OK.

8. Langkah berikutnya adalah memasukkan kode koneksi database melalui file module. Cara memasukkan file module adalah dengan mengklik menu project-add module-Open.

9. Masukkan code program untuk koneksi database dan tabel  pada file module yang telah dibuat dan setelah selesai simpan file module tersebut. Adapun kode program yang dimasukkan adalah sebagai berikut :

*) Untuk bagian yang diarsir, kode program disambung.

10. Masukkan kode program untuk koneksi ke database pada form dengan kode program sebagai berikut : 

11. Kemudian jalankan form yang telah dituliskan kode program dengan menekan tombol F5 atau icon Start. Dan berikut hasil kode program untuk koneksi ke database.

Demikian cara koneksi database Access menggunakan ADODB dengan VB6, dan jika ada pertanyaan mengenai pembahasan pada tulisan ini silahkan untuk berkomentar. Semoga pembaca dapat memahami apa yang saya tulis.

VB.6.0 :: vbCara Menghubungkan Database Mysql dengan VB 6.0

Selamat pagi sahabat Blogertas. gmna kabar kalian ? Tentunya sehat semua kan. klo gak sehat ya gak bakalan berkunjung kesini benar gak..?? masih setia bersama susantosatu.blogspot.com, tentunya juga masih kan.

Ok langsung saja tidak perlu panjang lebar, karna kebanyakan cewek gak suka sama yang terlalu panjang dan yang cowk juga gak suka sama yang terlalu lebar hehe. cuma sekedar hiburan saja lho...
Fikiranya gak boleh kemana-mana hehe.

Pada kesempatan ini akan saya akan memberikan sedikit wacana tentang bagaimana cara dalam koneksi data base pada Visual Basic 6.0 apabila menggunakan data base mysql. Sebelum kita melangkah ke cara dalam koneksi data base mysql pada VB.6.0 alangkah baiknya jika kalian mengetahui tentang database yang digunakan. Database yang saya gunakan adalah sql server 2000 jadi klo ada perbedaan cara koneksinya bila menggunakan database sql yang terbaru mohon dikonfirmasikan kesaya di karena saya belum pernah  mencoba database yang baru, maklum masih malas mencobanya. 

Berikut ini merupakan code-nya yang bisa diletakkan pada modul :
Public con As New ADODB.Connection
Public rst As New ADODB.Recordset 'berfungsi sebagai variabel penyimpan record sementara
Public strcon As String ' variabel yg digunakan untuk code koneksi
Public strsql As String ' variabel yg digunakan untuk menampung code atau query sql
Public Sub Connections()
strcon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
Info=False;Initial Catalog=test"
If con.State = adStateOpen Then
con.Close
Set con = New ADODB.Connection
con.Open strcon
Else
con.Open strcon
End If
End Sub

Sama seperti koneksi pada ms. access pada umumnya, inti dari koneksi ini ialah terletak pada variabel strcon
"strcon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
Info=False;Initial Catalog=dbsusanto""

Nah Pada bagian akhir dari code tersebut yaitu "Initial Catalog=dbsusanto", test merupakan nama dari database yang telah dibuat sebelumya pada sql server sementara pada code ini saya memberikan contoh nama databasenya yaitu"dbsusanto". Sehingga anda  perlu mensesuaikan dengan nama database yang anda gunakan pada saat ini, atau anda coba membuat databe yang sama seperti yang saya gunakan agar anda dapat dengan mudah memahaminya.

Sebelum anda mencoba untuk mengkoneksikanya, anda perlu pastikan terlebih dahulu bahwa Servis Manager dari sql server sudah berada dalam kondisi Running (jika belum mohon untuk di running terlebih dahulu).

Seperti itulah coding dalam pengkoneksian database mysql pada pemrograman destop Visual Basic 6.0.
Semoga artikel Cara koneksi database mysql pada vb.6.0 dapat bermanfaat bagi anda dan saya.

VB6.0 :: Cara Membuat Input, Hapus, Edit, Cari Data Dengan Visual Basic 6.0

1. Jalankan program visual basic 6.0 
2. Buat form seperti gambar di bawah ini. jika sudah nanti anda tinggal mengisi source code dari form- form yang sudah di buat seperti ini :

3. Jangan lupa untuk membuat modul yang di fungsikan untuk pengkoneksian data base access. dengan nama "Module1" dan isilah koding seperti di bawah ini :

Public koneksi As ADODB.Connection
Public rs1 As ADODB.Recordset
Public rs2 As ADODB.Recordset
Public rs3 As ADODB.Recordset
Public profil As Integer 'VARIABLE YG MENENTUKAN ADMIN ATAU OPERATOR
Public nopeltiket As String 'VARIABLE TIKET LAN KONCO2
Public jamtiket As Date
Public tanggaltiket As Date

Sub starkoneksi()
Set koneksi = New ADODB.Connection
  If koneksi.State = adStateOpen Then
        koneksi.Close
        Set koneksi = New ADODB.Connection
  End If
koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbsewa.mdb"
End Sub

4. Memulai pengisian koding pada form2 yang sudah kita buat seperti di atas dengan koding di bawah ini :

Private Sub urip()
txtidpenyewa.Enabled = True
txtnama.Enabled = True
txtalamat.Enabled = True
txtlahir.Enabled = True
DTPicker1.Enabled = True
cmbjeniskel.Enabled = True
txtpekerjaan.Enabled = True

End Sub
Private Sub mati()
txtidpenyewa.Enabled = False
txtnama.Enabled = False
txtalamat.Enabled = False
txtlahir.Enabled = False
DTPicker1.Enabled = False
cmbjeniskel.Enabled = False
txtpekerjaan.Enabled = False
End Sub
Private Sub bersih()
txtidpenyewa.Text = ""
txtnama.Text = ""
txtalamat.Text = ""
txtlahir.Text = ""
cmbjeniskel.Text = ""
txtpekerjaan.Text = ""
End Sub

Koding diatas difungsikan untuk mempermudah atau mempersingkat pengkodingan dalam program ini, maka dari itu saya buatkan fungsi-fungsi seperti diatas agar gapat mempersingkat koding dan mudah dalam pengkodingan

5. buat koding 'Tambah' pada Command1Buttem yang bernama"Command1" seperti di bawah ini ya...

Private Sub Command1_Click()
Command2.Enabled = False
Command3.Enabled = False
If Command1.Caption = "Tambah" Then
Call urip
Call bersih
Command1.Caption = "Simpan"
   
ElseIf Command1.Caption = "Simpan" Then
If txtidpenyewa.Text = "" Or txtnama.Text = "" Or txtalamat.Text = "" Or txtlahir.Text = "" Or cmbjeniskel.Text = "" Or txtpekerjaan.Text = "" Then
MsgBox "DATA BELUM LENGKAP", vbCritical, "PERIKSALAH LAGI"
Else
pertanyaan = MsgBox("Apakah Anda Yakin...??", vbYesNo, "Pertanyaan")
 If pertanyaan = vbYes Then
 adopenyewa.Recordset.AddNew
    adopenyewa.Recordset!idpenyewa = txtidpenyewa.Text
    adopenyewa.Recordset!nama = txtnama.Text
    adopenyewa.Recordset!alamat = txtalamat.Text
    adopenyewa.Recordset!tempatlahir = txtlahir.Text
    adopenyewa.Recordset!tgllahir = Format(DTPicker1.Value, "dd/mm/yyyy")
    adopenyewa.Recordset!jeniskelamin = cmbjeniskel.Text
    adopenyewa.Recordset!pekerjaan = txtpekerjaan.Text
    adopenyewa.Recordset.Requery
    MsgBox "Data Berhasil di Simpan", vbInformation, "Simpan Data"
    Command1.Enabled = True
    Call mati
    Command1.Caption = "Tambah"
End If
End If
End If
End Sub

6. Jika sudah buat koding seperti di bawah ini pada "Command2" yang digunakan untuk 'Edit' adapun koding nya seperti di bawah ini :

Private Sub Command2_Click()

Command1.Enabled = False
Command3.Enabled = False
If Command2.Caption = "Edit" Then
Call urip
txtidpenyewa.Text = adopenyewa.Recordset!idpenyewa
txtnama.Text = adopenyewa.Recordset!nama
txtalamat.Text = adopenyewa.Recordset!alamat
txtlahir.Text = adopenyewa.Recordset!tempatlahir
DTPicker1.Value = adopenyewa.Recordset!tgllahir
cmbjeniskel.Text = adopenyewa.Recordset!jeniskelamin
txtpekerjaan.Text = adopenyewa.Recordset!pekerjaan
Command2.Caption = "Simpan"
   
ElseIf Command2.Caption = "Simpan" Then
If txtidpenyewa.Text = "" Or txtnama.Text = "" Or txtalamat.Text = "" Or txtlahir.Text = "" Or cmbjeniskel.Text = "" Or txtpekerjaan.Text = "" Then
MsgBox "DATA BELUM LENGKAP", vbCritical, "PERIKSALAH LAGI"
Else
pertanyaan = MsgBox("Apakah Anda Yakin Merubah Datanya...??", vbYesNo, "-Pertanyaan-")
 If pertanyaan = vbYes Then
    adopenyewa.Recordset.Update
    adopenyewa.Recordset!idpenyewa = txtidpenyewa.Text
    adopenyewa.Recordset!nama = txtnama.Text
    adopenyewa.Recordset!alamat = txtalamat.Text
    adopenyewa.Recordset!tempatlahir = txtlahir.Text
    adopenyewa.Recordset!tgllahir = Format(DTPicker1.Value, "dd/mm/yyyy")
    adopenyewa.Recordset!jeniskelamin = cmbjeniskel.Text
    adopenyewa.Recordset!pekerjaan = txtpekerjaan.Text
    adopenyewa.Recordset.Requery
    MsgBox "Data Berhasil di Rubah", vbInformation, "Simpan Data"
    Call mati
    Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
End If
End If
End If
End Sub
7. Koding hapus data dapat anda ketik kan seperti di bawah pada Command5 dengan nama 'Hapus'

Private Sub Command5_Click()
MsgBox "anda yakin menghapus data ini", vbOKOnly, "PERTANYAAN"
adopenyewa.Recordset.Delete
adopenyewa.Recordset.Requery
End Sub

8. Lalu untuk buttom "Batal" anda ketikkan koding seperti di bawah ini ..

Private Sub Command4_Click()
Command1.Enabled = True
Call bersih
Command1.Caption = "Tambah"
End Sub

9. Untuk DataGrid1 anda harus menambahkan koding dibawah ini agar ketika diklik untuk edit dan hapus datanya bisa tampil.

Private Sub DataGrid1_Click()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
txtidpenyewa.Text = adopenyewa.Recordset!idpenyewa
txtnama.Text = adopenyewa.Recordset!nama
txtalamat.Text = adopenyewa.Recordset!alamat
txtlahir.Text = adopenyewa.Recordset!tempatlahir
DTPicker1.Value = adopenyewa.Recordset!tgllahir
cmbjeniskel.Text = adopenyewa.Recordset!jeniskelamin
txtpekerjaan.Text = adopenyewa.Recordset!pekerjaan
End Sub

10. Untuk yang terakhir kalinya anda tambahkan koding pada Form_Load agar ketika program input, hapus, edit dapat menampilkan datanya pada DataGrid 

Private Sub Form_Load()
Call starkoneksi
Set rs1 = New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.Open "select * from tbpenyewa", koneksi, adOpenStatic
End Sub

VB.NET :: Program Visual Basic Net Simpan Edit Hapus Record Pada Database Access

Berita Terkait

Menampilkan Record Ke ComboBox Dengan Visual Basic Net 2008

Pencarian Record Data Database Access Menggunakan Visual Basic Net 2008

Program Edit dan Hapus Data Database Access Dengan VB Net

Program Tambah Record Di Visual Basic Net 2008

Program Koneksi Database Access Dari Visual Basic Net 2008

Sore yang panas ini saya tak lupa untuk membagikan sedikit ilmu pemrograman visual basic net.

Pada artikel program visual basic net simpan edit hapus record pada database accesssaya membahas kumpulan program yang terpisah pada artikel :

Program Tambah Record Di Visual Basic Net 2008

Program Edit dan Hapus Data Database Access Dengan VB Net

Pencarian Record Data Database Access Menggunakan Visual Basic Net 2008

menjadi satu program utuh, sehingga anda tinggal menyimpan data, atau edit data, atau hapus data.

Program juga dilengkapi dengan beberapa perintah untuk memodifikasi button saat melakukan penyimpanan data, pengeditan ataupun penghapusan.

Silahkan buat dahulu database access :
Nama Database : SmartSolution.Mdb
Nama Table : Buku
Field
1. Kode type Text
2. Judul type Text
3. Pengarang type Text
4. Penerbit type Text

Design Form Program Visual Basic Net Simpan Edit Hapus Record Pada Database Access 

Ketikkan listing program visual basic net simpan edit hapus record pada database access berikut

Imports System.Data.OleDb

Public Class Form1
Public DB As OleDbConnection
Public CMD As OleDbCommand
Public ADP As OleDbDataAdapter
Public DR As OleDbDataReader
Public DS As New DataSet
Dim SQL As String

Public Sub OpenDB()
Dim LOKASI = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source =E:DatabaseSmartSolution.mdb”
DB = New OleDbConnection(LOKASI)
If DB.State = ConnectionState.Closed Then
DB.Open()
End If
End Sub

Sub TampilRecordBuku()
‘ PERINTAH SELEC TAMBAH HURUF T
ADP = New OleDbDataAdapter(“SELEC * FROM Buku”, DB)
DS = New DataSet
ADP.Fill(DS, “Buku”)
DataGridView1.DataSource = DS.Tables(“Buku”)
End Sub

Sub ButtonBaru()
btnBaru.Enabled = True
btnSimpan.Enabled = False
btnEdit.Enabled = False
btnHapus.Enabled = False
btnBatal.Enabled = False
btnkeluar.Enabled = True
End Sub

Sub ButtonEdit()
btnBaru.Enabled = False
btnSimpan.Enabled = False
btnEdit.Enabled = True
btnHapus.Enabled = True
btnBatal.Enabled = True
btnkeluar.Enabled = False
End Sub

Sub ButtonSimpan()
btnBaru.Enabled = False
btnSimpan.Enabled = True
btnEdit.Enabled = False
btnHapus.Enabled = False
btnBatal.Enabled = True
btnkeluar.Enabled = False
End Sub

Sub HapusText()
Judul.Text = “”
Kode.Text = “”
Pengarang.Text = “”
Penerbit.Text = “”
Call ButtonBaru()
End Sub

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Me.Close()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call OpenDB()
Call HapusText()
Call TampilRecordBuku()
End Sub

Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click
Call HapusText()
Kode.Focus()
End Sub

Private Sub Kode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Kode.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
Dim xkode As String
If tombol = 13 Then

‘ PERINTAH SELEC TAMBAH HURUF T
SQL = “SELEC * FROM BUKU Where Kode='” & Kode.Text & “‘”
CMD = New OleDbCommand(SQL, DB)
DR = CMD.ExecuteReader
DR.Read()
If DR.HasRows = True Then
Judul.Text = DR.Item(1)
Pengarang.Text = DR.Item(2)
Penerbit.Text = DR.Item(3)
Call ButtonEdit()
MsgBox(“Data ditemukan !”)
Else
xkode = Kode.Text
Call HapusText()
Kode.Text = xkode
Call ButtonSimpan()
End If
Judul.Focus()
End If
End Sub

Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
Call HapusText()
Kode.Focus()
End Sub

Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
SQL = “DELETE FROM BUKU Where Kode='” & Kode.Text & “‘”
CMD = New OleDbCommand(SQL, DB)
CMD.ExecuteNonQuery()
Call btnBaru_Click(sender, e)
Call TampilRecordBuku()
End Sub

Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
SQL = “UPDATE Buku SET Judul='” & Judul.Text & “‘,” & _
” Pengarang='” & Pengarang.Text & “‘,” & _
” Penerbit='” & Penerbit.Text & “‘ ” & _
” Where Kode='” & Kode.Text & “‘”

CMD = New OleDbCommand(SQL, DB)
CMD.ExecuteNonQuery()
Call btnBaru_Click(sender, e)
Call TampilRecordBuku()
End Sub

Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
SQL = “INSERT INTO BUKU(kode, judul, pengarang, penerbit) ” & _
” values(‘” & Kode.Text & “‘,'” & _
Judul.Text & “‘,'” & _
Pengarang.Text & “‘,'” & _
Penerbit.Text & “‘)”

CMD = New OleDbCommand(SQL, DB)
CMD.ExecuteNonQuery()
Call btnBaru_Click(sender, e)
Call TampilRecordBuku()
End Sub

End Class

Demikianlah artikel program visual basic net simpan edit hapus record pada database access ini, yuk belajar bahasa pemrograman visual basic dot net .

Tag : Program Visual Basic Net Simpan Edit Hapus Record Pada Database Access, Belajar Bahasa Pemrograman, Bahasa Pemrograman Visual Basic Net, Tempat Download Program, program vb net

Bila bermanfaat silahkan share Program Visual Basic Net Simpan Edit Hapus Record Pada Database Access ini dengan teman anda, Terima kasih sebelumnya

Anda Harus Baca Artikel Ini

Menggunakan Operator Logika Pada Seleksi IF

Menggunakan Seleksi IF Jamak pada Visual Basic.Net 2008

Memfilter Data Pada ComboBox

Program Kriptografi Vigenere Dengan Visual Basic dot NET 2008

Kriptografi Caesar, Sederhana, Mudah dan Terkenal

Program Visual Basic Net Untuk Memfokuskan Control

Program VB Net Untuk Mengolah Citra

Merancang Menu Pada Program VB Net

Pemakaian Fungsi String Pada Program VB Net

Perulangan Pada Program VB Net

Tips Menghitung Hari Dalam 1 Bulan Dengan Program VB Net

Tips Program VB Net Menghapus TextBox dan Combobox

Penggunaan IF Yang Baik Dalam Visual Basic Net ataupun Pascal

Yuk Belajar Bahasa Pemrograman Visual Basic dot Net

Program VB.NET Mengambil Nilai RGB Citra

Penggunaan Listview Pada Visual Basic Net 2008

Penggunaan Perintah Select Case pada Visual Basic.Net Dalam Pemilihan Data