Jump to content

jan von sassen

Members
  • Gesamte Inhalte

    4
  • Registriert seit

  • Letzter Besuch

Profile Fields

  • Member Title
    Newbie

Fortschritt von jan von sassen

Apprentice

Apprentice (3/14)

  • Erste Antwort
  • Erster eigener Beitrag
  • Eine Woche dabei
  • Einen Monat dabei
  • 1 Jahre dabei

Neueste Abzeichen

10

Reputation in der Community

  1. Moin NilsK, die beschriebene Suche ist der erste Schritt. Im nächsten Schritt muss ich mit dem so rausgefunden District_ID's wieder in der Datenbank nach Einträgen suchen, die dem Distict_ID zugeordnet sind. Gruß Jan – Moin Cybquest, vielen Dank für den Ansatz, werde das gleich mal ausprobieren. Gruß Jan
  2. 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
  3. Hallo, ich habe zwei Fragen: Ich möchte aus einer Tabelle einer Oracledatenbank die Werte MOTORWAY_ENTRANCE_ID , MOTORWAY_ENTRANCE_NO , NAME and DISTRICT_ID in einem multidimensionalen Array eintragen. Meine Datenbankabfrage sieht wie folgt aus: my query = "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" 1. Wie definiere ich einen multidimensionalen Array und befülle Ihn dann mit meinen Werten ? Als nächsten Schritt möchte ich dann innerhalb des Array bestimmte Werte raussuchen und diese dann in eine Variable speichern. Also ich hab zum Beispiel eine MOTORWAY_ENTRANCE_NO die 20 ist und eine MOTORWAY_ENTRANCE_NO die 50 ist. Jeweils davor und danach sind noch diverse weitere Nummern vergeben. Ich möchte jetzt alle Einträge, die zwischen der 20 und der 50 liegen in eine separate Variable speichern. 2. Wie kann ich diese Suche über den oben definierten multidimensionalen Array am besten umsetzen ? Gruß und Dank vsassenj
  4. Hallo ! Ich bin auf der Suche nach einer sogenannten "com runtime umgebung". Ein "com runtime umgebung" ist die Komponente, die das Comhandling zu Laufzeiten ( zum Beispiel Activ X Komponeten )in einem Microsoft Betriebssystem übernimmt. Gibt es eine solche Komponente überhaupt als einzelnes Produkt oder gibt es diese nur im Zusammenhang mit dem aktuellen Internet Explorer ? Gruß Jan
×
×
  • Neu erstellen...