26 Desember 2011

Koneksi database MySQL online dengan Visual Basic 6.0

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 haris terkoneksi internet :)

Artikel Terkait Lainnya Seputar:



2 komentar:

  1. kak,,, bisa minta koding menyimpang data di Vb 6.0 yang koneksi dengan database MySQL....?

    BalasHapus
  2. mas ko contoh program ya ga ada lagi !!!

    BalasHapus