Menampilkan Data Tabel SQL ke DataGrid Tanpa Menggunakan Component ADOCD

Ok Sobat.. Kali ini saya akan menjelaskan bagaimana cara nya Menampilkan data tabel yang ada di SQL ke dataGrid Visual Basic 6 pada Form Master atau Form Utama tanpa Menggunakan Komponen Adocd1.

Perhatikan Langkah-langkah nya sebagai berikut :

1. Sebelum nya kalian buka Dulu ODBC yang sudah terinstall di PC kalian,kemudian ambil file data SQL yang mau di koneksikan atau yang mau di masuka ke datagrid,jika melalui Test Connection Ok.,berarti file tersebut sudah bisa masuk ke dataGrid yang ada di Form.

Perhatikan seperti pada Gambar di bawah ini :



2. kemudian langkah selanjut nya adalah,silahkan buka Visual Basic 6.0 anda,lalu buka Form yang sudah ada dataGrid nya yang hendak di isi,kemudian buat settingan seperti pada gambar di bawah ini pada TabBar menu.



3. Kemudian langkah selanjutnya adalah memasukan Source Code ke dalam form.
form di bawah ini adalah "Running" Sebelum di masukan Source Code



Masukan Source Code di bawah ini ke dalam Form dengan MengKlick Form 2 kali.

'Variabel Koneksi dari SQL ke Form'

Dim judul As String
Public con As New ADODB.Connection
Public rsdata As New ADODB.Recordset

Public Sub koneksi()
On Error GoTo er
Set con = New ADODB.Connection
Set rsdata = New ADODB.Recordset
con.Open "Driver={MySQL ODBC 5.1 Driver};server=localhost;database=pulsa;uid=root;pwd=ibnusabil;"
con.CursorLocation = adUseClient
Exit Sub
er:
 MsgBox "Gagal Loading Database", vbInformation, "Database Error"
End Sub

'Pulsa adalah Data Tabel SQL saya,Silahkan anda ganti dengan data Tabel SQL yang anda inginkan.'..MySQL ODBC 5.1 silahkan anda ganti jika anda menggunakan MySQL ODBC 3.1

Jika koneksi nya tidak terhubung,maka begitu di "Run" akan Keluar Pesan Box.. silahkan anda "run" dulu untuk mencoba Source Code Variabel nya,mudah2 emang cocok dengan Form anda.. Hehehe.

===================================================
Kemudian selanjut nya masukan Source Code di bawah ini :
Source code di bawah ini untuk memasukan Data Tabel dari SQL ke Datagrid1

Public Sub dtgrid()
Set rsdata = New ADODB.Recordset
    rsdata.ActiveConnection = con
    rsdata.CursorLocation = adUseClient
    rsdata.CursorType = adOpenDynamic
    rsdata.LockType = adLockOptimistic
    rsdata.Source = "SELECT * FROM pulsa "
    rsdata.Open
End Sub

Silahkan Anda Ganti Nama Tabel SQL "Pulsa" dengan nama Tabel SQL Anda.

Jika koneksi nya tidak terhubung,maka begitu di "Run" akan Keluar Pesan Box.. silahkan anda "run" dulu untuk mencoba Source Code Variabel nya,mudah2 emang cocok dengan Form anda.. Hehehe.
===================================================

Kemudian selanjut nya masukan Source Code di bawah ini :
Source code di bawah ini untuk Menampilkan Data Tabel dari SQL ke Datagrid1 saat form di "Run".

Private Sub Form_Load()
Call koneksi
Call dtgrid
Set DataGrid1.DataSource = rsdata
With DataGrid1
End With
End Sub

Maka hasilnya akan terlihat seperti pada gambar di bawah ini :




Untuk lengkap nya seperti di bawah ini. 

Dim judul As String
Public con As New ADODB.Connection
Public rsdata As New ADODB.Recordset

Public Sub koneksi()
On Error GoTo er
Set con = New ADODB.Connection
Set rsdata = New ADODB.Recordset
con.Open "Driver={MySQL ODBC 5.1 Driver};server=localhost;database=pulsa;uid=root;pwd=ibnusabil;"
con.CursorLocation = adUseClient
Exit Sub
er:
 MsgBox "Gagal Loading Database", vbInformation, "Database Error"
End Sub
 
Public Sub dtgrid()
Set rsdata = New ADODB.Recordset
    rsdata.ActiveConnection = con
    rsdata.CursorLocation = adUseClient
    rsdata.CursorType = adOpenDynamic
    rsdata.LockType = adLockOptimistic
    rsdata.Source = "SELECT * FROM pulsa "
    rsdata.Open
End Sub

Private Sub Form_Load()
Call koneksi
Call dtgrid
Set DataGrid1.DataSource = rsdata
With DataGrid1
End With
End Sub


Untuk Button-button nya,silahkan anda buat sendiri,seperti Button Tambah,Edit,Cari,Hapus,dll.. itu urusan anda,saya cuma ngasih penjelasan awal nya aja,tapi nanti saya beritahu pada Session Berikut nya..

Selamat Mencoba...!! Semoga Bermanfaat dan barokah.. Amiin.. Hehehe.

Popular Posts