Guten Morgen an alle!
Ich habe da ein Problem mit dem Zugriff auf Elemente einer Datenbank.
Wie kann ich auf das Ergebnis einer Parameterabfrage in Access zugreifen.
z.B. Accessabfrage mit dem Parameter [Bitte eingabe der Nummer!]
Access Datenbank
Access Abfrage mit Parameter über ODBC
ungetesteter Code:
P.S.
Wichtig sind die einfachen Anführungszeichen in : like '" + Input +"'"
ungetesteter Code:
Code: Alles auswählen
If InitDatabase()
Result = OpenDatabase(0,"ODBCDatabaseName", "Benutzer", "Passwort")
If Result = 0
MessageRequester("Datenbank", "ODBCDatabaseName konnte nicht geöffnet werden!")
End
EndIf
Input$ = InputRequester("Datenbank Parameter","Bitte machen Sie Ihre Eingabe:","12345")
If Input$ > ""
SQL.s = "Select * from TabellenName where SpaltenName like '" + Input +"'"
If DatabaseQuery(SQL)
While NextDatabaseRow()
; Abfrage verarbeitung
; Abfrage verarbeitung
; Abfrage verarbeitung
; Abfrage verarbeitung
Wend
EndIf ; DatabaseQuery(SQL)
Else ; Input$ > ""
MessageRequester("","Abgebrochen!")
End
EndIf ; Input$ > ""
EndIf ; InitDatabase()
End
Wichtig sind die einfachen Anführungszeichen in : like '" + Input +"'"
Wir Schreiben ein PureBasic Buch.
Auch du kannst mitmachen!
http://www.purearea.net/pb/english/pure ... :Main_Page
Auch du kannst mitmachen!
http://www.purearea.net/pb/english/pure ... :Main_Page
-
- Beiträge: 282
- Registriert: 03.01.2005 11:36
Access Abfrage mit Parameter
Danke für den Code! Geht aber irgendwie nicht!
Es kommt die Meldund "Cant´t mix strings with numericals values
Es kommt die Meldund "Cant´t mix strings with numericals values
Wie gesagt der Code ist ungetestet!!
in der Zeile: SQL.s = "Select * from TabellenName where SpaltenName like '" + Input +"'"
fehlt ein $
Korrektur = SQL.s = "Select * from TabellenName where SpaltenName like '" + Input$ +"'"
Ich kann dir sowiso nur Beispielcode liefern, weil ich deinen Pfad zur Datenbank (Datenbankname, Tabellenname, Spaltenname usw....) nicht weiss.
in der Zeile: SQL.s = "Select * from TabellenName where SpaltenName like '" + Input +"'"
fehlt ein $
Korrektur = SQL.s = "Select * from TabellenName where SpaltenName like '" + Input$ +"'"
Ich kann dir sowiso nur Beispielcode liefern, weil ich deinen Pfad zur Datenbank (Datenbankname, Tabellenname, Spaltenname usw....) nicht weiss.
Zuletzt geändert von PAMKKKKK am 09.12.2005 14:51, insgesamt 1-mal geändert.
Wir Schreiben ein PureBasic Buch.
Auch du kannst mitmachen!
http://www.purearea.net/pb/english/pure ... :Main_Page
Auch du kannst mitmachen!
http://www.purearea.net/pb/english/pure ... :Main_Page
-
- Beiträge: 282
- Registriert: 03.01.2005 11:36
Access
Danke für deine Antwort: werde es am wochende mal testen