karlchristian
Goto Top

Aus SQL Abfrage Ergebnis in Variable per loop schreiben

Hallo,

ich habe eine Temp_Abfrage, welche ich per Schleife nach und nach in eine Variable schreiben möchte
begonnen habe ich mit u.g.

Führe ich die Abfrage STRSQL1 in Access direkt aus erscheinen mir 6 Zeilen als Ergebnis

Wie bekomme ich es hin, das er mir nun den ersten Werte in die Variable IP_Adresse
schreibt und per Schleife nach und nach jeden Wert der Reihe nach ( LOOP)

Dim IP_Adresse, strSQL1, suche1, v1, url As String
strSQL1 = "SELECT DISTINCT [BP_Tabelle].IP" & _  
          "FROM [BP_Tabelle] LEFT JOIN [IMPORT aus Excel] ON [BP_Tabelle].[Linux] = [IMPORT aus Excel].Server " & _  
          "WHERE ((([BP_Tabelle].System) Like '*TEST*'))"  

IP_Adresse = CurrentDb.OpenRecordset(strSQL1)(0) 'hier schreibt er immer nur Leer  
...

Vielleicht kann mir hier jemand weiterhelfen

Danke, Grüße aus München

Content-Key: 252743

Url: https://administrator.de/contentid/252743

Ausgedruckt am: 29.03.2024 um 06:03 Uhr

Mitglied: SlainteMhath
SlainteMhath 22.10.2014 um 14:26:54 Uhr
Goto Top
Moin,

dazu gibts eigentlich 100te Codebeispiele im Internet und hier im Forum...

Aus dem Kopf und deshalb ohne Gewähr:
Dim IP_Adresse, strSQL1, suche1, v1, url As String
dim rcd as recordset

strSQL1 = "SELECT DISTINCT [BP_Tabelle].IP" & _  
          "FROM [BP_Tabelle] LEFT JOIN [IMPORT aus Excel] ON [BP_Tabelle].[Linux] = [IMPORT aus Excel].Server " & _  
          "WHERE ((([BP_Tabelle].System) Like '*TEST*'))"  

rcd = CurrentDb.OpenRecordset(strSQL1)(0) 
rcd.movefirst
while not rcd.EOF
  IP_Adresse=rcd["IP"].value  
  .....
  rcd,movenext
loop

lg,
Slainte
Mitglied: karlchristian
karlchristian 22.10.2014 aktualisiert um 14:35:16 Uhr
Goto Top
Hallo Slainte,

danke für die Rückmeldung

beim Ausführen erhalten ich den Hinweis

Dim IP_Adresse, strSQL1, suche1, v1, url As String 
Dim rcd As Recordset

strSQL1 = "...."  

rcd = CurrentDb.OpenRecordset(strSQL1)(0)
rcd.MoveFirst
While Not rcd.EOF
  IP_Adresse = rcd.value
  Debug.Print IP_Adresse
  rcd , MoveNext
Loop

Die Zeile
IP_Adresse=rcd["IP"].value
habe ich in
IP_Adresse = rcd.value
geändert, da er mir diese Rot markiert hat

bei der ersten Zeile RCD erhalte ich den Hinweis
Fehler beim Kompilieren
unzulässige Verwendung einer Eigenschaft
Mitglied: SlainteMhath
SlainteMhath 22.10.2014 um 14:38:47 Uhr
Goto Top
Mitglied: karlchristian
karlchristian 22.10.2014 um 14:52:10 Uhr
Goto Top
Danke,
damit hab ich es umsetzen können..