Access Datenbank

Anfängerfragen zum Programmieren mit PureBasic.
Martin66119
Beiträge: 282
Registriert: 03.01.2005 11:36

Access Datenbank

Beitrag von Martin66119 »

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!]
Benutzeravatar
PAMKKKKK
Beiträge: 321
Registriert: 21.04.2005 22:08
Wohnort: Braunschweig
Kontaktdaten:

Beitrag von PAMKKKKK »

Access Abfrage mit Parameter über ODBC

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
P.S.
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
Martin66119
Beiträge: 282
Registriert: 03.01.2005 11:36

Access Abfrage mit Parameter

Beitrag von Martin66119 »

Danke für den Code! Geht aber irgendwie nicht!

Es kommt die Meldund "Cant´t mix strings with numericals values
Benutzeravatar
PAMKKKKK
Beiträge: 321
Registriert: 21.04.2005 22:08
Wohnort: Braunschweig
Kontaktdaten:

Beitrag von PAMKKKKK »

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.
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
Martin66119
Beiträge: 282
Registriert: 03.01.2005 11:36

Access

Beitrag von Martin66119 »

Danke für deine Antwort: werde es am wochende mal testen
Antworten