Soru Sql Sorgu Sıralama Kod Hatası

Katılım
10 Ocak 2017
Mesajlar
41
Excel Vers. ve Dili
2013 Türkçe
Vba ile sql sorgu yaparken sorgunun içine sıralama kodunu nasıl ekleyebilirim ?
Mevcut sorgum:
Kod:
If Me.OptionButton23 = True Then txtOlcut = txtOlcut & " and asfalt='Var'"


If Me.OptionButton24 = True Then txtOlcut = txtOlcut & " and asfalt='Yok'"


txtOlcut = Mid(txtOlcut, 5)


rs.Open "select * from envanter order by nufus ", baglan, adOpenKeyset, adLockPessimistic


rs2.Open "select * from envanter where " & txtOlcut  order by nufus ", baglan, adOpenKeyset, adLockPessimistic
Bu sorguda rs.open çalışıyor.
Ama rs2.open sorgusu çalışmıyor. Rs2 sorgusunda order by nufus syntax ının muhtemelen yanlış yazıyorum, doğrusunu nasıl yazabilirim ?
Yani sorguda hem txtOlcut kriterlerine göre sorgu yapsın ve bunu nufus a göre sıralasın !
yardımcı olabilir misiniz?
 

Mehmet Şahin

Destek Ekibi
Destek Ekibi
Katılım
13 Ekim 2005
Mesajlar
1,336
Excel Vers. ve Dili
Excel 2010 - 2013 Türkçe - İngilizce
Kod:
" asfalt='Yok'"
şeklinde dener misiniz, yani "and" silinmeli.
 
Katılım
10 Ocak 2017
Mesajlar
41
Excel Vers. ve Dili
2013 Türkçe
Kod:
" asfalt='Yok'"
şeklinde dener misiniz, yani "and" silinmeli.
Hocam "and" silinmesi için txtOlcut = Mid(txtOlcut, 5) kodunu kullanıyorum. hata order by nufus kısmında hata veriyor. Yani ben order by nufus syntax ını yanlış mı yazıyorum acaba bulamadım ? ' veya " hatası mı var anlayamadım !
Kod:
rs2.Open "select * from envanter where " & txtOlcut  order by nufus ", baglan, adOpenKeyset, adLockPessimistic
 

Erdem_34

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,400
Excel Vers. ve Dili
OFİS 2013 TÜRKÇE-İNG. 64 BİT
Aşağıdaki gibi deneyebilir misiniz.

Kod:
"select * from envanter where " & txtOlcut & " order by nufus"
 

Mehmet Şahin

Destek Ekibi
Destek Ekibi
Katılım
13 Ekim 2005
Mesajlar
1,336
Excel Vers. ve Dili
Excel 2010 - 2013 Türkçe - İngilizce
:) Dikkatsizlik, acelecilik ve doğru okumama her sorunun başıdır.
 
Üst