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

Вниз

delphi 10 + ADOQuery.Parameters = параметр не найден   Найти похожие ветки 

 
Vladimir3466   (2010-09-18 01:03) [0]

всем привет
народ подскажите в чом может быть проблема в 9 дельфе
привиденный ниже код работает , а в 10 делфе во время выполнения выдает ошибку : не найден параметр  :a1.
в качестве сервера access

ADOConnection.LoginPrompt := False;
ADOConnection.ConnectionString := connectstr;

try
   ADOQuery.SQL.Clear;
   ADOQuery.Parameters.Clear;
   ADOQuery.Close;

    ADOQuery.SQL.text:="UPDATE [MAIN] SET [PROVERKA]= ""PR"",   [CP]= ""PR"" WHERE [NOMER]= :a1";
      ADOQuery.Parameters.ParseSQL(ADOQuery.SQL.text, true);
     ADOQuery.Parameters.ParamValues["a1"]:=s;  //s: string
    ADOQuery.ExecSQL;

finally
 ADOQuery.Parameters.Clear;
 ADOQuery.SQL.Clear;
 ADOQuery.Close;
 ADOConnection.Close;
end;


 
sniknik ©   (2010-09-18 09:24) [1]

вряд ли в 9-ке, скорее в том что делаешь не думая. наворотил кучу бессмысленных действий, не понимая зачем и как они работают, а после обвиняешь кого то кто в них запутался...

убери все лишнее. и используй ParamByName, он привычнее как то.


 
Ega23 ©   (2010-09-18 11:00) [2]


> народ подскажите в чом может быть проблема в 9 дельфе


Проблема в программисте.

with ADOCommand do
begin
 CommandText := "UPDATE [MAIN] SET [PROVERKA]= ""PR"",   [CP]= ""PR"" WHERE [NOMER]= :a1";
 Parameters.ParamByName("a1").AsInteger := 10;
 try
   Execute;
 except on E: Exception do
   begin

   end;
 end;
end;


 
Vladimir3466   (2010-09-18 21:00) [3]

изначально использовалось именно
//   ADOQuery.Parameters.ParamByName("a1").DataType := ftstring;
//  ADOQuery.Parameters.ParamByName("a1").Value:=s;

но ошибка таже не найден параметр a1

щас попробую вариант от ega23



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

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

Наверх




Память: 0.47 MB
Время: 0.054 c
15-1348467779
alexdn
2012-09-24 10:22
2013.03.22
phpbb


15-1330079134
AV
2012-02-24 14:25
2013.03.22
Контроллер, большой, промышленный. Для чего? (vs Обычный ПК?!)


2-1339503702
kurolesov
2012-06-12 16:21
2013.03.22
Работа с TBitmap. Как быстрее?


2-1334410535
tolbase
2012-04-14 17:35
2013.03.22
Delphi 7! Как отловить событие minimize формы?


2-1335260296
Вася
2012-04-24 13:38
2013.03.22
По какому событию пересчитывать рекордсет?