AccessTr.neT
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,

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

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ı: For
    rs.addnew
    ............
    ............
    rs.update
next

içinde olmalıdır
Ben hiç oraya dikkat etmemiştim Img-grinGenelde 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
    rs.addnew
    ............
    ............
    rs.update
next

içinde olmalıdır


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
Ama dediğim gibi bu aralar biraz sorun var geç cevaplanabilir.


Hocam teşekkür ederim.. Bundan sonra dikkat edeceğim.

(31/03/2020, 22:53)feraz yazdı:
(31/03/2020, 22:41)kanakan52 yazdı: 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

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


Feraz hocam merhaba, excelvba'dan sonra burda da desteğinizi görmek sevindirdi beni, eksik olmayın,