DatabaseQuery schlägt fehl

[batzilla]

Ich steh hier im Moment auf dem Schlauch...

in meinem Programm führe ich folgendes durch:

Code: Alles auswählen

; Datenbankumgebung initialisieren
If InitDatabase() = 0
	MessageRequester("Fehler", "Datenbankumgebumg (ODBC v3 oder höher benötigt) konnte nicht initialisiert werden!")
 	End
EndIf

; Datenbank öffnen
If OpenDatabase(#Datenbank, #DBName, #DBUser, #DBPass) = 0
	MessageRequester("Fehler", "Kann die folgende Abfrage nicht ausführen: " + DatabaseError())
EndIf

Zusätzlich gibt es eine Prozedur in der ich eine Tabelle meiner Datenbank abfragen möchte. Diese Abfrage schlägt fehl:

Code: Alles auswählen

Procedure getUserRole(UserName.s)
  table.s = "Benutzer"
  sqlCommand.s = "SELECT * FROM " + table.s + " WHERE BENUTZERKENNUNG = '" + UCase(UserName.s) + "'"
  If DatabaseQuery(#Datenbank, sqlCommand.s) <-- hier tritt der Fehler auf!
    NextDatabaseRow(#Datenbank)
    Debug GetDatabaseString(#Datenbank, 0)
  EndIf
EndProcedure

In der markierten Zeile tritt dann folgender Fehler auf:
ERROR: InitDatabase() must be called before use the Database commands.

Ich rufe aber doch schon InitDatabase() in meinem Programm auf, und andere Prozeduren in meinem Programm funktionieren ähnlich wie die oben gezeigte. Also nur einmal InitDatabase() in meinem Programm und alle Prozeduren laufen klaglos, bis auf die oben gezeigte Prozedur.

Kann mich mal jemand vom Schlauch holen?

Danke.

[bobobo]

Check Deinen Code

Irgendwie wird wohl Initdatabase() nicht vor dem Aufruf der Prozedur
getUserRole(UserName.s) aufgerufen

Die Fehlermeldung sollte hier eigentlich nicht irreführen und korrekt sein.

ömm .. eventuell hast Du die Prozeduren in Threads laufen, dann
muss die Zeilennummer der Fehlermeldung nicht unbedingt korrekt sein.

Der Code an sich scheint mir ok zu sein.

[batzilla]

hmm...

Mein Programm sah bisher so aus:

Code: Alles auswählen

variablen
declarationen

procedure1
procedure2
procedure3
procedure4
procedure5
etc

initDatabase() etc...

hab das jetzt wie folgt aufgebaut:

Code: Alles auswählen

variablen
declarationen

initDatabase() etc...

procedure1
procedure2
procedure3
procedure4
procedure5
etc

Nun kein Fehler beim DatabaseQuery mehr. Komisch. Ich dachte, es reicht die Prozeduren am Anfang zu deklarieren, dann wäre die Reihenfolge egal. Irre ich mich?

[Sicro]

Hallo batzilla,

ohne vorherigem Aufruf des Befehls "InitDatabase" sind die zugehörigen Befehle nicht bekannt. Du möchtest diese aber in deinen Prozeduren schon verwenden. Deshalb kommt es zu einem Fehler.

Mfg DerProgger

[batzilla]

Aber ich hatte doch auch schon vorher Prozeduren, die vor dem eigentlichen InitDatabase() im Quelltext standen.

Code: Alles auswählen

variablen
declarationen

prozedur1 mit z.B. DatabaseQuery(...)

InitDatabase()
OpenDatebase(...)

Das hat auch schon immer funktioniert. Nur bei der neuen Prozedur wie im ersten Beitrag bereits gepostet gabs plötzlich die Fehlermeldung obwohl ich auch schon vorher in anderen Prozeduren Datenbankfunktionen aufgerufen habe. Versteh ich nicht.

[Sicro]

Du hast Recht. Ich habe gerade probeweise ein Code geschrieben, der grundsätzlich deiner Vorgehensweise entspricht und er hat funktioniert. Der Fehler muss also irgendwo anders liegen.

Könntest du noch einen kleinen, kompilierbaren Code posten, der den selben Fehler aufweist? Wäre sehr hilfreich für die Fehlerfindung. Vielleicht kommst du dadurch auch schon selber auf die Spur.

Mfg DerProgger

[Konne]

Tut es denn ohne debugger?

[batzilla]

Wollte grad testen ob der Fehler auch ohne Debugger auftritt...

Hab dazu den Code wieder in die ursprüngliche Reihenfolge gebracht und nun funktioniert er!? Hexenwerk...