Query ile veri alma

[idogus]

Sn arkadaşlar
Aşağıdaki makroda query ile excele veri aldım. Bunu VBA dilinde daha kısa nasıl yazabiliriz. SQL dilide olabilir
[vb:1:d6271e80f1]
Sub Makro1()
'
' Makro1 Makro
' Makro İbrahim DOÐUÞ tarafından 30.06.2005 tarihinde kaydedildi.
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=MW32;Server=255.255.0.0;Service=8003;Charset=ISO8859-1;UID=public;Password=No" _
, Destination:=Range("A1"))
.CommandText = Array( _
"SELECT ARTIKEL.DARTEILNR, ARTIKEL.DARBEZA, ARTIKEL.DARBEZB" & Chr(13) & "" & Chr(10) & "FROM MW32.ARTIKEL ARTIKEL" & Chr(13) & "" & Chr(10) & "WHERE (ARTIKEL.DARTEILNR='PV 40576247')" _
)
.Name = "MW32 kaynağından sorgula"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.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
[/vb:1:d6271e80f1]

 

[idogus]

Sorumu şu şekildede sorabilirim;

"ARTIKEL.DARTEILENR" verisini sayfaya almadan bir combobox da nasıl listeleyebilirim.

 

[Haluk]

ADO ile veri tabanına bağlantı kurmalısınız.

Forumda ilgili örnekler var, arama motoru ile bulabilirsiniz.