Koneksi Visual Basic 6 Ke MySQL

koneksi Visual Basic 6 Ke MySQL
Visual Basic 6 dapat berkomunikasi aplikasi database MySQL.
Buatlah prosedur baru di form MDI anda atau di Module (dan pastikan kalau di Module,
prosedur anda adalah Public sehingga dapat dipanggil dari form utama anda). Berikan
nama prosedur itu yang mewakili dengan koneksi anda. Misalnya, buat koneksi.
Prosedur yang saya buat adalah sebagai berikut:
Private Sub buat_koneksi()
Dim ConnString As String
Dim db_name As String
Dim db_server As String
Dim db_port As String
Dim db_user As String
Dim db_pass As String
'//error traping
On Error GoTo buat_koneksi_Error
'/isi variable
db_name = "databaseku"
db_server = "localhost" 'ganti jika server anda ada di komputer lain
db_port = "3306" 'default port is 3306
db_user = "root" 'sebaiknya pakai username lain.
db_pass = "password_anda"
'/buat connection string
ConnString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & db_server &
";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass &
";PORT=" & db_port & ";OPTION=3"
'/buka koneksi
With Conn
.ConnectionString = ConnString
.Open
End With
'___________________________________________________________
On Error GoTo 0
Exit Sub
buat_koneksi_Error:
MsgBox "Ada kesalahan dengan server, periksa apakah server sudah
berjalan !", vbInformation, "Cek Server"
End Sub
Untuk memanggil prosedur itu, cukup panggil di form utama anda (atau form dimana
anda mau memulai koneksi anda) dengan mengetik
call buka_koneksi
atau
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 2
buka_koneksi
saja.
Dan jangan lupa untuk membuat object Conn dulu dan biasanya variable Conn ini dibuat
secara Public sehingga bisa dipanggil dimana saja. Biasaya saya buat disuatu Module
yang isinya adalah koleksi variable Public. Nyatakan variable tersebut dengan
menuliskan:
Public Conn As New ADODB.Connection
Dan seperti biasa, ketika anda menutup aplikasi, anda harus menutup dulu koneksi anda
ke MySQL. Biasanya prosedur tutup koneksi ini saya taruh di blok MDIForm_Unload.
If Conn.State = adStateOpen Or Conn.State = adStateConnecting Then
Conn.Close
Set Conn = Nothing
End If
Nah, itu bagian pertama dalam membuat aplikasi Visual Basic 6 dan MySQL, untuk
selanjutnya kita akan berdiskusi tentang cara membuka tabel-tabel yang ada di MySQL.
Cara ke 2
cara koneksi ke mysql dari vb menggunakan
mysql odbc
Januari 6, 2008 samsonasik Tinggalkan komentar Go to comments
1. Install vbnya
2. Download mysql odbc-nya, install
3. create database di mysql, misalnya infoonline
4. use infoonline ==> create table mahasiswa
5. masuk ke control panel, switch ke classic view aja.
6. masuk ke Administrative Tools –> Data Source (ODBC)
7. Di tag user DSN, klik Add
8. pilih mysql odbc driver, –> klik finish
9. akan tampil panel odbc connector
10. isi datasource name, misal ikhsanganteng, description (kosongin juga
boleh),server(defaultnya localhost),User nya root, password (default kosong), pilih
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 3
databasenya
11. Klik Test… (success, connection was made) berarti telah sukses buat koneksi, klik ok
12. Sekarang, masuk ke vbnya, klik menu project — > references — > pilih Microsoft
ActiveX Data Objects 2.0 Library dan Microsoft ActiveX Data Object RecordSet 2.8
Library
13. Di project Explorer, tambahkan module, add module
14. Isikan coding koneksi dan seleksi mahasiswa
Public con As New ADODB.Connection
Public rsmhs As New ADODB.Recordset
Public Sub konekdb()
Set con = New ADODB.Connection
‘ connection provider kalau ragu, ambil dari adodc,
‘build, isi bagian pada tag connection, isi datasource namenya,
‘pilih ikhsanganteng, ok, copy connection stringnya
con.Open “Provider=MSDASQL.1;Persist Security Info=False;Data
Source=ikhsanganteng”
con.CursorLocation = adUseClient
End Sub
Public Sub seleksimhs()
Set rsmhs = New ADODB.Recordset
rsmhs.Open “select * from mahasiswa”, con, adOpenDynamic, adLockOptimistic
End Sub
——————-
Kalau udah, di form, tambahkan komponen datagrid, double klik formnya
‘tambahkan coding berikut pada form_Load
Private Sub Form_Load()
konekdb
seleksimhs
Set DataGrid1.DataSource = rsmhs
End Sub
——————–
Run (F5), selamat mencoba…
Cara ke 3
Mon, 22 Oct 2007 23:54:23 -0700
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 4
Untuk koneksi dari vb6 ke mysql:
Buat di module
Public CON As New ADODB.Connection
Public RST As New ADODB.Recordset
Public Function ConnectMysql(UserName As String, Passwd As String,
ServerIP
As String, DB As String, CON As ADODB.Connection, RST As
ADODB.Recordset)
Set CON = New ADODB.Connection
Set RST = New ADODB.Recordset
CON.CursorLocation = adUseClient
CON.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" &
ServerIP & ";UID=" & UserName & ";PWD=" & Passwd & ";DATABASE=" & DB &
";" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 163841
CON.Open
End Function
Udah gitu dipanggil saat mau melakukan koneksi
Call ConnectMysql("username", "password", "localhost", "databasename",
CON,
RST)
From: Programmer-VB@yahoogroups.com [EMAIL PROTECTED]
On Behalf Of Tony G
Sent: 19 Oktober 2007 1:16
To: Programmer-VB@yahoogroups.com
Subject: Re: [Programmer-VB] Tanya koneksi VB ke MySQL
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 5
Mas Hendy,
setau saya (yang juga masih awam), cara terbaik untuk mengkoneksi mysql
ke
applikasi diluar PHP
(vb6, vb.net delphi, C++ or other, ) adalah dengan menggunakan ODBC,
kalo ga
salah di mysql
(kalo saya pake mysql 5) udah ada driver MYODBC yang bisa diinstal
sehingga
ODBC
bisa mengenal driver mysql, setelah diinstal seperti biasa tinggal
membuat
koneksi DSN deh
(ga ada masalah selama masih 1 pc/server atau di PC yang udah
diinstallin
MYSQL client (udah di Grand ke server MySQL)..
tapi kalau ada di web lain (google misalnya :D), sorry belum tau
caranya,
mungkin databasenya harus di hack dulu kali ya, (hehe) trus dicopy
databasenya
itu juga kalo security nya bisa ditembus.
mungkin yang lain ada saran, para master?
On 10/8/07, Hendy Wibisono <[EMAIL PROTECTED]> wrote:
Dear All,
Bisa sharing cara mengkoneksi VB.NET ke MySQL... cuman databasenya ada
di web. Saya buta banget sih kalau masalah web... mungkin ada yang
sudah
pengalaman dan hal-hal apa yang perlu di perhatikan.
Cara ke empat
Jika anda benar sudah terbiasa dengan VB + Access, itu artinya anda sudah punya modal
untuk pemrograman lebih lanjut dengan menggunakan database jaringan, baik itu
MySQL ataupun SQLServer, karena meng-koding program untuk Database Access sama
dengan Database lainnya, sedikit perbedaan hanya terdapat pada cara melakukan koneksi
ke database saja.
Selama ini saya tidak tahu bagaimana anda melakukan koneksi ke database Ms. Access,
apakah dengan coding di dalam form/modul, atau anda menggunakan CONTROL
koneksi misal Control DATA atau ADODC. Sekedar saran, sebaiknya anda melakukan
koneksi dengan coding langsung didalam form/modul dari pada anda memanfaatkan
Control Koneksi (Control DATA/ADODC), hal ini berdasarkan beberapa alasan dan
pengalaman saya. Karena dengan menggunakan control ini, maka ini akan membuat
program terlalu kaku dalam membaca lokasi (PATH) database, misal di Properties telah
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 6
diatur lokasi database di C:\bla..bla.. maka saat anda pindahkan folder program anda ke
folder lain atau partisi lain, maka akan timbul ERROR.
Berikut script untuk koneksi ke database mySQL.
dan pastikan komputer anda telah terinstall : "mysql-connector-odbc-3.51.23-win32.msi"
Buat 1 modul, dan ketikkan kode berikut :
Code:
Public cn As ADODB.Connection
Public Function OpenMySQLDatabase()
On Error GoTo errOpenMySQLDatabase
Screen.MousePointer = vbHourglass
Set cn = New ADODB.Connection
cn.ConnectionTimeout = 5
cn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" &
NAMA_SERVER & _
";PORT=3306;" & _
"DATABASE=" & NAMA_DATABASE & _
";USER=" & USER ID DATABASE & _
";PASSWORD=" & PASSWORD_DATABASE & _
";OPTION=3;"
Screen.MousePointer = vbNormal
Ulang:
Exit Function
errOpenMySQLDatabase:
Screen.MousePointer = vbNormal
Resume Ulang
End Function
Selanjutnya anda cukup memanggil fungsi koneksi ke database MySQL ini cukup dengan
: Call OpenMySQLDatabase
Misal, koneksi ke MySQL database terjadi saat Event Load.
Code:
Private Sub Form_Load()
Call OpenMySQLDatabase
End Sub
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 7
Untuk melakukan tindakan lain, seperti SIMPAN, EDIT atau HAPUS, sama saja, anda
bisa lakukan seperti selama ini anda lakukan dengan Ms. Access.
Cara ke lima
koneksi vb ke mysql
by sukma on Sat 22 Nov 2008, 09:47
1. Install vbnya
2. Download mysql odbc-nya, install
3. create database di mysql, misalnya infoonline
4. use infoonline ==> create table mahasiswa
5. masuk ke control panel, switch ke classic view aja.
6. masuk ke Administrative Tools –> Data Source (ODBC)
7. Di tag user DSN, klik Add
8. pilih mysql odbc driver, –> klik finish
9. akan tampil panel odbc connector
10. isi datasource name, misal ikhsanganteng, description (kosongin juga
boleh),server(defaultnya localhost),User nya root, password (default kosong), pilih
databasenya
11. Klik Test… (success, connection was made) berarti telah sukses buat koneksi, klik ok
12. Sekarang, masuk ke vbnya, klik menu project — > references — > pilih Microsoft
ActiveX Data Objects 2.0 Library dan Microsoft ActiveX Data Object RecordSet 2.8
Library
13. Di project Explorer, tambahkan module, add module
14. Isikan coding koneksi dan seleksi mahasiswa
Public con As New ADODB.Connection
Public rsmhs As New ADODB.Recordset
Public Sub konekdb()
Set con = New ADODB.Connection
‘ connection provider kalau ragu, ambil dari adodc,
‘build, isi bagian pada tag connection, isi datasource namenya,
‘pilih ikhsanganteng, ok, copy connection stringnya
con.Open “Provider=MSDASQL.1;Persist Security Info=False;Data
Source=ikhsanganteng”
con.CursorLocation = adUseClient
End Sub
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 8
Public Sub seleksimhs()
Set rsmhs = New ADODB.Recordset
rsmhs.Open “select * from mahasiswa”, con, adOpenDynamic, adLockOptimistic
End Sub
——————-
Kalau udah, di form, tambahkan komponen datagrid, double klik formnya
‘tambahkan coding berikut pada form_Load
Private Sub Form_Load()
konekdb
seleksimhs
Set DataGrid1.DataSource = rsmhs
End Sub
——————–
scrip diatas cuma contoh untuk perintah sqlnya bisa dirubah dan di sesuaikan dengan
kebutuhan!
Cara ke enam
Koneksi Mysql Database menggunakan Visual Basic
Sebelum kita dapat menggunakan fasilitas Mysql.data obyek terlebih dahulu kita harus
menambahkannya ke dalam program VB melalui "Add reference". Obyek dan petunjuk
penggunaannya dapat diperoleh di situs Mysql berupa Mysql Connector NET. Berikut ini
adalah contoh cara koneksi ke database Mysql, penggunaan fungsi MysqlCommand dan
MysqlDataReader. Database contoh memiliki satu tabel bernama "satu", memiliki 3
kolom.
Dim cmd As New MySql.Data.MySqlClient.MySqlCommand
Dim connect As New MySql.Data.MySqlClient.MySqlConnection("Database=test;Data
Source=localhost;User Id=root")
Dim read As MySql.Data.MySqlClient.MySqlDataReader
' This call is required by the Windows Form Designer.
InitializeComponent()
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 9
cmd.CommandText = "SELECT * FROM `satu`"
cmd.Connection = connect
connect.Open()
read = cmd.ExecuteReader
While read.Read()
MessageBox.Show(read.GetString(1)) 'menampilkan masing - masing data pada kolom
ke dua.
End While
read.Close()
connect.Close()
cara ke tujuhhh (7)
Visual Basic – MySQL – VSFlexGrid – Crystal
Report (3) September 15, 2006
Posted by sarach in Crystal Report, MYSQL, Tips Programming, Visual Basic.
trackback
Selanjutnya, data akan kita tampilkan pada VSFlexgrid
dan terakhir Crystal report (Mudah2n dengan posting ini,
hutang saya sudah ter tebus …. hueuehueue.. 200x)
seblumnya, saya ucapkan mohon maaf jika banyak
email dan comment yg belum terbalas, juga terimakasih
atas segala dukungannya demi memajukan para coder
indonesia..
Insya Allah….
I. Buat tampilan seperti dibawah ini ,
dgn komposisi sebagai berikut :
1. satu buah combo box dengan nama CboFields
2. satu buah vsFlexgrid dengan nama VSFlexGrid1
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 10
3. dua buah command button dengan nama :
cmdprocess dan cmdprint
II. Berikut syntax2-nya :
1. Form load :Private Sub Form_Load()
Me.Left = 0
Me.Top = 0
Me.VSFlexGrid1.Rows = 1
Call SQLConnection
Me.CboFields.Clear
’syntax dibawah ini digunakan untuk mengisi combo box dengan
’nama2 filed dari table marketdetail
With objcmd
.ActiveConnection = objCnn
.CommandText = “show columns from marketdetail”
.CommandType = adCmdText
End With
Set objRst = objcmd.Execute
Do While objRst.EOF = False
Me.CboFields.AddItem objRst.Fields(0)
objRst.MoveNext
DoEvents
Loop
Call SQLDisconnection
End Sub
2. tombol Process (CmdProcess)
Private Sub CmdProcess_Click()
On Error GoTo erhan
Call SQLConnection
Dim i As Integer
Dim y As Integer
Dim cnt1 As Integer
i = 0
y = 0
If Len(Trim(Me.CboFields.Text)) = 0 Then
MsgBox “Please select Order By Selection !”, vbOKOnly + vbInformation
Exit Sub
End If
With objcmd
.ActiveConnection = objCnn
.CommandText = “Select * From marketdetail order by ” + Me.CboFields.Text + ”
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 11
asc”
.CommandType = adCmdText
End With
Set objRst = objcmd.Execute
If objRst.EOF = False Then
cnt1 = objRst.RecordCount
For i = 0 To objRst.Fields.Count – 1
Me.VSFlexGrid1.Rows = 1
Me.VSFlexGrid1.Cols = 11
Me.VSFlexGrid1.Row = 0
Me.VSFlexGrid1.Col = i + 1
Me.VSFlexGrid1.Text = objRst.Fields(i).Name
Me.VSFlexGrid1.CellFontBold = True
Next
i = 0
y = 1
Do While objRst.EOF = False
Me.VSFlexGrid1.Rows = Me.VSFlexGrid1.Rows + 1
For i = 0 To objRst.Fields.Count – 1
Me.VSFlexGrid1.TextMatrix(y, i + 1) = Trim(objRst.Fields(i))
DoEvents
Next i
y = y + 1
DoEvents
objRst.MoveNext
DoEvents
Loop
Else
Exit Sub
End If
Call SQLDisconnection
DoEvents
Me.VSFlexGrid1.AllowUserResizing = flexResizeBoth
i = 0
For i = 1 To 10
Me.VSFlexGrid1.MergeCol(i) = True
Next i
SortAndShow
VSFlexGrid1.MergeCells = 1
VSFlexGrid1.MergeCells = 2
‘
VSFlexGrid1.Subtotal flexSTSum, -1, 3, m_Fmt, , RGB(255, 0, 0), True
VSFlexGrid1.Subtotal flexSTSum, -1, 7, m_Fmt, , RGB(255, 0, 0), True
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 12
VSFlexGrid1.Subtotal flexSTSum, 1, 3, m_Fmt, , RGB(0, 0, 255), True
VSFlexGrid1.Subtotal flexSTSum, 1, 7, m_Fmt, , RGB(255, 0, 0), True
Exit Sub
erhan:
MsgBox Err.Description
Call SQLDisconnection
End Sub
”—– additional procedure
Sub SortAndShow()
Dim r%, c%
On Error GoTo erhan
VSFlexGrid1.Redraw = False
r = VSFlexGrid1.Row
c = VSFlexGrid1.Col
VSFlexGrid1.Col = 0
VSFlexGrid1.ColSel = VSFlexGrid1.Cols – 1
VSFlexGrid1.Row = r
VSFlexGrid1.Col = c
VSFlexGrid1.Redraw = True
Exit Sub
erhan:
MsgBox Err.Description
Resume Next
End Sub
3. tombol Print (cmdprint)
untuk tombol print ini pastikan reportnya sudah dibuat terlebih dahulu, dengan
nama file reportnya adalah “mymarket.rpt”
Private Sub CmdPrint_Click()
On Error GoTo erhan
LocText$ = LCase(App.path)
If Right$(App.path, 1) <> “\” Then LocText$ = LocText$ + “\”
CrystalReport1.Connect = strconnect
CrystalReport1.ReportFileName = LocText$ + “mymarket.rpt”
On Error GoTo erhan
CrystalReport1.Action = 0
Exit Sub
erhan:
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 13
MsgBox Err.Description
End Sub
jadi hasil akhirnya harusnya seperti ini :
dan seperti ini
Possibly related posts: (automatically generated)
· Monocrhome
· Info Tempel
· HRD Forum One Day Workshop Make Powerful & Meaningful Psychology
Report For…
Cara ke delapan
Koneksi Database Menggunakan PHP dan
MySQL
Monday, 21 November 2005
English version
Pembuatan situs web dinamis biasanya menggunakan database. PHP mensupport
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 14
beberapa database diantaranya adalah MySQL dan Oracle (support database Oracle
untuk Redhat 7 memerlukan kompilasi khusus, klik di sini untuk melihat artikel kompilasi
Apache agar support Oracle 9i).
Dalam artikel ini akan ditunjukkan cara koneksi database dengan MySQL dari PHP.
Secara umum langkah perintah-perintahnya adalah sebagai berikut (diasumsikan Web
server ada di alamat 192.168.1.2, menggunakan server database dengan alamat
192.168.1.1, user coba, password cobapsw, database prothelon, table tabel1) :
<?
mysql_connect('192.168.1.1','coba'.'cobapsw');
$data_buffer=mysql_query("select * from prothelon.tabel1");
while($data=mysql_fetch_row($data_buffer)){
echo("Ini adalah datanya $data[0], $data[1]<BR>");
}
mysql_close();
?>
Harap diperhatikan bahwa sebelum dapat diakses oleh PHP, maka perlu dibuat user
sebagaimana contoh dengan perintah MySQL sebagai berikut :
GRANT ALL on prothelon.* to coba@'192.168.1.2' identified by 'cobapsw';
Sangat mudah bukan ??
Pengen belajar sambil praktek? klik di sini.
Selamat mencoba..
Cara ke Sembilan (9)
amri wrote:
Gimana ya cara koneksi ke database Mysql menggunakan VB
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 15
Private Sub buat_koneksi()
Dim ConnString As String
Dim db_name As String
Dim db_server As String
Dim db_port As String
Dim db_user As String
Dim db_pass As String
'//error traping
On Error GoTo buat_koneksi_Error
'/isi variable
db_name = "databaseku"
db_server = "localhost" 'ganti jika server anda ada di komputer lain
db_port = "3306" 'default port is 3306
db_user = "root" 'sebaiknya pakai username lain.
db_pass = "password_anda"
'/buat connection string
ConnString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & db_server &
";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass &
";PORT=" & db_port & ";OPTION=3"
'/buka koneksi
With Conn
.ConnectionString = ConnString
.Open
End With
'___________________________________________________________
On Error GoTo 0
Exit Sub
buat_koneksi_Error:
MsgBox "Ada kesalahan dengan server, periksa apakah server sudah berjalan !",
vbInformation, "Cek Server"
End Sub
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 16
Cara ke sepuluh 10
c4nt1nk wrote:
amri wrote:
Gimana ya cara koneksi ke database Mysql menggunakan VB
Private Sub buat_koneksi()
Dim ConnString As String
Dim db_name As String
Dim db_server As String
Dim db_port As String
Dim db_user As String
Dim db_pass As String
'//error traping
On Error GoTo buat_koneksi_Error
'/isi variable
db_name = "databaseku"
db_server = "localhost" 'ganti jika server anda ada di komputer lain
db_port = "3306" 'default port is 3306
db_user = "root" 'sebaiknya pakai username lain.
db_pass = "password_anda"
'/buat connection string
ConnString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & db_server &
";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass &
";PORT=" & db_port & ";OPTION=3"
'/buka koneksi
With Conn
.ConnectionString = ConnString
.Open
End With
'___________________________________________________________
On Error GoTo 0
Exit Sub
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 17
buat_koneksi_Error:
MsgBox "Ada kesalahan dengan server, periksa apakah server sudah berjalan !",
vbInformation, "Cek Server"
End Sub
Cara ke sebelas (11)
Cara koneksi Vb MySQL
Jum`at, 26 Maret 2010 11:52:11 - oleh : prase_ehm
Bagaimana Visual Basic 6 dapat berkomunikasi aplikasi database MySQL.
Buatlah prosedur baru di form MDI anda atau di Module (dan pastikan kalau di Module,
prosedur anda adalah Public sehingga dapat dipanggil dari form utama anda). Berikan
nama prosedur itu yang mewakili dengan koneksi anda. Misalnya, buat koneksi.
Prosedur yang saya buat adalah sebagai berikut:
Private Sub buat_koneksi()
Dim ConnString As String
Dim db_name As String
Dim db_server As String
Dim db_port As String
Dim db_user As String
Dim db_pass As String
'//error traping
On Error GoTo buat_koneksi_Error
'/isi variable
db_name = "databaseku"
db_server = "localhost" 'ganti jika server anda ada di komputer lain
db_port = "3306" 'default port is 3306
db_user = "root" 'sebaiknya pakai username lain.
db_pass = "password_anda"
'/buat connection string
ConnString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & db_server &
";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass &
";PORT=" & db_port & ";OPTION=3"
'/buka koneksi
With Conn
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 18
.ConnectionString = ConnString
.Open
End With
'___________________________________________________________
On Error GoTo 0
Exit Sub
buat_koneksi_Error:
MsgBox "Ada kesalahan dengan server, periksa apakah server sudah
berjalan !", vbInformation, "Cek Server"
End Sub
Untuk memanggil prosedur itu, cukup panggil di form utama anda (atau form dimana
anda mau memulai koneksi anda) dengan mengetik
call buka_koneksi
atau
buka_koneksi
saja.
Dan jangan lupa untuk membuat object Conn dulu dan biasanya variable Conn ini dibuat
secara Public sehingga bisa dipanggil dimana saja. Biasaya saya buat disuatu Module
yang isinya adalah koleksi variable Public. Nyatakan variable tersebut dengan
menuliskan:
Public Conn As New ADODB.Connection
Dan seperti biasa, ketika anda menutup aplikasi, anda harus menutup dulu koneksi anda
ke MySQL. Biasanya prosedur tutup koneksi ini saya taruh di blok MDIForm_Unload.
If Conn.State = adStateOpen Or Conn.State = adStateConnecting Then
Conn.Close
Set Conn = Nothing
End If
Cara ke dua belas (12)
akoneksi antara vb dengan mysql control center. langkah – langkah yang hasul dilakukan:
1. Install My sql server 5.0 dikomputer
2. Install My sqlConnector/ODBC 5.0.5 dikomputer. kalau blum punya bisa
download di sini
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 19
3. Setelah selesai, buka control panel => administration tool => data sources(ODBC)
=> User DNS => klik add, pilih My Sql ODBC 5.0.5 Driver => finish
4. Kemudian Muncul
isikan: Data Source Name = “Waskito”
Dekripsi = ” ” (kosongin Aj)
Server = “localhost”
port = (default = 3306)
User = root
password =”sesuaikan pada password My Sql server”
Database =”pilih sesuai yang diinginkan”
==> test ==> OK
5. Buat koneksi di Data Source.
Dim rs as New ADODB.Recordset
rs.Open “SELECT * FROM tabelku”,”Provider=MS Remote;Data
Source=databaseku;” & _
“Remote Server=serverku;Remote Provider=SQLOLEDB;”
Bisa juga:
Dim DS as New RDS.DataSpace
Dim DF
Dim RS as ADODB.Recordset
Set DF = DS.CreateObject(“RDSServer.DataFactory”, “serverku”)
Set RS = DF.Query (“DSN=databaseku”, “SELECT * FROM tabelku”)
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 20
Cara ke tiga belas (13)
Koneksi VB dengan MySQL
November 17th, 2008 · No Comments
Visual Basic
Memang kebanyakan, VB dihubungkan dengan database SQL Server dan MS Access.
Awalnya pun saya bingung bagaimana cara menghubungkan VB dengan MySQL, dan
kini akan saya sharingkan kepada anda semua. Sebelumnya saya minta maaf kalo
mungkin cara yang saya gunakan tidak efektif, maklum belajar hehehhehehe.
Pertama kali anda harus menyiapkan connector MySQL agar database bisa terhubung
dengan vb. Bagi anda yang menginginkan software MySQL anda bisa email saya di
rach2pika@yahoo.com , insyaAllah gratis. Didalam paket paket MySql terdapat
Connector, Server, dan Tools. Semuanya harus diinstall (khusus pada server, client cukup
menggunakan connector-nya saja). Setelah semua diinstall Lakukan setting Data Sources.
Caranya, anda harus masuk Control Panel-Administrative Tool-Data Source(ODBC),
Kemudian pada tab User DSN dan tekan tombol Add User, lalu pilih driver MySQL
ODBC 3.51 Driver, maka akan muncul tampilan seperti berikut:
ODBC Data Source
Lalu lengkapi Field yang ada.
Data Source Name : Nama Data source ini optional, namun jangan sampai lupa dengan
DSN yang anda buat, karena DSN ini akan dipanggil untuk koneksi di VB.
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 21
Description : Hanya berisi uraian tentang ODBC yang anda gunakan, Apabila field ini
dikosongi juga tidak apa-apa.
Server : Server yang sedang anda gunakan. Apabila server terdapat pada komputer
pribadi anda, anda dapat mengisi dengan localhost atau 127.0.0.1 . Namun apabila
sebagai client, maka harus diisikan alamat IP server yang sedang digunakan.
User : Biasanya user yang dipakai MySQL adalah root, pemilihan nama user ini dapat
diubah pada saat instalasi MySQL server.
Password : Sama halnya dengan user, pemilihan password juga terdapat pada instalasi
MySQL Server.
Database : Adalah nama database yang telah anda buat. Anda dapat membuatnya pada
MySQL Administrator.
Tekan Tombol Test untuk membuktikan bahwa koneksi yang kita lakukan terhubung
dengan benar.
Pada VB anda bisa menggunakan ADODC Data Control dengan melakukan setting
properties sebagai berikut:
- Memilih DSN yang telah kita buat sebelumnya.
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 22
ADODC
- Pada tab Authentication, masukkan nama user dan password MySQL yang dibuat.
- Pada tab recordSource saya menyarankan agar menggunakan adCmdText, dengan
mengisikan query yang kita inginkan. Namun apabila data yang anda ingin akses terdapat
pada satu tabel, ada baiknya memilih adCmdTable dengan memilih tabel yang akan
diakses.
Dengan Cara ini anda telah menghubungkan VB dengan MySQL. Selamat mencoba.
Cara ke empat belas
Cara Koneksi ke My-SQLdari vb Menggunakan My-SQL
Odbc
Posted By http://ken-arok.blogspot.com abdi_joker On Friday, January 15th
2010 In Umum | Tags: SMK 1 TANGGUL ABDI |
1. Install vbnya
2. Download mysql odbc-nya, install
3. create database di mysql, misalnya infoonline
4. use infoonline ==> create table mahasiswa
5. masuk ke control panel, switch ke classic view aja.
6. masuk ke Administrative Tools –> Data Source (ODBC)
7. Di tag user DSN, klik Add
8. pilih mysql odbc driver, –> klik finish
9. akan tampil panel odbc connector
10. isi datasource name, misal ikhsanganteng, description (kosongin juga
boleh),server(defaultnya localhost),User nya root, password (default kosong), pilih
databasenya
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 23
11. Klik Test… (success, connection was made) berarti telah sukses buat koneksi, klik ok
12. Sekarang, masuk ke vbnya, klik menu project — > references — > pilih Microsoft
ActiveX Data Objects 2.0 Library dan Microsoft ActiveX Data Object RecordSet 2.8
Library
13. Di project Explorer, tambahkan module, add module
14. Isikan coding koneksi dan seleksi mahasiswa
Public con As New ADODB.Connection
Public rsmhs As New ADODB.Recordset
Public Sub konekdb()
Set con = New ADODB.Connection
‘ connection provider kalau ragu, ambil dari adodc,
‘build, isi bagian pada tag connection, isi datasource namenya,
‘pilih ikhsanganteng, ok, copy connection stringnya
con.Open “Provider=MSDASQL.1;Persist Security Info=False;Data
Source=ikhsanganteng”
con.CursorLocation = adUseClient
End Sub
Public Sub seleksimhs()
Set rsmhs = New ADODB.Recordset
rsmhs.Open “select * from mahasiswa”, con, adOpenDynamic, adLockOptimistic
End Sub
——————-
Kalau udah, di form, tambahkan komponen datagrid, double klik formnya
‘tambahkan coding berikut pada form_Load
Private Sub Form_Load()
konekdb
seleksimhs
Set DataGrid1.DataSource = rsmhs
End Sub4197_1120983064964_1238671616_30539117_1604438_n.jpg
Cara ke lima belas
Cara Koneksi ke My-SQLdari vb Menggunakan My-SQL
Odbc
Posted By http://ken-arok.blogspot.com abdi_joker On Friday, January 15th
2010 In Umum | Tags: SMK 1 TANGGUL ABDI |
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 24
1. Install vbnya
2. Download mysql odbc-nya, install
3. create database di mysql, misalnya infoonline
4. use infoonline ==> create table mahasiswa
5. masuk ke control panel, switch ke classic view aja.
6. masuk ke Administrative Tools –> Data Source (ODBC)
7. Di tag user DSN, klik Add
8. pilih mysql odbc driver, –> klik finish
9. akan tampil panel odbc connector
10. isi datasource name, misal ikhsanganteng, description (kosongin juga
boleh),server(defaultnya localhost),User nya root, password (default kosong), pilih
databasenya
11. Klik Test… (success, connection was made) berarti telah sukses buat koneksi, klik ok
12. Sekarang, masuk ke vbnya, klik menu project — > references — > pilih Microsoft
ActiveX Data Objects 2.0 Library dan Microsoft ActiveX Data Object RecordSet 2.8
Library
13. Di project Explorer, tambahkan module, add module
14. Isikan coding koneksi dan seleksi mahasiswa
Public con As New ADODB.Connection
Public rsmhs As New ADODB.Recordset
Public Sub konekdb()
Set con = New ADODB.Connection
‘ connection provider kalau ragu, ambil dari adodc,
‘build, isi bagian pada tag connection, isi datasource namenya,
‘pilih ikhsanganteng, ok, copy connection stringnya
con.Open “Provider=MSDASQL.1;Persist Security Info=False;Data
Source=ikhsanganteng”
con.CursorLocation = adUseClient
End Sub
Public Sub seleksimhs()
Set rsmhs = New ADODB.Recordset
rsmhs.Open “select * from mahasiswa”, con, adOpenDynamic, adLockOptimistic
End Sub
——————-
Kalau udah, di form, tambahkan komponen datagrid, double klik formnya
‘tambahkan coding berikut pada form_Load
Private Sub Form_Load()
konekdb
seleksimhs
Set DataGrid1.DataSource = rsmhs
End Sub4197_1120983064964_1238671616_30539117_1604438_n.jpg
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 25
Cara ke enam belas (16)
Sesuai janji saya di artikel ini, saya akan menulis tentang bagaimana aplikasi Visual
Basic 6 anda terkoneksi dengan MySQL. Saya beranggapan anda sudah belajar tentang
dasar-dasar Visual Basic 6. Artikel ini hanya akan membahas tentang bagaimana Visual
Basic 6 dapat berkomunikasi aplikasi database MySQL.
Buatlah prosedur baru di form MDI anda atau di Module (dan pastikan kalau di Module,
prosedur anda adalah Public sehingga dapat dipanggil dari form utama anda). Berikan
nama prosedur itu yang mewakili dengan koneksi anda. Misalnya, buat koneksi.
Prosedur yang saya buat adalah sebagai berikut:
Private Sub buat_koneksi()
Dim ConnString As String
Dim db_name As String
Dim db_server As String
Dim db_port As String
Dim db_user As String
Dim db_pass As String
'//error traping
On Error GoTo buat_koneksi_Error
'/isi variable
db_name = "databaseku"
db_server = "localhost" 'ganti jika server anda ada di komputer lain
db_port = "3306" 'default port is 3306
db_user = "root" 'sebaiknya pakai username lain.
db_pass = "password_anda"
'/buat connection string
ConnString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & db_server &
";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass &
";PORT=" & db_port & ";OPTION=3"
'/buka koneksi
With Conn
.ConnectionString = ConnString
.Open
End With
'___________________________________________________________
On Error GoTo 0
Exit Sub
buat_koneksi_Error:
MsgBox "Ada kesalahan dengan server, periksa apakah server sudah
berjalan !", vbInformation, "Cek Server"
End Sub
Untuk memanggil prosedur itu, cukup panggil di form utama anda (atau form dimana
anda mau memulai koneksi anda) dengan mengetik
call buka_koneksi
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 26
atau
buka_koneksi
saja.
Dan jangan lupa untuk membuat object Conn dulu dan biasanya variable Conn ini dibuat
secara Public sehingga bisa dipanggil dimana saja. Biasaya saya buat disuatu Module
yang isinya adalah koleksi variable Public. Nyatakan variable tersebut dengan
menuliskan:
Public Conn As New ADODB.Connection
Dan seperti biasa, ketika anda menutup aplikasi, anda harus menutup dulu koneksi anda
ke MySQL. Biasanya prosedur tutup koneksi ini saya taruh di blok MDIForm_Unload.
If Conn.State = adStateOpen Or Conn.State = adStateConnecting Then
Conn.Close
Set Conn = Nothing
End If
Cara ke tujuh belas (17)
Bagi Anda yang biasa membuat program pengolahan DataBase mungkin sudah tidak
asing lagi Untuk mengkoneksikan VB dengan MySQL. Untuk saat ini Data Base MySQL
memang sangat ideal, baik dari segi kecepatan maupun karena gratisnya. Sayang nya
memang MySQL tidak memiliki driver standard seperti Access atau SQL Server. Salah
Satu Solusi mungkin bisa menggunakan MyODBC untuk mengkoneksikannya. akan
tetapi, MyODBC memiliki kelemahan dari segi kecepatan, terutama jika data sudah
membengkak jumlahnya. Koneksi tanpa ODBC mungkin bisa menjadi solusi. Langsung
Pada inti aja mungkin, berikut langkah-langkah nya:
1. Download dan Install VbMySQLDirect (googling aja atau Klik Disini )
2. Buat Program Baru
3. Tambahin VbMySQLDirect ke Referensi program (Menu Project->References-
>VbMySQLDirect 1.0)
4. Tinggal definisiin variable buat koneksi dan Recordset
Contoh Penggunaan:
Dim koneksi As New MYSQL_CONNECTION
Dim Recset As New MYSQL_RS
Private Sub Form_Load()
NamaServer = "10.204.15.214"
UserID = "root"
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 27
Password = "123456"
dbName = "test"
koneksi.CursorLocation = adUseClient
koneksi.OpenConnection NamaServer, UserID ,Password, dbName
Recset.OpenRs "select * from t_contoh_data", koneksi, 3, 3
MsgBox "Data ke 1 = " & Recset.Fields("Cth1")
End Sub
Cara ke delapan belas (18)
Cara membuat form login di visual basic(vb6) dan menggunakan database mysql. Artikel
ini sekaligus menyambung artikel sebelumnya tentang koneksi vb6 mysql, yang belum
sempurna karena belum ada pembahasan mengenai resultset, nah disini nanti akan kita
bahas sekaligus bagaimana cara membuat form login di vb6 dan mysql dan mengakses
resultset mysql di vb6.
Sebelumnya yang kita butuhkan adalah database mysql, my sql connector dan vb6 itu
sendiri. langkah-langkahnya adalah sebagai berikut :
- buat database di mysql, kemudian buat tabel login
- buat desain form di visual basic
form-login-vb6-mysql
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 28
- Jangan lupa tambahkan reference rdo object pada project, baca disini
- buat variabel sebagai berikut :
Dim koneksi As New rdoConnection
Dim rQuery As New rdoQuery
Dim rs As rdoResultset
- Buat koneksi ke database pada event form_load
Private Sub Form_Load()
koneksi.Connect = “uid=root;pwd=root;server=localhost;driver={MySQL ODBC 3.51
Driver};database=testdb;” ‘ini nyambung dengan baris diatasnya
koneksi.EstablishConnection
End Sub
- Kode login pada cmdlogin_click adalah sebagai berikut :
Private Sub cmdlogin_Click()
rQuery.SQL = “select * from login where usr=’” + txtuser + “‘ and pass=’” +
txtpassword.Text + “‘”
rQuery.RowsetSize = 1
Set rQuery.ActiveConnection = koneksi
Set rs = rQuery.OpenResultset(rdOpenKeyset, rdConcurRowVer)
If rs.RowCount > 0 Then
MsgBox “login sukses”
Else
MsgBox “username atau password salah”
End If
rs.Close
End Sub
Jalankan vb6, pada contoh tabel login, datanya, username adalah admin dan password
admin, jika user menginput dengan benar, maka akan muncul messagebox, “Login
sukses” (bisa anda lanjutkan sendiri dengan memanggil form utama), dan jika user salah
dalam input, akan muncul messagebox “Username atau password salah”
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 29
login-sukses
login-gagal
cara ke Sembilan belas (19)
Saya kira di vb.net sudah bisa langsung koneksi ke database MySQL. Memang sintak nya
ada dan saya akui kumplit sekali (lebih kumplit dari Jamu Kumplit Sidomuncul), namun
sayang vb.net tidak menyertakan driver untuk koneksi ke MySQL. Memang sih vb.net
default nya ke database SQL Server atau juga ke MS Access dengan ODBC nya. Tetapi
karena saya datang dari dunia yang berbeda (dunia opensource) jadi ga jauh larinya ke
MySQL.
Cari sana cari sini, akhirnya dapet juga driver yang di butuhkan, thanks to Bro Adi
Permadi yang sudah kasih drivernya itu.
Bagi yang mau bisa download file nya disini <== Download
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 30
berikut screen shoot cara menggunakan nya :
1. Pada bagian menu pilih Project -> namaAplikasi Properties…
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 31
2. Lalu pilih References pada tab bagian kiri dan klik Add -> Reference…
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 32
3. Cari alamat dimana file Mysql.Data.Dll berada, dan pilih file itu
4. Jika sudah terpilih dan benar, maka driver Mysql itu ada dan terdaftar di
reference nya
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 33
Cara ke dua puluh (20)
Koneksi VB ke MySQL Server dengan MyODBC
kategori : Programming
ditulis oleh : rose_see
pada tanggal : 15/01/2008
telah dibaca : 1923 kali
Pernah dengar ODBC? Saya yakin 90% dari pembaca sudah sering mendengarkan dan
bahkan sudah memakainya. Benar!, ODBC (Open Database Connectivity) merupakan
standar dari Microsoft untuk melakukan koneksi ke berbagai database relasional. Dan
MyODBC adalah driver ODBC yang memungkinkan software yang memakainya bisa
berinteraksi dengan MySQL Server.
Driver MyODBC bisa diunduh (teman saya sering bilang begitu) dari mysql.com. Terus
tinggal double klik, klik dan seterusnya (gak usah dibahas y?. guampang kok).
Sebenarnya penulis sudah menggunakan Driver ini saat kuliah tapi dengan Delphi 7.0.
Sejak kenal dengan MySQL penulis jadi ketagihan ingin memakai database ini. Setelah
MySQl dengan PHP, Delphi, lalu penulis ingin tahu cara memakai VB tapi dengan
database MYSQL (biasanya penulis pake vb-access). Kemudian penulis menemukannya,
dan sekarang ingin membaginya kepada pembaca sekalian (for newbiz only). Kita
langsung saja, penulis sudah capek koar-koar terus. Saya anggap Anda sudah menginstall
MySQL + driver MyODBC dan tentunya VB6. Buka VB Anda.
Biasalah kalo pake VB harus tambah "sesuatu" dulu sebelum kita bisa memakai fasilitas
yang tidak standart:(. Klik menu Project - References, centang "Microsoft AxtiveX Data
Objects 2.6 Library". Dan tambahkan komponen "Microsoft Datagrid Control 6.0" untuk
contoh penggunaan koneksi untuk perintah MySQL sederhana, untuk yang sulit-sulit
silahkan coba sendiri :). Tambahkan komponen berikut pada form: DataGrid dan
CommandButton. Misalkan kita sudah mempunyai database, misal nama database kuliah
dan terdapat tabel user dalam database tersebut dan kita akan menampilkan isi dari tabel
tersebut. Buat variabel berikut:
Dim Koneksiq As String
Dim dbdata As Connection
Dim rsdata As Recordset
Dim Buka As Boolean
Pada form load ketikkan sintaks berikut:
Private Sub Form_Load()
Koneksiq = "DRIVER=MySQL ODBC 3.51 Driver; " & _
"DATABASE=kuliah; SERVER=localhost; " & _
"UID=root; PASSWORD=root;"
Set dbdata = New Connection
dbdata.CursorLocation = adUseClient
M.MUNIR NIZAR Selotambak Kraton Pasuruan Page 34
dbdata.Open Koneksiq
Buka = False
End Sub
Sudah pernah mengoneksikan Delphi dengan MySQL? Mirip khan?. Terus double klik
button dan ketikkan sintaks berikut:
Private Sub Command1_Click()
If Buka Then
DataGrid1.Visible = False
rsdata.Close
Set rsdata = Nothing
End If
Set rsdata = New Recordset
DataGrid1.Visible = True
DataGrid1.Caption = "Isi tabel User"
Set rsdata = New Recordset
rsdata.Open "select * from user;", dbdata
Set DataGrid1.DataSource = rsdata.DataSource
Buka = True
End Sub
Kemudian compile aplikasi tersebut. Berikut adalah contoh hasil dari sintaks diatas.
Contoh tersebut diatas hanyalah contoh sederhana dan bisa dikembangkan lebih lanjut,
dan Anda tentu bisa lebih hebat. Selamat mencoba :).
Wasslam