Fehlermeldung bei SQL Abfrage: Cursor nicht aus Abfrage

[emsländer]

Moin,

hab da ein kleines Problem mit einer SQL-Abfrage:

Delphi-Quellcode:

function zeige_dokument_aus_sql(nummer : string) :integer;
  var _stmp : string;
   _query : Tsqlquery;
   erg64 : string;
   erg   : string;
begin
  result := 0;
  _query := TSQLquery.Create(nil);
     _query.sqlconnection := AktenManager.SQLConnection;
     try
      _stmp := 'select * from  vertragswerk where lfdnr ='+nummer;
      _query.sql.Add('USE finanzdesk');
      _query.sql.Add(_stmp);
      _query.open;
      erg64 := _query.FieldByName('dokument').Value;
      _query.close;
      erg := base64decode(erg);
      frm_unterlagentext.wp_am_text.Text := erg;
      frm_unterlagentext.ShowModal;
     except
      result := 99;
     end;
   freeandnil(_query);
end;

Für einen Tipp wäre ich dankbar.

Gruss

EL

[shmia]

Du verwendest zwei SQL-Anweisung in einer Query. Das tut nicht gut.
deshalb:

Delphi-Quellcode:

_stmp := 'select dokument from  finanzdesk.dbo.vertragswerk where lfdnr ='+nummer; 
_query.sql.Text := _stmp; 
_query.open;

Das Feld lfdnr sollte Primärschlüssel sein oder einen Index besitzen, damit der Zugriff bei grosser Datenmange trotzdem schnell bleibt.

[emsländer]

Zitat von shmia:

Du verwendest zwei SQL-Anweisung in einer Query. Das tut nicht gut.
deshalb:

Delphi-Quellcode:

_stmp := 'select dokument from  finanzdesk.dbo.vertragswerk where lfdnr ='+nummer; 
_query.sql.Text := _stmp; 
_query.open;

Das Feld lfdnr sollte Primärschlüssel sein oder einen Index besitzen, damit der Zugriff bei grosser Datenmange trotzdem schnell bleibt.

Hi shmia,

So funzt es! Danke!

Info: lfdnr ist Primärschlüssel, uniqe, autoincrement.

Gruss

EL