Hocam selamlar,
Desteğiniz için çok teşekkür ederim,
Farkli bir sorunum daha ortaya çıktı, Listviewden acsess'e kayıt yapılabilir mi ? Aşağıdaki kodlarla listviewdeki tek satırı kaydediyor, araştırdım örnek bulamadım,
Private Sub CommandButton6_Click()
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb"
'MsgBox ("bağlantı kuruldu")
strSQL = "select*from SiparisKayitlari"
Set rs = CreateObject("adodb.recordset")
rs.Open strSQL, baglan, 1, 3
rs.addnew
For i = 1 To ListView1.ListItems.Count
rs("Siparis_No") = ListView1.ListItems(i)
rs("Siparis_Tarihi") = ListView1.ListItems(i).SubItems(1)
rs("Termin_Tarihi") = ListView1.ListItems(i).SubItems(2)
rs.Update
Next i
rs.Close
End Sub
Listviewden acsess'e kayıt yapılabilir mi ?
Bu Konudaki Yorumlar |
Listviewden acsess'e kayıt yapılabilir mi ? - Yazar: kanakan52 - 31/03/2020, 22:41
Cvp: Ado İle Kapalı Dosyaya Şartlı Kayıt - Yazar: berduş - 31/03/2020, 22:43
Cvp: Ado İle Kapalı Dosyaya Şartlı Kayıt - Yazar: feraz - 31/03/2020, 22:53
Cvp: Ado İle Kapalı Dosyaya Şartlı Kayıt - Yazar: Yandemir - 31/03/2020, 23:09
Cvp: Ado İle Kapalı Dosyaya Şartlı Kayıt - Yazar: feraz - 31/03/2020, 23:14
Cvp: Ado İle Kapalı Dosyaya Şartlı Kayıt - Yazar: kanakan52 - 01/04/2020, 08:36
Cvp: Ado İle Kapalı Dosyaya Şartlı Kayıt - Yazar: feraz - 02/04/2020, 00:06
|
Konuyu Okuyanlar: 1 Ziyaretçi