accessten sql cümlesi ile çekilen veri kümesi

[excellium]

accessten sql cümlesi ile çekilen veri kümesi
access ten herhangibir sql cümlesi ile veri çağırdıktan sonra, for next döngüsü ile sütun taraması yaparken boş olan satıra geldiğinde hata veriyor.

yardımlarınızı belkiyorum.

örnek:

Kod:

rs.open "select * from TABLO",1,3
rs.open
for x = 1 to rs.recordcount
cells(x+2,1)=rs("ad")
next
rs.close​

herhangibir ad alanı boşsa hata veriyor.
boş alanları atlayacak bir yöntem var mıdır? ( on error resume next dışında)

 

[Levent Menteşoğlu]

Bu sorunuzu ben access başlığına taşımıştım siz yine sormuşsunuz. Sorunuz yanıtlanmış olarak aşağıdaki linktedir.

http://www.excel.web.tr/showthread.php?t=23134

 

[Haluk]

Benim anladığım kadarıyla MS Access altında değil, MS Excel altında VBA kodlarıyla, MS Access'den veri alınmaya çalışılıyor.

Bu durumda, aşağıdaki örneği inceleyebilirsiniz.

Burada, C:\TestDB\MyDB.mdb dosyasından MS Excel'e, MS Access dosyasındaki MyTable isimli tabloda Firma alanı boş olmayan kayıtlarla işlem yapılmaktadır..

Sub Test()
    Set adoCN = CreateObject("ADODB.Connection")
    DatabasePath = "[B]C:\TestDB\MyDB.mdb[/B]"
    If Dir(DatabasePath) = "" Then
    MsgBox DatabasePath & " bulunamadı, programdan çıkılacak !", vbCritical, "TestMDB"
    Unload Me
    Exit Sub
    End If
    adoCN.Provider = "Microsoft.Jet.OLEDB.4.0"
    adoCN.ConnectionString = DatabasePath
    adoCN.Open

    Set RS = CreateObject("ADODB.recordset")
    
    strSQL = "[COLOR=Black]SELECT * FROM [MyTable] Where Firma <> ''"[/COLOR]
    RS.Open strSQL, adoCN, 1, 3
    RS.MoveFirst
    
    '........
    '.....
    '....
End Sub