Listviewden acsess'e kayıt yapılabilir mi ? - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html) +--- Konu Başlığı: Listviewden acsess'e kayıt yapılabilir mi ? (/konu-listviewden-acsess-e-kayit-yapilabilir-mi.html) Sayfalar:
1
2
|
Listviewden acsess'e kayıt yapılabilir mi ? - kanakan52 - 31/03/2020 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 Cvp: Ado İle Kapalı Dosyaya Şartlı Kayıt - berduş - 31/03/2020 Yeni soru için yeni konu açıp dosyanızı eklerseniz çözmeye çalışırız Ama dediğim gibi bu aralar biraz sorun var geç cevaplanabilir. Cvp: Ado İle Kapalı Dosyaya Şartlı Kayıt - feraz - 31/03/2020 (31/03/2020, 22:41)kanakan52 yazdı: Hocam selamlar, rs.Movenext bunu alttakinin altına eklermisiniz denemeden mantıken yazdım koda bakarak. rs.Update Alttaki gibi olacak. rs.Update rs.Movenext Next i Cvp: Ado İle Kapalı Dosyaya Şartlı Kayıt - Yandemir - 31/03/2020 For rs.addnew ............ ............ rs.update next içinde olmalıdır Cvp: Ado İle Kapalı Dosyaya Şartlı Kayıt - feraz - 31/03/2020 (31/03/2020, 23:09)Yandemir yazdı: ForBen hiç oraya dikkat etmemiştim Genelde movenext olduğu için aklıma o gelmişti. Cvp: Ado İle Kapalı Dosyaya Şartlı Kayıt - kanakan52 - 01/04/2020 (31/03/2020, 23:09)Yandemir yazdı: For Hocam selamlar, bu kadar kısa zamanda cevap geleceğini düşünemedim, Çalışmam evde, ben ofisteyim , eve geçince deneyeceğim. Sanırım aşağıdaki gibi olacak. Ayrıca desteğiniz için teşekkür ederim. Private Sub CommandButton6_Click() Set baglan = CreateObject("adodb.connection") baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb" strSQL = "select*from SiparisKayitlari" Set rs = CreateObject("adodb.recordset") rs.Open strSQL, baglan, 1, 3 For 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 Next i rs.Close End Sub (31/03/2020, 22:43)berduş yazdı: Yeni soru için yeni konu açıp dosyanızı eklerseniz çözmeye çalışırız Hocam teşekkür ederim.. Bundan sonra dikkat edeceğim. (31/03/2020, 22:53)feraz yazdı:Feraz hocam merhaba, excelvba'dan sonra burda da desteğinizi görmek sevindirdi beni, eksik olmayın,(31/03/2020, 22:41)kanakan52 yazdı: Hocam selamlar, |