Koneksi database MySQL online dengan Visual Basic 6.0

Baca Juga

Melanjutkan posting sebelumnya, berikut cara koneksi database MySQL online dengan Visual Basic 6.0, sebelumnya anda harus mengikuti posting saya sebelumnya tentang Koneksi MySQL - online dengan bantuan DSN - ODBC

1. Menggunakan Adodc.

tambahkan sebuah adodc dan datagrid pada sebuah form, klik kanan pada Adodc untuk mengatur proprties-nya sebagai berikut :
- pada tab General, pilih option 'Use ODBC Data Source Name', kemudian pilih salah satu nama DSN-nya.

- pada tab RecordSource, command type pilih adCmdTable dan cari nama tabel pada kotak dibawahnya.

Selanjutnya hubungkan datagrid dengan adodc, dengan cara set proprties datagrid, pada datasource pilih Adodc1.

2. Menggunakan ADODB
    Berikut adalah code-nya :

Dim con As ADODB.Connection

Dim rs As ADODB.Recordset

Private Sub Form_Load()

Set con = New ADODB.Connection

con.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=myodbc2"

con.Open

setdatagrid

End Sub

Sub setdatagrid()

On Error Resume Next

Set rs = New ADODB.Recordset

rs.CursorLocation = adUseClient

rs.Open "select * from t_mahasiswa", con

Set DataGrid1.DataSource = rs

DataGrid1.Refresh

End Sub

Sebelumnya tambahkan sebuah datagrid kedalam form. Demikian bila masih bingung Anda bisa download source codenya pada link dibawah ini :

http://www.ziddu.com/download/17968796/dbonline.rar.html

Note : Kalau nyoba source-nya komputer harus terkoneksi internet :)

Link Baru, klik tombol download dibawah ini :

DOWNLOAD