ich möchte ACCESS fernsteuern.
..................
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & DBPfad
.Open
End With
' Definieren was geholt werden soll
SQLString = "SELECT DIM_VTNR.PART_BGVG, DIM_VTNR.VTNR_VTNR, DIM_VTNR.VTNR_VERTKAT, DIM_VTNR.VTNR_VTNRNAME FROM DIM_VTNR DIM_VTNR WHERE (DIM_VTNR.VTNR_VTNR=12345)"
Set rs = New ADODB.Recordset
rs.Open SQLString, cn, adOpenDynamic, adLockReadOnly
' Die Feldnamen der Datenbanktabelle in die 3.Zeile der Exceltabelle schreiben
For j = 0 To rs.Fields.Count - 1
xx.Cells(3, j + 1) = rs.Fields.Item(j).Name
Next
' Jetzt alle Sätze holen und in die Exceltabelle schreiben
.......................
Mein Problem dabei ist, dass User, Passwort und Server mitgegeben werden müssen (ODBC for Oracle Connect).
Wer kann mir auf die Sprünge helfen?