Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.17;
Скачать: CL | DM;

Вниз

Глюк с 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;


 
Johnmen ©   (2002-05-23 09:33) [3]

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



Страницы: 1 вся ветка

Текущий архив: 2002.06.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
3-54966
alexa
2002-05-15 10:56
2002.06.17
сложный запрос


14-55276
tim woods
2002-05-14 03:07
2002.06.17
Куплю авторские утилиты


1-55150
Валет
2002-06-04 13:05
2002.06.17
---|Ветка была без названия|---


14-55299
Ulan
2002-05-15 08:28
2002.06.17
Передача и получение данных в/из формы


14-55261
IronHawk
2002-05-11 13:33
2002.06.17
Приветствую Мастеров! Обучение Delphi!