para pakar vb minta tolong pencerahannya.
data bisa masuk ke database acces dan tampil ke list view, tapi begitu form
ditutup dan dibuka lagi data lama tidak tampil dilistview, mohon bantuanya para
pakar VB dan tolong dibetulkan codingnya kalau salah.
berikut koding vb yg aku buat :
Dim con As New ADODB.Connection
Dim rsalamat As New ADODB.Recordset
Dim Item As ListItem
Private Sub cmdSimpan_Click()
rsalamat.AddNew
rsalamat!Kode = txtKode.Text
rsalamat!Nama = txtNama.Text
rsalamat!Alamat = txtAlamat.Text
rsalamat!Telepon = txtTelepon.Text
rsalamat!keterangan = txtKeterangan.Text
rsalamat.Update
Set Item = listView1.ListItems.Add(, , txtKode.Text)
Item.SubItems(1) = txtNama.Text
Item.SubItems(2) = txtAlamat.Text
Item.SubItems(3) = txtTelepon.Text
Item.SubItems(4) = txtKeterangan.Text
Call ClearTextBox
End Sub
Private Sub Form_Load()
con.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path &
"\rental1.mdb"
rsalamat.Open "Select * From alamat", con, 1, 3
sqlstring = "select * alamat" & "order by kode"
i = 1
Do While Not rsalamat.EOF
Set Item = listView1.ListItems.Add(i, , rsalamat!Kode)
listView1.ListItems(Rec + 1).Bold = True
listView1.ListItems(Rec + 1).ForeColor = vbRed
Item.SubItems(1) = rsalamat!Nama
Item.SubItems(2) = rsalamat!Alamat
Item.SubItems(3) = rsalamat!Telepon
rsalamat.MoveNext
Loop
i = listView1.ListItems.Count
'listView1.ListItems(i).Selected = True
aturlistView "Kode Penyewa", 20, "Nama", 20, "Alamat", 40, "Telpon", 20,
"Keterangan", 40
End Sub
Sub ClearTextBox()
txtKode.Text = ""
txtNama.Text = ""
txtAlamat.Text = ""
txtTelepon.Text = ""
txtKeterangan.Text = ""
txtKode.SetFocus
End Sub
________________________________________________________
Bergabunglah dengan orang-orang yang berwawasan, di di bidang Anda! Kunjungi
Yahoo! Answers saat ini juga di http://id.answers.yahoo.com/
[Non-text portions of this message have been removed]
