Moin,
hab ich ganz vergessen zu sagen.
Ich möchte das in VBA umsetzten.
Gruß
vsassenj
–
Noch ein nachtrag:
Der Zugriff auf die dB funktioniert einwandfrei.
Hier mal mein Skript:
Sub Main()
Dim wstemp As Workspace
Dim dbtemp As Database
Dim rstemp As Recordset
Dim myquery As String
Dim howmany As Variant
Dim Zaehler As Variant
Dim combo1 As Variant
Dim Anschlussstellevon As String
Dim Anschlussstellebis As String
Dim Autobahn As String
Dim AbfrageAutobahnabfahrt As String
Dim AbfrageAutobahnabschnitt As String
Dim AnschlussstellenBayernID(1000) As String
Dim Anschlusstellennummer(1000) As String
Dim AnschlussstellenDistrict(1000) As String
Dim AnschlussstellenName(1000) As String
Dim Ergebnis(100) As String
Dim x As Integer
Dim ListeAutobahnabfahrt(1000) As Autobahnabfahrt
'myquery = "select MOTORWAY_ENTRANCE_ID,MOTORWAY_ENTRANCE_NO,NAME,DISTRICT_ID from MOTORWAY_ENTRANCE where DISTRICT_ID LIKE '09%' AND VERSION_NO = '0' AND Version_END IS NULL"
'MsgBox myquery
Set wstemp = DBEngine.Workspaces(0)
Set dbtemp = wstemp.OpenDatabase("", False, false, "ODBC;DSN=xxx;USR=xxx;PWD=xxx")
Set rstemp = dbtemp.OpenRecordset(myquery, dbOpenDynaset, dbSQLPassThrough)
howmany = 0
Do Until rstemp.EOF
'MsgBox rstemp(0)
AnschlussstellenBayernID(howmany) = rstemp(0)
rstemp.MoveNext
howmany = howmany + 1
Loop
Zaehler = 0
For Zaehler = 0 To howmany - 1
'MsgBox AnschlussstellenBayernID(Zaehler)
Next
Ich bin soweit, das ich einzelner Werte in einen array einschreiben kann.
Da ich ja aber die Werte vergleichen muß, muß ich jetzt einen Weg finden, mit dem ich die Werte vergleichen kann.
Gruß
Jan von Sassen