VBA da SQL sorgusunda değişken kullanımı

[reflargon]

Merhabalar

Makroda sql sorgusu kaydettim ve bu sorguyu bir hücre değerine bağlamak istiyorum. Forumda araştırdığım kadarıyla aşağıdaki gibi düzelttiğimde çalışması gerekiyor. Ancak genek ODCB hatası alıp duruyorum. Aklıma gelen her türlü kombinasyonu denedim. Yardımcı olabilirseniz sevinirim.

Sub Makro2()
'
' Klavye Kısayolu: Ctrl+d
'
Dim x As String

Worksheets("Sayfa2").Range("A2:Az50000").Select
Selection.ClearContents


With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=Excel Dosyaları;DBQ=C:\Documents and Settings\taner\Desktop\YENİ PLANLAMA den.xls;DefaultDir=C:\Documents and Settings\tane" _
), Array("r\Desktop;DriverId=790;MaxBufferSize=2048;PageTimeout=5;")), _
Destination:=Range("A11"))
.CommandText = Array( _
"SELECT `Planlama$`.`Sipariş No`, `Planlama$`.F3, `Planlama$`.F4, `Planlama$`.F5, `Planlama$`.F6, `Planlama$`.`Boya Rengi`, `Planlama$`.F8, `Planlama$`.F9, `Planlama$`.Sipariş, `Planlama$`.F11, `Planla" _
, _
"ma$`.Termin" & Chr(13) & "" & Chr(10) & "FROM `C:\Documents and Settings\taner\Desktop\YENİ PLANLAMA den`.`Planlama$` `Planlama$`" & Chr(13) & "" & Chr(10) & "WHERE (`Planlama$`.`Sipariş No`=" & Range("a1").Value & ")" & Chr(13) & "" & Chr(10) & "ORDER BY `Planlama$`.F3")
.Name = "Excel Dosyaları kaynağından sorgula"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub

 

[Levent Menteşoğlu]

Kırmızı renkli veriyi aşağıdaki gibi tek tırnak içinde yazılmasını sağlayın.

Sipariş No`='[COLOR=red]" & Range("a1").Value & "'[/COLOR])"

 

[reflargon]

Teşekkürler. Bu şekilde de denedim ama hale "genel odcb" hatası veriyor Kullanılan verinin tipiyle ilgili olabilir mi? Yada başka bir neden?