Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
07/08/2012 16:44
Konu Sahibi
aydın3838
Yorumlar
8
Okunma
2431
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
aydın3838

aydın3838

Destek
12957
ya.... ay....
 38
 45
 271
 20/12/2009
8
 Kayseri
 serbest
 Ofis 2003
 07/11/2018,18:51
Çözüldü 
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

Ek Dosyalar
liste kutusundan aktar.rar



aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.

Seruz

Seruz

Uzman
47
Se.... UZ....
 47
 7
 1.566
 30/10/2008
822
 Tekirdağ
 BT Şefi
 Ofis XP
 18/07/2019,14:39
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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

...........
aydın3838

aydın3838

Destek
12957
ya.... ay....
 38
 45
 271
 20/12/2009
8
 Kayseri
 serbest
 Ofis 2003
 07/11/2018,18:51
Çözüldü 
ç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.

Seruz

Seruz

Uzman
47
Se.... UZ....
 47
 7
 1.566
 30/10/2008
822
 Tekirdağ
 BT Şefi
 Ofis XP
 18/07/2019,14:39
Çözüldü 
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

...........
aydın3838

aydın3838

Destek
12957
ya.... ay....
 38
 45
 271
 20/12/2009
8
 Kayseri
 serbest
 Ofis 2003
 07/11/2018,18:51
Çözüldü 
teşekkürler konu çözülmüştür


aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.

kadirdursun

kadirdursun

Aktif Üye*
2014
Ka.... DU....
 39
 104
 1.291
 12/01/2009
86
 İstanbul
 İnşaat Mühendisi
 Ofis 2010 32 Bit
 19/01/2018,15:01
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)

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü İki Liste Kutusundan Aynı Tablo Üzerinde Güncelleme Yapmak Yunus Bozkurt 14 573 10/06/2019, 16:31
Son Yorum: Yunus Bozkurt
Çözüldü Alt Form Kayıt most 6 264 31/05/2019, 09:12
Son Yorum: most
Çözüldü Raporda Sayfa Alt Bilgisi Liste Boyuna Göre Yapışık Olsun Yardım okumas 2 177 30/05/2019, 15:38
Son Yorum: okumas
Çözüldü Access İle Basit Kayıt Programı musti35 4 233 27/05/2019, 17:07
Son Yorum: musti35
Çözüldü Kayıt Silindiğinde Silinenler Tablosuna Aktarma haziran4 4 229 20/05/2019, 11:58
Son Yorum: haziran4

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.