Çözüldü ado bağlantılı sorgu ve where

[Faulkner]

Merhaba

aşağıdaki kodda belirli bölgeden ve belirli bir başlıkta veri çekmek istedim fakat veri yapıştırılan yerde, mükerrer "onaylı durum" sütunu geldi. bu sütunun gelmemesi için kodda düzeltmede yardımcı olur musunuz. Saygılarımla

Veri çektiğim yer:


Veri Yapıştırılan yer:



KOD:
Private Sub CommandButton1_Click()

Range("I2:AN999999").ClearContents

Dim baglanti As New ADODB.Connection
Dim rs As New ADODB.Recordset

yol = "F:\.......................................\9.Sipariş Genel Durum.xlsb"

baglanti.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties=""Excel 12.0;hdr=yes"""


sorgu = "select * from [Sipariş$F:AK] where[Onay Durum]='Onaylı'"
rs.Open sorgu, baglanti, adOpenKeyset, adLockPessimistic

a = 9
For Each baslik In rs.Fields
Cells(1, a) = baslik.Name
a = a + 1
Next baslik
Range("I2").CopyFromRecordset rs

End Sub

 

[Haluk]

Kodunuza göre RS nesnesinin içeriği "I" sütunundan itibaren yazılmaya başlanıyor. Ama sizin resimde "H" sütununda da muhtemelen eskiden kalma "Onay Durum" sütunu var.

Kısacası, kodda problem yok..... Siz "H" sütununu silin, sonra kodu tekrar çalıştırın. Problem olmadığını göreceksiniz....

.

 

[Faulkner]

Kodunuza göre RS nesnesinin içeriği "I" sütunundan itibaren yazılmaya başlanıyor. Ama sizin resimde "H" sütununda da muhtemelen eskiden kalma "Onay Durum" sütunu var.

Kısacası, kodda problem yok..... Siz "H" sütununu silin, sonra kodu tekrar çalıştırın. Problem olmadığını göreceksiniz....

.

hocam dediğin gibi yeninden denedim çalışıyor.