ehm.. sebelumnya mau tanya dulu (masih kurang paham dengan pertanyaannya), yang mau disimpan itu hanya data yang di-edit atau semuanya?
klo semuanya, tinggal disave aja, contohnya (misalnya ada 4 kolom, dengan kolom index 0 tidak digunakan) :
Dim I As Integer
Dim str as String
klo semuanya, tinggal disave aja, contohnya (misalnya ada 4 kolom, dengan kolom index 0 tidak digunakan) :
Dim I As Integer
Dim str as String
For I = 1 To lvwCustomer.ListItems.Count
str = "INSERT INTO Customer " & _
"SELECT '" & lvwCustomer.ListItems(I).SubItems(1) & "', '" & _
lvwCustomer.ListItems(I).SubItems(2) & "', '" & _
lvwCustomer.ListItems(I).SubItems(3) & "'"
cn.execute str
Next
str = "INSERT INTO Customer " & _
"SELECT '" & lvwCustomer.ListItems(I).SubItems(1) & "', '" & _
lvwCustomer.ListItems(I).SubItems(2) & "', '" & _
lvwCustomer.ListItems(I).SubItems(3) & "'"
cn.execute str
Next
klo hanya yang sudah di-edit aja yang mau di-save, berarti cek dulu dengan data yang ada didatabase. klo ada yang berubah, baru di save.
met coba ya... mudah2an sesuai dengna yang diharapkan.
Best Regards,
-Petry-
-Petry-
What are the most popular cars? Find out at Yahoo! Autos
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
