ADODB.Recordset hatası (sütun sayısına göre değiştirme)
Tarih
30/04/2010 00:09
Konu Sahibi
myAccess
Yorumlar
7
Okunma
2908
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



myAccess
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
27
29/10/2008
Bursa
Ofis 2003
09/10/2011,19:24
Çözüldü 
Merhaba,
Örnek dosyadaki gibi alt forma aktarma işlemi yaptırmak istiyorum. Ama bendeki veri tabanında 19 sütun var. Aşağıdaki kodu nasıl değiştirirsem aktarma işlemini yaptırabilirim.
Yardımlarınız için teşekkürler.


Dim strPoz As String
Dim row As Integer
Dim rst As New ADODB.Recordset
Dim x As Integer

rst.Open "tblTemp", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

For x = 0 To Me.Liste0.ItemsSelected.Count - 1
row = Me.Liste0.ItemsSelected(x)
rst.AddNew
rst(0) = Nz(Me.Liste0.Column(0, row), "")
rst(1) = Nz(Me.Liste0.Column(1, row), "")
rst(2) = Nz(Me.Liste0.Column(2, row), "")
rst(3) = Nz(Me.Liste0.Column(3, row), "")
rst(4) = Nz(Me.Liste0.Column(4, row), "")
If Me.Liste0.Column(5, row) <> "" Then
rst(5) = Me.Liste0.Column(5, row)
End If
If Me.Liste0.Column(6, row) <> "" Then
rst(6) = Me.Liste0.Column(6, row)
End If
rst(7) = Nz(Me.Liste0.Column(7, row), "")
rst(8) = Nz(Me.Liste0.Column(8, row), "")
rst.Update
Next x

rst.Close

Me.Alt54.Form.Requery
End Sub


Ek Dosyalar
.zip   Seçme-aktarma_Seruz .zip (Dosya Boyutu: 63,67 KB / İndirme Sayısı: 6)
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.029
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,07:54
Çözüldü 
doğru yanıt verilebilmesi için sendeki veritabanını görmemiz gerekiyor.
Cevapla


myAccess
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
27
29/10/2008
Bursa
Ofis 2003
09/10/2011,19:24
Çözüldü 
Sn sledgeab

Veritabanını ekledim. Daha önceki örnekte 8 sütun vardı. Benim çalıştığıma uyarladım. Benim uygulamamda 19 sütun var. Bu nedenle olacak herhalde, aktarma işleminde Temp. tablosuna tüm filtrelenen veriler aktarılamıyor.
Yardımlarınız için teşekkür ederim.


Ek Dosyalar
.zip   myAccess v2.zip (Dosya Boyutu: 25,28 KB / İndirme Sayısı: 6)
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.029
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,07:54
Çözüldü 
aktar butonuna aşağıdaki kodu ekle

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Dim strPoz As String
Dim row As Integer
Dim rst As New ADODB.Recordset
Dim x As Integer

rst.Open "tblTemp", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

For x = 0 To Me.Liste0.ItemsSelected.Count - 1
    row = Me.Liste0.ItemsSelected(x)
        rst.AddNew
            rst(0) = Nz(Me.Liste0.Column(0, row), "")
            rst(1) = Nz(Me.Liste0.Column(1, row), "")
            rst(2) = Nz(Me.Liste0.Column(2, row), "")
            rst(3) = Nz(Me.Liste0.Column(3, row), "")
            rst(4) = Nz(Me.Liste0.Column(4, row), "")
            rst(5) = Nz(Me.Liste0.Column(7, row), "")
            rst(6) = Nz(Me.Liste0.Column(7, row), "")
            rst(7) = Nz(Me.Liste0.Column(7, row), "")
            rst(8) = Nz(Me.Liste0.Column(8, row), "")
            rst(9) = Nz(Me.Liste0.Column(9, row), "")
            rst(10) = Nz(Me.Liste0.Column(10, row), "")
            rst(11) = Nz(Me.Liste0.Column(11, row), "")
            rst(12) = Nz(Me.Liste0.Column(12, row), "")
            rst(13) = Nz(Me.Liste0.Column(13, row), "")
            rst(14) = Nz(Me.Liste0.Column(14, row), "")
            rst(15) = Nz(Me.Liste0.Column(15, row), "")
            rst(16) = Nz(Me.Liste0.Column(16, row), "")
            rst(17) = Nz(Me.Liste0.Column(17, row), "")
            rst(18) = Nz(Me.Liste0.Column(18, row), "")
        rst.Update
Next x

rst.Close

Me.Alt54.Form.Requery

Cevapla


myAccess
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
27
29/10/2008
Bursa
Ofis 2003
09/10/2011,19:24
Çözüldü 
Hocam, çok teşekkür ederim. uyguladım (ekte) elinize sağlık.
İlave forma: Akratılan-Temp tablosu sürekli dolu kalıyordu, bunun için; form açıldığında sorguyu otomatik çalıştır ve her yeni arama başlangıcında silteyi otomatik temizle ekledim.
Saygılarımla.


Ek Dosyalar
.zip   çoklu arama- ADODB.Recordset.zip (Dosya Boyutu: 62,96 KB / İndirme Sayısı: 13)
Cevapla


assenucler

Kullanici Avatari
Onursal
A.... S.... Ş....
2.052
31/10/2008
63
İstanbul
-
29/11/2016,00:04
Çözüldü 
Emek ve katkılarınız için teşekkürler...
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  karma kutuya göre toplama çıkarma maras321 5 174 Bugün, 03:07 maras321
  OLE server or ActiveX Control hatası temre 4 85 Dün, 22:44 ozanakkaya
  Parametre girin hatası nightashes 3 55 04/12/2016, 23:07 Mesut Kaytan
  Listede ve Raporda Tarih değerine göre sıralamak m_demir 20 268 03/12/2016, 00:13 m_demir
  method or data hatası murat dikme 7 109 02/12/2016, 19:04 murat dikme


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya