Herbers Excel-Forum - das Archiv
SQL Abfrage und in Combobox schreiben
- SQL Abfrage und in Combobox schreiben von Samuel Santschi vom 08.12.2003 10:20:00
- AW: SQL Abfrage und in Combobox schreiben - von Michael Scheffler am 08.12.2003 11:11:41
- AW: SQL Abfrage und in Combobox schreiben - von Michael Scheffler am 08.12.2003 11:11:41
 |
Betrifft: SQL Abfrage und in Combobox schreiben
von: Samuel Santschi
Geschrieben am: 08.12.2003 10:20:00
hello!
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
 |
Betrifft: AW: SQL Abfrage und in Combobox schreiben
von: Michael Scheffler
Geschrieben am: 08.12.2003 11:11:41
Hi,
versuchs mal - wie oben - mit:
http://www.erlandsendata.no/english/index.php?t=envbadac
Gruß
Micha
| |