ADOQuery.SQL.ADD Problem... Zugriffsverletzung

[DerMike]

Hallo,

ich habe jetzt schon wieder einen blöden Fehler.

Ich erstelle mir meine SQL Abfrage und gebe sie aus. Somit kann ich mit Sicherheit sagen, dass die Abfrage richtig ist.

Jetzt möchte ich diesen STRING SQL (SELECT * ....) in die TADOQuery Komponente schreiben.

Delphi-Quellcode:

ADOQuery1.SQL.Add(SQL);

Leider bekomme ich eine Zugriffsverletzung EAccessViolation bei diesem Vorgang.

Das hier funktioniert aber....

Delphi-Quellcode:

ADOQuery1.SQL.Clear;

Wenn ich den SQL-String händisch hineinschreibe funktioniert auch alles.

Kann mir jemand erklären, was Bernhard Geyer mit Datenbank zerschießen meinte???? http://www.delphi-forum.de/viewtopic.php?p=403855

lg

Mike

//EDIT
Habe wieder etwas neues probiert. Leider dieselbe Fehlermeldung

Delphi-Quellcode:

  
  ADOQuery := TADOQuery.Create(nil);
  ADOQuery.Active := false;
  ADOQuery.ConnectionString := frmMain.Funktion.GetLDAPConnectionString;
  SQLQuery := 'SELECT cn FROM ' + frmMain.Funktion.GetLDAPTableString('LDAP','Gesellschaft',frmMain.Funktion.Domaene) + ' where objectclass='
          + QuotedStr('contact') + ' and objectcategory=' + QuotedStr('user');
  ADOQuery.SQL.Add(SQLQuery);

Am Inhalt des SQLQuery Strings kann es nicht liegen. Egal, was ich reinschreiben möchte ich bekomme immer EAccesViolation als Fehler :(

[f.siebler]

was ist mit der eigenschalft CommandText?

[DerMike]

Gute Frage...

Diese Eigenschaft gibt es bei TADOQuery aber nicht..

[f.siebler]

verdammt.... aber nen versuch wars wert :-)

[mikhal]

Wenn du schon die Methode Add von TStrings verwendest, solltest du auch dafür sorgen, dass TStrings leer ist.

Also entweder mit der Methode Clear erst leeren:

Delphi-Quellcode:

  SQLQuery := 'SELECT cn FROM ' + frmMain.Funktion.GetLDAPTableString('LDAP','Gesellschaft',frmMain.Funktion.Domaene) + ' where objectclass=' 
          + QuotedStr('contact') + ' and objectcategory=' + QuotedStr('user'); 
  ADOQuery.SQL.Clear; <=== hier wird TStrings geleert!
  ADOQuery.SQL.Add(SQLQuery);

oder wenn du bereits einen vollständigen String hast, diesen direkt der Eigenschaft Text zuweisen:

Delphi-Quellcode:

SQLQuery := 'SELECT cn FROM ' + frmMain.Funktion.GetLDAPTableString('LDAP','Gesellschaft',frmMain.Funktion.Domaene) + ' where objectclass=' 
          + QuotedStr('contact') + ' and objectcategory=' + QuotedStr('user'); 
  ADOQuery.SQL.Text := SQLQuery; <=== hier einen String zuweisen

Grüße
Mikhal

[DerMike]

Hallo,

ich glaube ich habe ein Lösung gefunden. Trotzdem weiß ich nicht warum mein Programm zu einem Fehler geführt hat, aber egal ....

Funktioniert NICHT

Delphi-Quellcode:

  ADOQuery := TADOQuery.Create(nil); 
  ADOQuery.Active := false; 
  ADOQuery.ConnectionString := frmMain.Funktion.GetLDAPConnectionString; 
  SQLQuery := 'SELECT cn FROM ' + frmMain.Funktion.GetLDAPTableString('LDAP','Gesellschaft',frmMain.Funktion.Domaene) + ' where objectclass=' 
          + QuotedStr('contact') + ' and objectcategory=' + QuotedStr('user'); 
  ADOQuery.SQL.Add(SQLQuery);

Zuerst ADOQuery.SQL befüllen und DANACH erst den ConnectionString :) Keine Ahnung warum aber es funktioniert.

FUNKTIONIERT

Delphi-Quellcode:

  
  ADOQuery := TADOQuery.Create(nil); 
  SQLQuery := 'SELECT cn FROM ' + frmMain.Funktion.GetLDAPTableString('LDAP','Gesellschaft',frmMain.Funktion.Domaene) + ' where objectclass=' 
          + QuotedStr('contact') + ' and objectcategory=' + QuotedStr('user'); 
  ADOQuery.SQL.Add(SQLQuery);
  ADOQuery.Active := false; 
  ADOQuery.ConnectionString := frmMain.Funktion.GetLDAPConnectionString;