Sql sorgusunda (between) hata

[tamer42]

Merhaba,
Ekli hata mesajında sayısal değerleri hücreden alıyor, virgül hatası veriyor.

Hücrede normal sayısal veriler yazıyor, bu hatayı Nasıl çözebiliriz?

deg = sh1.Cells(x, 11)
deg2 = sh1.Cells(x, 12)
deg3 = sh1.Cells(x, 13)

sorgu1 = "select * from [ARSIV$]"

str2 = "[AH] BETWEEN " & deg2 & " And " & deg3

str = "[FT]=" & deg & " " & str2

    strSql1 = sorgu1 & " Where " & str

    Set rs = Con.Execute(strSql1)

 

[Haluk]

deg yerine cdbl(deg) kullanın.....

Diğerleri de aynı şekilde tabii....

.

 

[tamer42]

deg yerine cdbl(deg) kullanın.....

Diğerleri de aynı şekilde tabii....

.

Haluk Hocam yine aynı şekilde hata vedi.

 

[Zeki Gürsoy]

[AH] ve [FT] isimli tanımların veri tipi nedir? Loto kuponu doldurmadan isabetli öneriler alabilmeniz mümkün...
Ayrıca bir adet And eksik gibi görünüyor.

 

[tamer42]

[AH] ve [FT] isimli tanımların veri tipi nedir? Loto kuponu doldurmadan isabetli öneriler alabilmeniz mümkün...
Ayrıca bir adet And eksik gibi görünüyor.

Zeki Hocam ekli resimlerden de görüleceği gibi veri tipleri "Sayı" olarak görünüyor,

 

[Zeki Gürsoy]

Değişiklikleri inceleyin...

sorgu1 = "select * from [ARSIV$]"

str2 = "[AH] BETWEEN " & Replace(deg2, ",", ".") & " And " & Replace(deg3, ",", ".")

str = "([FT]=" & Replace(deg, ",", ".") & ") And (" & str2 & ")"

 

[tamer42]

Değişiklikleri inceleyin...

sorgu1 = "select * from [ARSIV$]"

str2 = "[AH] BETWEEN " & Replace(deg2, ",", ".") & " And " & Replace(deg3, ",", ".")

str = "([FT]=" & Replace(deg, ",", ".") & ") And (" & str2 & ")"

Teşekkürler Zeki Hocam,
iyi ki varsınız!

 

[tamer42]

Teşekkürler Zeki Hocam,
iyi ki varsınız!

Zeki Hocam tekrar rahatsız ettim

ARSIV sayfasında bazı alanlarda veriler bulunmuyor, ekli görsel
bu durum

    Set rs = Con.Execute(strSql1)

satırında ekli hataya neden oluyor, bu aşmanın bir yolu var mıdır?

Bu alanları kaldırdığımda hatasız çalışıyor.
tekrar teşekkürler,

iyi çalışmalar.

 

[Korhan Ayhan]

Bağlantı satırında Imex kullanımını deneyebilirsiniz.