Koneksi Visual BASIC dengan Database MySQL

.Untuk dapat menghubungkan Visual BASIC dengan database Access, kita akan menggunakan komponen ADO Data Control (ADODC). Komponen ini dapat dihubungkan dengan beberapa komponen yang digunakan untuk mengakses data seperti textbox, datagrid, dsb. Untuk dapat menggunakan ADODC, ada beberapa properti yang harus kita lakukan pengaturan antara lain:
 Properti Fungsi
ConnectionString Untuk mendefinisikan database yang akan digunakan Adodc.
 RecordSource Untuk mendefinisikan tabel/query yang akan digunakan Adodc. 
CommandType Untuk mendefinisikan perintah yang digunakan Adodc.


Untuk lebih jelasnya kita akan coba membuat sebuah program untuk
memprektekkan cara kerja ADODC. Pada program ini kita akan coba hubungkan
database pengajaran (tabel dosen) yang telah kita buat pada bab VI dengan form
Visual BASIC.
Buatlah sebuah project baru dengan tipe project VB Enterprise Edition
Controls, seperti terlihat pada gambar


 Desain tampilan form sehingga akan dihasilkan tampilan seperti pada gambar

Pengaturan ConnectionString pada Adodc:
 Klik komponen Adodc pada form, pada bagian properties aktifkan pada pilihan
property ConnectionString, kemudian klik tanda . Pada Jendela Property Page
yang muncul Pilih Opsi Use ODBC Data Source Name, Pada pilihan datasource
pilih Pengajaran.
 Klik tombol Apply, kemudian klik OK.
Jalankan program sehingga dihasilkan tampilan seperti pada gambar

Untuk berpindah antar record, dapat dilakukan dengan menekan tombol
navigasi pada Adodc.
Simpan Project dengan nama AksesData.vbp.



Komentar

Posting Komentar

Postingan populer dari blog ini

Menghapus data Pada Listview

Gambar
http://www.mesran.blogspot.com/ Class Form1     Sub buattabel()         LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)         LV.Columns.Add("Nama", 180, HorizontalAlignment.Left)         LV.View = View.Details         LV.GridLines = True         LV.FullRowSelect = True     End Sub     Sub isitabel()         Dim lst As New ListViewItem         lst.Text = NPM.Text         lst.SubItems.Add(Nama.Text)         LV.Items.Add(lst)     End Sub     Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click     End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As S...
Baca selengkapnya

PROGRAM PEMBAYARAN LISTRIK DENGAN VB NET

Gambar
http://www.mesran.blogspot.com Public Class Form1        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Dim x As String         No_urut.Text = "1" & Microsoft.VisualBasic.Right(KODE.Text, 2)         x = Microsoft.VisualBasic.Mid(KODE.Text, 4, 3)         If x = "MED" Then             daerah.Text = "MEDAN"             pajak.Text = 0.015         ElseIf x = "BEL" Then             daerah.Text = "BELAWAN"             pajak.Text = 0.015         ElseIf x = "TEM" Then             daerah.Text = "AKSARA"             pajak.Text...
Baca selengkapnya

ENTAH SIAPA YANG TAHU??

Gambar
ENTAH SIAPA YANG TAHU?? Dalam rintihan lelakaq sasak sering aku bercerita Tentang langit jingga, tentang gunung yang berdiri megah Ditanah yang tak bernama.. Baru sekali aku menemukanya… Dulu sebelum aku tidur nenekku sering bercerita   entah tentang cerita raja-raja sampai silsilah keluarga sebagi penghantar tidur malamku Tapi .. tak pernah tentang tanah ini, Di tanahku daun berguguran hanya seperempat musim saja Selebihnya daun-daun hijau sesekali jatuh namun menjadi humus Ber re_inkarnasi menjadi daun-daun baru atau sebagai ayah untuk daun-daun yang lama. Dua batang bunga melati maasih menyulam hidup di dahan pepohonan tua Entah sampai kapan,, ? Seolah tak punya harapan.. Sering aku berdiskusi dengan angin malam Menikmati hembusan angin yang Nampak mulai tak damai,, Tak juga dingin Tak sedamai gendongan inaq dikala bayi, tak sedingin pelukan mamiq dikala terik..? Kadang aku tersenyum sendiri,, mengapa aku hidup disini,, Coba mengelana bagai raja pejanggik dalam dongeng Apa un...
Baca selengkapnya