Cara Menyimpan Data Ke Dalam Database Access Dengan VB6

Sebelumnya kami ucapkan terimakasih karena telah menyempatkan diri kembali untuk datang ke blog kami. Pada kesempatan berikut ini kami ingin menyajikan informasi untuk programmer khususnya yang menggunakan VB 6. Kami buat artikel ini karena kebutuhan mahasiswa yang ingin menjadi programmer. Judul artikel kali ini adalah Cara Menyimpan Data Ke dalam Database Access dengan VB 6.


Berikut dibawah ini Cara Menyimpan Data Ke Dalam Database Access Dengan VB6.

1. Pertama-tama buatlah form design berikut ini





2. Masukkan script berikut ini



Dim Db As New ADODB.Connection
Private Sub Koneksi()
Dim Constr As String

Constr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\DbLatihan.accdb"
Db.Open Constr

End Sub

Private Sub ListViewData()
Dim sql As String
Dim rs As New ADODB.Recordset
Dim Ldata As ListItem

sql = "Select * From tbBarang"
rs.Open sql, Db, adOpenDynamic, adLockOptimistic

ListView1.ListItems.Clear

Do While Not rs.EOF
    Set Ldata = ListView1.ListItems.Add(, , rs.Fields("KodeBarang"))
        Ldata.SubItems(1) = rs.Fields("NamaBarang")
        Ldata.SubItems(2) = rs.Fields("Harga")
    rs.MoveNext
Loop
End Sub

Private Sub CmdSimpan_Click()
Dim sql As String

sql = "Insert into tbBarang (KodeBarang,NamaBarang,Harga) " & vbCrLf & _
      "Values ('" & txtKodeBarang & "','" & txtNamaBarang & "'," & txtHarga & ")"

Db.Execute sql

MsgBox "Data berhasil disimpan!", vbInformation

ListViewData
End Sub

Private Sub Form_Load()
    Call Koneksi
    Call ListViewData
End Sub




3. Coba isi satu-persatu textbox lalu coba tekan tombol Simpan




4. Hasilnya akan terlihat didalam listview

Singkat itu saja yang kami bisa berikan pada kesempatan ini. Jangan lupa sering datang ke blog kami ini. 

Related Posts:

Tweet