AV beim Start mit DB-Module

[Mackhack]

Hallo,

ich habe folgenden Code(-ausschnitt)

Delphi-Quellcode:

procedure TfoLogin.FormShow(Sender: TObject);
var
  UserList: TStrings;
  I: Integer;
begin
  //alle Usernamen auslesen
  UserList := TStringList.Create;
  UserList.Add('Bitte wählen');
  with DBModule.AdsQuery do
  begin
    Active := False;
    SQL.Text := 'SELECT ID, FirstUsername, LastUsername FROM User ORDER BY ID';
    Active := True;

und jedesmal wenn ich das Programm starte bekomme ich folgende Fehlermeldung:

Zitat:

---------------------------
Debugger Exception Notification
---------------------------
Project Post.exe raised exception class EAccessViolation with message 'Access violation at address 004BD8FF in module 'Post.exe'. Read of address 00000068'.
---------------------------
Break Continue Help
---------------------------

Der Fehler tritt auf an der Stelle

with DBModule.ADSQuery do In der uDataModule sieht es so aus:

Delphi-Quellcode:

procedure TDBModule.DataModuleCreate(Sender: TObject);
var
  AppDir : String;
begin
  try
    AdsConnection1.AdsServerTypes := [stAds_LOCAL];
    if ( not AdsConnection1.IsConnected ) then
    begin
      AppDir := ExtractFilePath(Application.ExeName);
      AdsConnection1.ConnectPath := AppDir + 'Database\' + 'PostDB.add';
      AdsConnection1.IsConnected := True;
    end
  except
    AdsConnection1.Disconnect;
    ShowMessage('Database "'+ AdsConnection1.ConnectPath + '" could not be connected!');
  end;
end;

Weis jemand woran das liegen koennte?

Danke!

[marabu]

Hallo Tobias,

bist du sicher, dass du dein Datenmodul vor allen anderen Formularen erstellt hast?

Grüße vom marabu

[Mackhack]

Hm,...

muss das in den Projekt Optionen eingestellt werden? Oder wie muesste ich das machen? Ich habe schon oefters so mit diesem Code gearbeitet und habe das noch nie bekommen diese Fehlermeldung.

[marabu]

Einstellen kannst du die Reihenfolge der Erstellung tatsächlich in den Projektoptionen - unter "Formulare". Oder direkt im Projektquelltext durch Umordnen.

[Mackhack]

Hm,...

siehst du an dieser Zeile einen Fehler?

    SQL.Text := 'SELECT ID, FirstUsername, LastUsername FROM User ORDER BY ID'; Denn beim Starten des Programms sagt der Compiler dass er nach dem FROM einen Fehler hat. Aber fuer mich sieht das alles richtig aus! Und zwar missing Table Name. Aber die Table ist User!

[marabu]

USER ist vielleicht nicht so günstig als TableName - eventuell ein reserviertes Wort.

[Muetze1]

Zitat von marabu:

USER ist vielleicht nicht so günstig als TableName - eventuell ein reserviertes Wort.

Ist es auch - und auch der Grund für die Meldung

[Mackhack]

Da kommen wir der Sache schon naeher!

Danke marabu und Muetze1!