koneksi VB 6.0 dengan mysql odbc

October 21, 2008 at 4:10 am Leave a comment

Pertama download dulu driver connectionnya disini (kalau belum punya), jika sudah tinggal diinstall dan kemudian

1. Masuk ke control panel pilih yang classic view >Administrative Tools > Data Sources (ODBC)
2.  Di tag User DSN, klik Add, pilih mysql ODBC … driver > Finish
4.  Tampil  Connector / ODBC
5.  Data Source Name diisi misal konekmysql, Description (bisa dikosongi),  server (nama servernya, saya menggunakan localhost), usernya (diisi nama user yang ada dimysql, saya gunakan root), password diisi sesuai password mysql, Database diisi sesuai dengan database yang akan dikoneksikan>Test> jika success > OK > OK
6. Langkah selanjutnya buka VB, masuk ke menu Project — > References — > pilih Microsoft ActiveX  Data  Objects 2.0 Library dan Microsoft ActiveX Data Object RecordSet 2.8 Library
7. Pada project Explorer, pada projectnya klik kanan, add > module > Open
8. Isikan coding berikut

Public con As New ADODB.Connection
Public rstamu As New ADODB.Recordset
Public Sub koneksidb()
Set con = New ADODB.Connection
con.Open “Provider=MSDASQL.1;Persist Security Info=False;Data Source=konekmysql”
con.CursorLocation = adUseClient
End Sub
Public Sub seleksitamu()
‘tabel tamu harus sudah ada dimysql
Set rstamu = New ADODB.Recordset
rstamu.Open “select * from tamu”, con, adOpenDynamic, adLockOptimistic
End Sub

jika sudah untuk mengecek, masukkan Datagrid ke dalam form

kemudian pada form load tambahkan coding sbb :

Private Sub Form_Load()
koneksidb
seleksitamu
Set DataGrid1.DataSource = rstamu
End Sub

tinggal di run

hasinya

Entry filed under: Pemrograman Visual. Tags: .

Trik membuat tabel Frekuensi dengan SPSS Membuat web untuk login dengan servlet

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Trackback this post  |  Subscribe to the comments via RSS Feed


October 2008
M T W T F S S
« Sep   Nov »
 12345
6789101112
13141516171819
20212223242526
2728293031  

%d bloggers like this: