Tutorial Visual Basic Database
Selamat pagi, siang, atau sore
Saya di sini ingin memberikan tutorial tentang Visual Basic terkoneksi ke database
Oke, tanpa banyak kata mari kita mulai
Disini kita ingin mengkoneksikan sebuah database ke visual basic agar dapat mempermudah dalam penambahan data, penggantian data, atau penghapusan data, disini kami menggunakan MySQL jadi apabila anda menggunakan database lain mohon maaf karena trik nya berbeda hehe..
1. Menginstall xampp dan mengaktifkan nya
pertama, kita harus mendownload xampp, dapat dicari di google dan menginstall nya, setelah itu, kita membuka xampp control panel, dapat dicari di menu start atau search box pada windows. maka akan terbuka seperti berikut
jangan lupa setiap command akhiri dengan ";" sebagai tanda telah selesai command tsb
5. lalu aktifkan database dengan mengetikan use namadatabase, contoh seperti berikut
6. setelah itu kita buat table nya dengan cara create table namatable(nama1 tipedata,nama2 tipe data) seperti berikut
7. lalu kita buat isi tabel tersebut dengan mengetikkan insert into namatable (nama1,nama2)values
('nama1','nama2');
contoh nya seperti berikut
8. database selesai dibuat, lalu kita download mysql connector (dapat dicari di google) dan di install (pastikan vcredist terbaru sudah terpasang)
9. lalu kita buka microsoft visual basic dan klik standart.exe dan akan keluar seperti berikut
10. lalu kita tekan ctrl + t untuk membuka components dan centang microsoft ado data control dan microsoft grid control
11. lalu kita desain semenarik mungkin, dan ini lah milik saya (wajib memasukkan adodc dan grid control)
12. lalu setting pada text box
pada kolom nip masukkan diproperties text box nip dibagian nama menjadi txt_nip, begitupula selanjutnya sampai telp
13. lalu buka odbc (dapat dicari di list box) dan klik add
14. lalu kita pilih mysql ansi driver
15. lalu klik finish maka akan terbuka mysql connector dan di isi ketentuan sebagai berikut
Data Source name = terserah anda
user = root
port = pastikan sama dengan yang di xampp
lalu database = pilih database kalian
16. jikalau sudah klik test dan akan muncul connection success, lalu klik ok
17. lalu kita kembali buka visual basic dan klik view code dan masukkan kode berikut
Dim koneksi As ADODB.Connection
Dim data As String
Dim tampungnip As String
Sub conn()
Set koneksi = New ADODB.Connection
koneksi.Open "provider=MSDASQL.1;Presist Security Info=False;Data Source=Tugas"
End Sub
Dim diatas fungsinya sebagai deklarasi suatu type data
code yang didalam sub conn fungsinya untuk mengkoneksikan vb ke mysql connector tadi
Data Source di isikan sesuai dengan yang di data source name di MySQL Connector
18. lalu kita klik tombol save dan ketikkan program berikut
Private Sub Command1_Click()
data = "INSERT INTO pegawai values ('" & txt_nip.Text & "','" & txt_nama.Text & "','" & txt_kelamin.Text & "','" & txt_alamat.Text & "','" & txt_status.Text & "','" & txt_gaji & "','" & txt_tunjangan & "','" & txt_telp & "')"
koneksi.Execute data
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
txt_nip.Text = ""
txt_nama.Text = ""
txt_kelamin.Text = ""
txt_alamat.Text = ""
txt_status.Text = ""
txt_gaji.Text = ""
txt_tunjangan.Text = ""
txt_telp.Text = ""
End Sub
koneksi.execute data = artinya menjalankan database yang sudah kita koneksikan tadi
set datagrid1.datasource = adodc1, yang artinya menetapkan data yang sudah di excecute tadi agar keluar di data grid
19. lalu kita klik tombol edit dan ketikkan program berikut
Private Sub Command2_Click()
data = "UPDATE pegawai SET NIP = '" & txt_nip.Text & "', Nama = '" & txt_nama.Text & "', Kelamin = '" & txt_kelamin.Text & "', Alamat = '" & txt_alamat.Text & "', Status = '" & txt_status.Text & "', Gaji = '" & txt_gaji.Text & "', Tunjangan = '" & txt_tunjangan.Text & "', Telp = '" & txt_telp.Text & "' WHERE NIP = '" & tampungnip & "'"
koneksi.Execute data
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
txt_nip.Text = ""
txt_nama.Text = ""
txt_kelamin.Text = ""
txt_alamat.Text = ""
txt_status.Text = ""
txt_gaji.Text = ""
txt_tunjangan.Text = ""
txt_telp.Text = ""
where nip ="' & tampungnip & "' = fungsinya untuk mengunci string nya (di database wajib salah satu pakai primary key )
20. lalu kita klik tombol delete dan ketikkan program berikut
Private Sub Command3_Click()
data = "DELETE FROM pegawai WHERE nip = '" & tampungnip & "'"
koneksi.Execute data
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
txt_nip.Text = ""
txt_nama.Text = ""
txt_kelamin.Text = ""
txt_alamat.Text = ""
txt_status.Text = ""
txt_gaji.Text = ""
txt_tunjangan.Text = ""
txt_telp.Text = ""
21. lalu kita klik data grid dan ketikkan program berikut
Private Sub DataGrid1_Click()
tampungnip = Adodc1.Recordset.Fields("nip")
txt_nip.Text = Adodc1.Recordset.Fields("nip")
txt_nama.Text = Adodc1.Recordset.Fields("Nama")
txt_kelamin.Text = Adodc1.Recordset.Fields("kelamin")
txt_alamat.Text = Adodc1.Recordset.Fields("alamat")
txt_status.Text = Adodc1.Recordset.Fields("status")
txt_gaji.Text = Adodc1.Recordset.Fields("gaji")
txt_tunjangan.Text = Adodc1.Recordset.Fields("tunjangan")
txt_telp.Text = Adodc1.Recordset.Fields("telp")
End Sub
disini maksud dari record set adalah: untuk menyimpan data yang di import dari mysql
22. lalu klik form dan ketikkan program berikut
Private Sub Form_Load()
Call conn
Adodc1.ConnectionString = koneksi
Adodc1.RecordSource = "Pegawai"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
call conn = fungsinya untuk memanggil fungsi conn yaitu sebagai koneksi ke database
23. program selesai dibuat, lalu silahkan di compile dan di run
Flowchart
Output program
Menambah data
Gambar sebelum di tambahkan data
Gambar sesudah ditambahkan data
Mengedit data
Gambar sebelum data di edit
Gambar setelah data di edit
Menghapus data
Gambar Sebelum data di hapus
Gambar Setelah data di hapus
Sekian Tutor dari kami, mohon maaf apabila ada kekurangan, silahkan di komentar apabila ada saran atau kritik yang membangun.
Sekian dari kami, selamat pagi,siang, sore atau malam
Komentar
Posting Komentar