View Data dengan data Grid VB6

Materi ini adalah kelanjutan dari materi sebelumnya. pada materi ini menampilkan data di data grid dengan coding. adapun langkahnya setting dulu Micosoft ActiveX dengan cara klik menu Project Kemudian pilih Reference setelah itu pilih Microsoft Active

Lalu pilih OK, kemudian buatlah form dengan grid sebagai berikut:

setelah itu lakukan coding

Dim Koneksi As New ADODB.Connection
Dim Tbldata As New ADODB.Recordset

Private Sub Config_koneksi()

    Set Koneksi = Nothing
    Set Koneksi = New ADODB.Connection
    Koneksi.Open "DSN=Testkoneksi"

End Sub


Private Sub Form_Load()
Call Config_koneksi
    
    Set Tbldata = Nothing
    Set Tbldata = New ADODB.Recordset
    Tbldata.CursorLocation = adUseClient
    Tbldata.Open "SELECT * FROM suhu", Koneksi, adOpenDynamic, adLockBatchOptimistic
    
    Set DataGrid1.DataSource = Tbldata.DataSource
End Sub

“DSN=Testkoneksi” sesuaikan dengan nama DSN yang telah dibuat. kemudian untuk query SELECT * FROM suhu sesuaikan dengan apa yang mau di tampilkan.