SQL SORGUSU

[bunyaming]

Merhaba,

ado ile kapalı dosyadan veri getiriyorum
öğrenmeye çalıştığım şey tek kriter ile hücreden filtreliyor ama ikinci kriteri yazdığımda kabul etmiyor
nasıl düzenlemeliyim
yazdığım sorgu şu şekilde

sqlstr = "SELECT DISTINCT LOKASYON FROM BUNYAS WHERE AY='" & Range("K1") & "'"

ikinci kriterim AYRIM olacak değişken hücresinide L1 den alacak

yardımcı olursanız sevinirim

teşekkürler

 

[Zeki Gürsoy]

AYRIM bir metin ise, tek tırnaklar arasına almanız gerekir. Yani;

And AYRIM = '" & [L1] & "'"

 

[bunyaming]

AYRIM bir metin ise, tek tırnaklar arasına almanız gerekir. Yani;

And AYRIM = '" & [L1] & "'"

merhaba Hocam

cevabınız için teşekkürler

verdiğiniz bilgi ile kodu bu şekilde yazdım

Sub ayrim()

Range("A:A").Clear
Dim sqlstr As String
Dim rs As Object

sqlstr = "SELECT DISTINCT VARIS FROM BUNYAS WHERE AY='" & Range("K1") & "' AND AYRIM= '" & [L1] & "'"




Call bağlan

Set rs = CreateObject("ADODB.recordset")
rs.Open sqlstr, DBCONT
If rs.RecordCount > 0 Then
For i = 1 To rs.RecordCount

With ThisWorkbook.Sheets("Sayfa1")
.Cells(i + 1, 1).Value = rs(0)
'.Cells(i + 1, 2).Value = rs(1)
'.Cells(i + 1, 8).EntireColumn.AutoFit
'.Cells(i + 1, 9).EntireColumn.AutoFit
End With
rs.movenext
Next i
rs.Close
Set rs = Nothing
ActiveSheet.Shapes.Range(Array("Grafik 1")).Visible = msoFalse
Call bağlantıkapat

End If
End Sub

aşağıdaki hata mesajı dönüyor
kriteri tek tuttuğumda sorunsuz çalışıyor

 

[bunyaming]

Zeki Hocam Merhaba

bunun bir çözümü varmı, yanlışmı yazıyorum acaba?

teşekkürler

 

[Necdet]

Merhaba,

sqlstr değişkenini sayfada bir hücreye yazdırın ve sql cümlesinin doğru olup olmadığını kontrol edin. Genelde tırnak işaretlerinde sıkıntı olabilir.

 

[bunyaming]

merhaba Hocam

VARIS olarak yazdığım yer varis olacakmış
bu şekilde düzeltince çözüldü
teşekkürler