Lompat ke konten Lompat ke sidebar Lompat ke footer

Cara Load Data Ke Recordset


Untuk VB.6 Codingnya Adalah :
    Dim djie_rec As New ADODB.Recordset
    Set djie_rec = active_con.Execute("SELECT * FROM biodata ORDER BY kode ASC")


    With djie_rec
        If .EOF = False Or .BOF = False Then
            'Data ditemukan, maka bisa di aplikasikan tergantung kebutuhan
            'Contoh di aplikasikan ke ListView
     
            'Generate Column Header
            For i = 0 To .Fields.Count - 1
                djie_ListView1.ColumnHeaders.Add , , .Fields(i).Name
            Next
           'Load Data           
            Do While .EOF = False
                djie_ListView1.ListItems.Add , , .Fields(0).Value
                For i = 1 To .Fields.Count - 1
                    djie_ListView1.ListItems(djie_ListView1.ListItems.Count).ListSubItems.Add , , .Fields(i).Value
                Next
                .MoveNext
            Loop

        Else
            MsgBox "Data Tidak Ada Di Database !", vbExclamation, "Message"
        End If
        .Close
    End With

Posting Komentar untuk "Cara Load Data Ke Recordset"