Skip to main content

AccessTr.neT


Liste kutusunda tabloya kayıt

Liste kutusunda tabloya kayıt

Çözüldü #1
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
aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 07/08/2012, 16:46, Düzenleyen: aydın3838.
Cevapla
Çözüldü #2
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
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #3
ç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
aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
Bu konu size daha fazla yardımcı olabilir.
Tamamen ADO ile hazılanan Apartman / Site Takip programı
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #5
teşekkürler konu çözülmüştür
aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#6
Sayın Seruz;
Hepsini değilde seçtiklerimizi nasıl aktarbiliriz?
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da