Глюк с Parameters в TADOQuery

← →
Browko Dmitrey (2002-05-22 18:24) [0]

При занесении SQL.Text автоматически создаются Params, после заполнения нужными значениями делаю ExecSQL и получаю
Неправильно определен объект Parameter. Предоставлены несовместимые или неполные сведения

← →
skiph © (2002-05-23 06:20) [1]

Может ны все параметры занесены?
Напиши код, как ты все это делаешь.

← →
Browko Dmitrey (2002-05-23 09:18) [2]

Function TForm1.DeleteOneTable(Table:TDataSet;NameTable,Key:String):Boolean;
var SFN,S,SFP:String;i:word;V:Variant;
begin
SFN:="";SFP:="";Result:=True;
for i:=1 to Table.FieldCount do
if Table.Fields[i-1].FieldKind=fkData then
begin
SFN:=SFN+",""+Table.Fields[i-1].FieldName+""";
SFP:=SFP+",:"+Table.Fields[i-1].FieldName+"1";
end;
Delete(SFN,1,1);Delete(SFP,1,1);
ADOQueryJorn.Close;
ADOQueryJorn.Parameters.Refresh;
ADOQueryJorn.SQL.Text:="Insert INTO "+NameTable+" ("+SFN+") Values ("+SFP+")";
for i:=1 to ADOQueryJorn.Parameters.Count do
begin
S:=ADOQueryJorn.Parameters[i-1].Name;
S:=Copy(S,1,Length(S)-1);
if S="US_MODIFY" then V:=USER_ACCESS else
if S="DT_MODIFY" then V:=GetProgDate else
V:=Table.FieldByName(S).Value;
ADOQueryJorn.Parameters.ParamByName(S+"1").Value:=V;
end;
ADOQueryJorn.ExecSQL;
end;

Не определены типы параметров !

Глюк с Parameters в TADOQuery Найти похожие ветки