cara koneksi ke mysql dari vb menggunakan mysql odbc Januari 6, 2008
Posted by samsonasik in Tutorial VB.trackback
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 Sub
——————–
Run (F5), selamat mencoba…
wuihh bagus boss
)
)
cocok bgt kek pemula seperti saya
sering2 aja ya boss d upload yg kyak beginian
===== sukses terus boos =====
amin
Bos kalo bisa kirimin yang lebih jelas lagi dounk ke faridh_wisanggeni@yahoo.com
gw bener2 makaci bngt klo loe bisa bantu gw….
tapi gw bener2 awam bgt….
cara instal mysql gimana c
tau downloadnya ga????
insya Allah nanti dikirim ke emailnya Fariedh
ajarin vb ama skuel donk….
:d boleh, kapan?
suwun mass..kulho coba e riyen…
mas minta contoh tuk baca data dari data base mysql bawaan dari xamp yang dibaca dengan menggunakan vb dunk???makasih sebelumnya.kirim ja ke mailku ini mas (yasin_g2@yahoo.com)
mas, tau ga gimana caranya mengambil nilai dari datagrid.
saya coba pake datagrid1.coloums(1), dst… ga bisa je malah caption/header dari datagrid trsbt berubah sesuai dengean nilai datagrid1.coloums(1).
Tlg ya mas kl bisa cos penting bgt buat TA saya..
makasih bnyak sebelumnya..
tlg krm ke e-mail saya aja ( it_worker2001@yahoo.com )
ms thanks yach
tips yg kmrn..
ote bgt…
skalian donk minta jspnya hehe
itu khan klo kita mo jadi server…klo misalnya kita mo connect ke database mysql yang di hosting di tempat lain bisa ga?? apa perlu pake mysql odbc driver?? soalnya gw mo ngehubungin website dengan VB, spy klo updating ga harus buka website dulu…
tergantung di tempat hosting firewall buat port MySQL dibuka/diflush ga? kalau ditutup ya ga bisa, kalau dibuka, ada kemungkinan bisa diakses.
bos gimana kalo kita ngakses mysqlnya ke komputer lain???
aku nyoba koq gagal yah…..??
thanks yha..
port mysql di komputer lain itu ditutup sama firewall ga? kalau ditutup, kemungkinan ga bisa diakses, ehm…, terus lihat lagi, di mysql user dengan host ip server mysql tersebut ada ga , misalnya, root@10.1.1.1 (server), jangan2 cuma buat localhost aja
paten woi, aku bisa akses ke komputer server. tapi bos, aku minta koneksi ke oracle dunk….. please.
mas punya tutorial wat vb ga??modul sql server yang ngebahas tentang CFSET ama contoh aplikasinya.mohon bantuan nya.klo bisa kirim ke email aku(srinuritaatu@yahoo.co.id)thx…
mas kirimin driver my sql odbc nya donk spya bisa connect k vb…
cepetan y mas…
coz aq ad tugas kuliah nih…..kirimin k emailku
krypton40@yahoo.com
thanks
mending download langsung deh, di http://dev.mysql.com/downloads/connector/odbc/5.1.html , soalnya filenya gede banget kalau diupload via email, lagian kalau aplikasi biasanya agak susah untuk uploadnya, karena kadang2 suka dianggap virus oleh spam filtering email
,
keren lah..
saya cari2 cara merukunkan lisensi dengan opensource..
caranya seperti ini kali ya?
wah keren euy.
bikin dong software buat toko saya.
ehm…, boleh, asal harganya cocok aja :d
Jangan mo ngirim apa-apa ke alamat email mereka yang minta dikirimin email mas, mereka itu orang-orang males. Suruh cari ndiri aja.
saya sudah melakukan semuanya tapi kok pada saat memilih databasenya kok g ada databasenya ya?padahal sudah saya create..
odbc nya udah diinstall ??? kalau udah, ada dua kemungkinan, pertama, odbc-nya ga support dengan mysql nya, kedua, user dan password yang dimasukkan tidak sama dengan user admin punya mysqlnya.
semoga membantu
Assalamu’alaikum,
salam kenal, saya dian, thanks ya bwt tutorialnya, skrng saya lg mencoba bwt aplikasi VB dg menggunakan DB mySql..
Wassalam
pak, saya sudah mencoba dan ternyata bisa tetapi…setelah saya coba di kompi laen kok g bisa ya?knp?padahal satu jaringan…
terima kasih..
dibuat client server ya? ya pastikan kita isi nama server dengan benar, serta pastikan juga firewall untuk mysql dibuka.
Tolong kasih tau tempat hosting yang memperbolehkan untuk connect ke database mysql pake VB.
sepanjang yang saya ketahui, biasanya hosting tidak memperbolehkan koneksi ke database dari client secara langsung(remote) , aplikasi biasanya ada di sisi server. biasanya, yang diperbolehkan itu ftp, atau http.
pak , bagaiman membuat link dari vb? sehingga kalo mo buka website dari vb.
terus selanjutnya saya mau mengambil data yang ada di server, bisa tidak saya menggunakan vb untuk mengambil datanya?seandainya bisa bagaimana codingnya pak?datanya ber-extensi *.doc
terima kasih.
bisa dilihat di sini
http://www.geocities.com/visiweb/vb/weblink/index.html
bos bisa minta sintax buat nyimpan ke dalam database mysql pake vb 6.0 donk..
download aja modulnya di sini (tinggal ubah coding koneksi spt di atas):
1. http://www.4shared.com/file/40670356/279b5cab/MODUL1_VB.html
2. http://www.4shared.com/file/40670458/c56c6729/MODUL2_VB.html
numpang nanya dong,
Public Sub connections()
Set con = New ADODB.Connection
con.CursorLocation = adUseClient
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 = “datahardware”
db_server = “localhost” ‘ganti jika server anda ada di komputer lain
db_port = “3306″ ‘default port is 3306
db_user = “adi” ’sebaiknya pakai username lain.
db_pass = “intermilan”
‘/buat connection string
koneksi = “DRIVER={MySQL ODBC 3.51 Driver};SERVER=” & db_server & “;DATABASE=” & db_name & “;UID=” & db_user & “;PWD=” & db_pass & “;PORT=” & db_port & “;OPTION=3″
con.ConnectionString = koneksi
con.Open
end sub
setelah aplikasi aq run koq ada pesan error “[Microsoft ODBC Driver Manager]Data Source Name not found and no default driver spesified ”
untuk Mysql connector ODBC jg udh aq instal??
kira2 kesalahnnya pa ya, mohon pencerahannya.
terima kasih,
pakai odbc versi berapa ? kalau url koneksi nya, mending jangan ditulis manual, tapi dicopy paste dari komponen adodc, (walaupun nantinya tetep pakai adodb).
mas,, pake adodb tuh yg mana sih?,, aku taunya adodc tuh…,,
silakan baca dari awal lg tutorialnya.
untuk lebih jelasnya , bisa baca di wikipedia :
http://en.wikipedia.org/wiki/ActiveX_Data_Objects
mas saya tanya, gmana meng koneksikan dari komputer klien, tolong contohnya ya mas,
mas ada nga contoh koneksi untuk komputer clien
askum. ni gak ada yang bentuk pdf?? biar lebih lengkap gitu deh…. kalo ada kirim dund… wokey… noissefnoc_ym@yahoo.co.id ane tunggu… ^_^…waskum.
askum.menanggapi link comment 33 neh.waktu ane dwonload.kug isinya tentang ado yah…bukan odbc…???????????nah turs artikel buat odbcnya dimane yah??????tunjuk tunjuk pada saya dund…makasihhhhh…waskum.
saya hanya menjawab komentar sebelumnya. kan tinggal ngerubah string koneksinya ::).
sempurna, sangat membantu tugas kuliah saya. makasih banyak ya
ass.wr.wb.
mas salam kenal, saya baru2 ngunjungi website blog ini, langsung tertarik ma bahasannya ni, pengen nanya2 ni mas..
gimana caranya koneksi in VB.Net ma MySQL apa sama aj dengan VB 6 ?
yg diperlu diinstal apa aj ni ?
source code buat koneksinya kaya gimana mas ?
saya tunggu balasannya ya mas ke email saya :jhonnyz2yamapi@yahoo.com ..makasi, wasalam
kalau vb.Net udah ada fasilitasnya, tinggal pakai aja, contohnya di sini nih :
http://www.vbmysql.com/articles/vbnet-mysql-tutorials/the-vbnet-mysql-tutorial-part-3
atau cari di google banyak banget kok example nya.
, maaf belum bisa balas via email.
begitu lihat blog ini saya langsung tertarik, saya juga punya masalah nih..
1. mas, kalau mau ngehubungin website dengan VB atau VB dengan website gimana caranya ya ?, spy klo updating ga harus buka website dulu…
2. gimana cara ngebuka port mysql agar ga ditutup sama firewall?
thanks ya….
1. port mysql di web harus dibuka, nah, tinggal ngarahin servernya ke IP server yang dimaksud.
2. kalau di linux, kalau ga salah :
iptables -I INPUT -p tcp --dport 3306 -j ACCEPT
taruh aja di rc.local
kalau di windows, mudah banget, tinggal buka control panel, cari firewall, buka exception untuk mysql port 3306
semoga dapat membantu.
maksih mas, telah membantuku, untuk belajar mysql. ini kali pertama ku belajar mysql dan berhasil, suwon2
ya, sama-sama
mas sy mnta tlong unt kneksi mysql ke vbnya sy kurang jelas, unt code
Public Sub seleksimhs()
Set rsmhs = New ADODB.Recordset
rsmhs.Open “select * from mahasiswa”, con, adOpenDynamic, adLockOptimistic
End Sub
(untk code rsmhs itu dari mana dan code form mahasiswa itu tabelnya atau nama databasesnya)
trus code
Private Sub Form_Load()
konekdb
seleksimhs
Set DataGrid1.DataSource = rsmhs
End Sub
(seleksimhs itu darimana, trs harus pakek DataGrid ya mas saya pakek ADODC apkh bisa)
tolong dibantu ya mas ??? ditunggu balasanya makasih ????
rsmhs itu definisi recordset yg nanti bisa menampung array dari record table atau table table.
mahasiswa itu nama table
)
(coba mas adidistroyet belajar query dulu deh, supaya lebih paham
seleksimhs itu nama method buat mengisi recordset rsmhs dengan data mahasiswa
DataGrid itu hanya urusan view nya aja, kalau ADODC & ADODB itu untuk koneksi, sama2 bisa dipakai kok, cuma kalau ADODC lebih mengedepankan komponen, sedang ADODB, lebih ke flexibilitas dalam mengcode suatu program.
mantap tutorialnya..
Pak Mau tanya gmn ubah coding dari vb 6 ini ke vb.net 2008
Public Function LookUpST(ByRef adcCON As ADODB.Connection, ByVal strSTT As String, Optional ByVal vntHasil As String = “”, Optional ByVal vntRETURN As String = “”, Optional ByVal vntNEXT As String = “”, Optional ByVal vntNEXT_TO As String = “”) As Boolean
On Error GoTo ErrHndl
Dim adrLook As New ADODB.Recordset
adrLook.CursorLocation = ADODB.CursorLocationEnum.adUseClient
adrLook.Open(strSTT, adcCON, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockPessimistic)
If adrLook.RecordCount > 0 Then
adrLook.MoveFirst()
If Not IsDBNull(vntHasil) Then
vntHasil = CStr(IIf(IsNothing(adrLook(0)), Nothing, adrLook(0)).value)
End If
If Not IsDBNull(vntRETURN) Then
vntRETURN = IIf(IsNothing(adrLook(1)), Nothing, adrLook(1))
End If
If Not IsDBNull(vntNEXT) Then
vntNEXT = CStr(IIf(IsNothing(adrLook(2)), Nothing, adrLook(2)).value)
End If
If Not IsDBNull(vntNEXT_TO) Then
vntNEXT_TO = CStr(IIf(IsNothing(adrLook(3)), Nothing, adrLook(3)).value)
End If
adrLook.Close()
LookUpST = True
Else
vntHasil = “”
vntRETURN = “”
vntNEXT = “”
vntNEXT_TO = “”
LookUpST = False
End If
adrLook = Nothing
Exit Function
ErrHndl:
LookUpST = False
MsgBox(Err.Description, vbCritical, “Error”)
End Function
terima kasih sebelumnya
lah, tinggal pakai aja kan? itu kan udah ada function nya…, tinggal isi parameternya.
pada syntax diatas terdapat error
di syntax ini
“If Not IsDBNull(vntRETURN) Then
vntRETURN = IIf(IsNothing(adrLook(1)), Nothing, adrLook(1))
End If”
error nya adalah “Item cannot be found in the collection corresponding to the requested name or ordinal.”
begitu seterusnya hingga kebawah.
berarti namakolom tidak ketemu dalam recordset yg dihasilkan.
uhhmm…
berarti salah di database? bukan di syntax?
give me solution please
klo mysqlserver yang bisa konek lgs ke komputer kita coba goolgleing free mysql server sy ketemu dua mysql server yg bagus, tp ga bisa nympan php. coba bluesql.net. utk publish web (php atau html) bs di free hosting lainnya. lalu klo udah, databasenya bs diakses dgn vb di berbagai kompter lainnya di dunia
Makasih mas,..saya jadi bisa,..thanx’s yach,..
mas ko masih lom bs ya koneksi vb ke webserver padahal firewall dah dibuka ..
coba buka phpmyadmin or tools lain, masuk ke privileges -> add new user -> isi username, host nya kosongkan / any/ atau %, isi password, check all Global privileges, smg berhasil.
SAYA NAK TAU MCM MNE CODING VB 2008 OR 2010 UNTUK LINK KE DATABASE….TOLOMG SY…ADA APA2 MKLUMAT MSG KT YM SY ..
mai_hunter@yahoo.com
bisa dilihat di http://dev.mysql.com/tech-resources/articles/ebonat-connection-string-vb-net.html
di .NET object connection nya udah lengkap kok
mas, klo username n password database diisi oleh user ketika login dari program, gmn cara ngecek username n password itu ya mas (u/ bisa koneksi ke db-nya)?
yah, kan intinya adalah mencocokkan inputan terhadap isi database. kita bisa membuat method untuk menghitung jml record di database yg cocok dengan inputan kita, misal :
Public sub cekLogin(username As String, password As String)
rsmhs.Open “select * from t_users where username = ‘”+username+”‘ and password = ‘”+password+”, con, adOpenDynamic, adLockOptimistic
If rs.RecordCount 0 Then
MDISuccess.Show
Else
MsgBox “Username Or Password Is Invalid”
End If
End Sub
Nah, nanti pas event button login diklik, kita panggil aja : Call cekLogin(username.text,password.text)
tq mas. ud bisa.
btw, ada tutorial cara nampilin crystal report di vb ga mas? Karna saya lg pusing bgt nh mas, ga ketemu solusi errornya (“Server has not yet been opened” –> I hate that word.. T.T)