Hallo,
versuche mit Delphi5 über ODBC auf eine Oracle-Datenbank zuzugreifen, funktioniert auch einwandfrei, wenn diese Abfrage mit den Parametern nicht wäre :-(( !!
Abfrage:
// QueryBank im Datenmodul DataModuleListen mit SQL-Statment füllen
with DataModuleListen do begin
with QueryBank do begin
Close;
UnPrepare;
with SQL do begin
Clear;
Add('Select b.ma_str, ');
Add(' b.name Name_MA, ');
Add(' b.strasse, ');
Add(' b.plz_ort, ');
Add(' b.bank_code1, ');
Add(' b.bank_code2, ');
Add(' c.name Name_Bank, ');
Add(' b.bank_konto, ');
Add(' a.betrag ');
Add('from sas_ma_kto1 A, ');
Add(' sas_ma B, ');
Add(' sas_bank C ');
Add('where a.lkz = :lkz and'); //Parameter lkz funzt nicht
Add(' a.fa_num = :fa_num and'); //geht
Add(' a.prd_jjjjmm = rd_jjjjmm and'); //geht
Add(' a.ma_str = b.ma_str and');
Add(' a.fa_num = b.fa_num and');
Add(' b.bank_code1 = c.bank_code1(+) and');
Add(' a.kto_kz = 1 ');
Add('order by :sort '); //Parameter sort funzt nicht
end;
ParamByName('lkz').AsString := cmbLkz.text;
ParamByName('fa_num').AsInteger := dbComboFa.KeyValue;
ParamByName('prd_jjjjmm').AsInteger := StrToInt(txtPrd_jjjjmm.text);
ParamByName('sort').AsInteger := ComboBoxSort.ItemIndex + 1;
Prepare;
Open;
end;
Abfrage Ende
Bin schon ganz verzweifelt, auch wenn ich statt den Parametern feste Werte verwende schluckt die Abfrage das nicht, könnte es vielleicht an meiner Formatierung liegen, (die vielen Leerzeichen)!!!
Hoffe jemand da draussen kann mir helfen! Wäre dann sehr zu dank verpflichtet!!
Vielen Dank für Eure Mühen
Tobias
versuche mit Delphi5 über ODBC auf eine Oracle-Datenbank zuzugreifen, funktioniert auch einwandfrei, wenn diese Abfrage mit den Parametern nicht wäre :-(( !!
Abfrage:
// QueryBank im Datenmodul DataModuleListen mit SQL-Statment füllen
with DataModuleListen do begin
with QueryBank do begin
Close;
UnPrepare;
with SQL do begin
Clear;
Add('Select b.ma_str, ');
Add(' b.name Name_MA, ');
Add(' b.strasse, ');
Add(' b.plz_ort, ');
Add(' b.bank_code1, ');
Add(' b.bank_code2, ');
Add(' c.name Name_Bank, ');
Add(' b.bank_konto, ');
Add(' a.betrag ');
Add('from sas_ma_kto1 A, ');
Add(' sas_ma B, ');
Add(' sas_bank C ');
Add('where a.lkz = :lkz and'); //Parameter lkz funzt nicht
Add(' a.fa_num = :fa_num and'); //geht
Add(' a.prd_jjjjmm = rd_jjjjmm and'); //geht
Add(' a.ma_str = b.ma_str and');
Add(' a.fa_num = b.fa_num and');
Add(' b.bank_code1 = c.bank_code1(+) and');
Add(' a.kto_kz = 1 ');
Add('order by :sort '); //Parameter sort funzt nicht
end;
ParamByName('lkz').AsString := cmbLkz.text;
ParamByName('fa_num').AsInteger := dbComboFa.KeyValue;
ParamByName('prd_jjjjmm').AsInteger := StrToInt(txtPrd_jjjjmm.text);
ParamByName('sort').AsInteger := ComboBoxSort.ItemIndex + 1;
Prepare;
Open;
end;
Abfrage Ende
Bin schon ganz verzweifelt, auch wenn ich statt den Parametern feste Werte verwende schluckt die Abfrage das nicht, könnte es vielleicht an meiner Formatierung liegen, (die vielen Leerzeichen)!!!
Hoffe jemand da draussen kann mir helfen! Wäre dann sehr zu dank verpflichtet!!
Vielen Dank für Eure Mühen
Tobias
Comment