SQL Abfrage und in Combobox schreiben
08.12.2003 10:20:00
Samuel Santschi
ich habe folgendes Problem:
Ich mache eine SQL Abfrage. Ich möchte, dass es die Daten, die es aus der Abfrage ergibt, direkt in eine Combobox schreibt. Kann mir jemand zeigen wie das geht? Ich kann die Daten nur in eine Tabelle importieren. Für das brauche ich folgenden Code:
With ActiveSheet.QueryTables.Add(connection:= _
"ODBC;DRIVER=SQL Server;SERVER=*******;UID=*******;PWD=*******;APP=Microsoft Office XP;WSID=********;DATABASE=FMS" _
, Destination:=Range("C37"))
.CommandText = Array( _
"SELECT ugl_comp_code.company_name" & Chr(13) & "" & Chr(10) & "FROM FMS.dbo.ugl_comp_code ugl_comp_code" & Chr(13) & "" & Chr(10) & "ORDER BY ugl_comp_code.company_name" _
)
.Name = "Abfrage von fms..ugl_comp_code_2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With