Akses Database MySQL dengan Visual Basic 6

Auto Date Saturday, January 11th, 2014

artha.web.id – Bila mencari metode Akses database Mysql menggunakan VB 6 melalui search engine semacam google, yahoo dan lainnya maka tidak sedikit website atau pun blog yang menyajikannya. berikut adalah teknik yang bisa digunakan:

1. Install terlebih dahulu Connector (MyODBC) (yang saya gunakan adalah versi 5.1) yang belum punya bisa download di http://goo.gl/XqdQWC

2. Pada mysql buat database:

CREATE DATABASE IF NOT EXISTS `testimoni` /*!40100 DEFAULT CHARACTER SET latin1 */; USE `testimoni`;

CREATE TABLE IF NOT EXISTS `tbtestimonia` ( `idtesti` int(10) NOT NULL AUTO_INCREMENT, `dari` varchar(255) NOT NULL DEFAULT ”, `email` varchar(255) NOT NULL DEFAULT ”, `teks` longtext NOT NULL, PRIMARY KEY (`idtesti`) ) ENGINE=InnoDB AUTO_INCREMENT=2 DEFAULT CHARSET=latin1;

3. Pada Visual Basic 6 buat 1 form dan 1 moduls. dimana pada modul akan digunakan untuk mendefinisikan variabel dan membuat fungsi untuk koneksi serta fungsi untuk memutuskan koneksi ke dalam database

Public cnn As New ADODB.Connection

Public Const cnnstring = “Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=’Driver=MySQL ODBC 5.1 Driver;SERVER=localhost;UID=root;PWD=;DATABASE=testimoni;PORT=3306′”

Public Function bukadb() As Boolean
On Error GoTo erorpagex
If cnn.State = adStateClosed Then
cnn.ConnectionString = cnnstring cnn.Open bukadb = (Err.Number = 0)
Else
bukadb = True
End If
Exit Function
erorpagex: MsgBox “Database base tidak bisa dibuka”, vbCritical + vbOKOnly, “Koneksi Gagal”
End
End

Function Public Function tutupdb()
On Error Resume Next
If Not (cnn.State = adStateClosed) Then
cnn.Close
End If
Set cnn = Nothing
End Function

Selanjutnya pada form bahkan object textbox dan label untuk menampilkan datanya

Selanjutnya pada bagian events isikan kode berikut

Private Sub Form_Load()
Dim rs As New ADODB.Recordset
If bukadb Then
sql = “Select dari,email,teksĀ  from tbtestimonia;”
Set rs = cnn.Execute(sql)
Text1.Text = rs(0)
Text2.Text = rs(1)
Text3.Text = rs(2)
If rs.State = adStateOpen Then rs.Close
tutupdb
End If
End Sub

silahkan lakukan pengembang lebih lanjut

Download Source Code: http://goo.gl/3LT7vf

Salam

Made Artha

Tinggalkan Komentar Anda