AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Liste kutusunda tabloya kayıt

1 2
07/08/2012, 16:44

aydın3838

selam
liste kutusundaki verileri ado yada dao ile tabloya aktarma nasıl yapılır
örnekte aktar butonunna basıldığında
liste kutusundaki verilerin tümünü seçip ana tabloya aktarmasını istiyorum

not : liste kutus kayıt kaynağı ara tabo adında tabloya bağlı
sorgu kullanmadan tamamen vb kodları ile olması gerekli
saygılarımla

liste kutusundan aktar.rar
07/08/2012, 21:43

Seruz

Private Sub aktar_Click()

    Dim rs As New ADODB.Recordset

    rs.Open "anatoblo", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    

    Dim i As Integer

    For i = 1 To Me.Liste1.ListCount - 1

        rs.AddNew

            rs("id") = Me.Liste1.Column(0, i)

            rs("Adi") = Me.Liste1.Column(1, i)

            rs("Soyadi") = Me.Liste1.Column(2, i)

            rs("Adres") = Me.Liste1.Column(3, i)

            rs("Tel") = Me.Liste1.Column(4, i)

        rs.Update

    Next

    

    rs.Close

    MsgBox "Kayıtlar AnaTablo'ya Aktarılmıştır."



End Sub
09/08/2012, 08:22

aydın3838

çok teşekkürler
bir sorum daha olacak
ado ile silme yapıyorum fakat tek kayıdı silmekte aynı id si olan kayıtların tümünü bu kod ile nasıl sildirebilirim

Dim rs As New ADODB.Recordset
rs.Open "anatablo", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.Find "[id]=" & id
rs.Delete
rs.Close
Liste1.Requery

saygılarımla
09/08/2012, 10:05

Seruz

Bu konu size daha fazla yardımcı olabilir.
Tamamen ADO ile hazılanan Apartman / Site Takip programı
09/08/2012, 17:08

aydın3838

teşekkürler konu çözülmüştür
07/12/2015, 10:56

kadirdursun

Sayın Seruz;
Hepsini değilde seçtiklerimizi nasıl aktarbiliriz?
1 2