| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Глюк с Parameters в TADOQuery [D5, D6, Access]

Browko Dmitrey ©   (2002-05-22 18:24:00) 

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

---

Johnmen   (2002-05-23 09:33:00) [1]

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

---

Browko Dmitrey   (2002-05-23 09:18:00) [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;

---

skiph   (2002-05-23 06:20:00) [3]

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

---

Наверх