[ALexandr555]

Нужно узнать результат поиска, но не визуально посмотрев на BDGrid

Код:

  Query.Close;
 Query.SQL.Clear;
 Query.SQL.Add('Select * from ZZZ where XXX LIKE "'+YYY+'"');

после этого поиска нужно как то вывести не найден результат либо какой результат первый в поле XXX .

[lmikle]

RecordCount не пробовал?
Ну или EOF в крайнем случае?

И вообще, здесь хоть кто-нить в документацию заглядывает???

[M.A.D.M.A.N.]

Запросом вроде Rowcount можно спросить.

[ALexandr555]

Код:

if Query.RecordCount <> 0 then
  begin
   ShowMessage(рузультат запись из поля XXX);
  end else
  begin
   ShowMessage('Нет записей удовлетворяющих поиску');
  end;

определить понял как, как тогда вывести вот результат

[lmikle]

Ручками, ручками.
собирай по полям в строку и выводи. Или сделай отдельную формочку с DBGrid для вывода результатов поиска.

[ALexandr555]

только начал работу с этим и не знаю что использовать чтобы с поля строчку то взять,
еще при добавлении Query.SQL.Add('INSERT INTO bdbot (ZZZ, GGG,FFF) VALUES ('+XXX+','+YYY+','+IntToStr(idbd)+')');
ругается на XXX? параметр не имеет значения по умолчанию
нашел в поиске только Если возможно, указывайте значения по умолчанию последними в списке аргументов

[lmikle]

Сообщение от ALexandr555

только начал работу с этим и не знаю что использовать чтобы с поля строчку то взять,

Код:

FieldbyName('name').AsString;

Сообщение от ALexandr555

еще при добавлении Query.SQL.Add('INSERT INTO bdbot (ZZZ, GGG,FFF) VALUES ('+XXX+','+YYY+','+IntToStr(idbd)+')');
ругается на XXX? параметр не имеет значения по умолчанию
нашел в поиске только Если возможно, указывайте значения по умолчанию последними в списке аргументов

да нет тут у тебя параметров...

ЗЫ. Ну найди хоть какую-нить книжку и пролистай ее. 75% вопросов сразу отпадет.

[ALexandr555]

http://usingvb.narod.ru/pages/state/state/sql.htmс самого начала нашел вот это но тут считай только по запросам, от туда и разбираю, дома в книге по D7 тоже только запросы и то меньше чем на сайте, ну и исходник смотрю.

Согласен что нет пораметров но ругается

Код:

FieldbyName('name').AsString;

то что хотел спасибо

к примеру если даже указываю не переменную, а 'GFGJ'

Код:

Query.SQL.Add('INSERT INTO bdbot (FFF, ZZZ,XXX) VALUES (GFGJ,'+YYY+','+IntToStr(idbd)+')');

то так же выдает что "Параметр GFGJ не имеет значения по умолчанию."

[M.A.D.M.A.N.]

Там есть метод "AddParam". И еще, если поле FFF varchar, то GFGJ надо в кавычки заключить.

[ALexandr555]

Код:

Query.SQL.Add('INSERT INTO bdbot (ZZZ, GGG,FFF) VALUES ('+XXX+','+YYY+','+IntToStr(idbd)+')');
Query.Parameters.AddParameter;
Query.Open;

Не правильно определен объект параметр предоставлены не согласованные или не полные сведенья.

есть такой метод...

[M.A.D.M.A.N.]

Я тебя боюсь, понял?!

[ALexandr555]

что мне пытаться втолковать намеками на метод если я не работал с этим ни разу?)
вот от сюда смотрю http://usingvb.narod.ru/pages/state/state/sql.htm

NSERT INTO Orders (ID, Name, Email, Order) VALUES (12, 'Вася Пупкин', 'vasya@pupkin.ru', 'Pentium II 450 MHz');

Добавляется новая запись, в которой полям ID, Name, Email, Order соответствуют значения 12, 'Вася Пупкин', 'vasya@pupkin.ru', 'Pentium II 450 MHz'.

делаю по аналогии и не выходит, вот и пытаюсь понять в чем дело )

[ALexandr555]

вобщем после поисков нашел где написано про присвоение параметров
http://forum.vingrad.ru/forum/topic-2505.html
и вышло у меня нечто такое

Код:

Query.SQL.text:='INSERT INTO bdbot (ZZZ, GGG,FFF) VALUES (par1,'+YYY+','+IntToStr(idbd)+')';
     Query.Parameters.ParseSQL(Query.SQL.Text, True);
     Query.Parameters.ParamByName('par1').Value:=XXX;
     Query.open;

ну и ошибка Parameter 'par1' was not found,
хотя в той темке говорилось что

Код:

Query.Parameters.ParseSQL(Query.SQL.Text, True);

избаляет от этой ошибки

[Страдалецъ]

параметры в sql-запросе обычно оформляются через двоеточие, т.е. так:

Код:

Query.SQL.text:='INSERT INTO bdbot (ZZZ, GGG,FFF) VALUES (:par1,'+YYY+','+IntToStr(idbd)+')';

а вот обращение к параметру уже без двоеточия и вы уже это нашли:

Код:

Query.Parameters.ParamByName('par1').Value:=XXX;

[ALexandr555]

Код:

Query.SQL.text:='INSERT INTO bdbot (ZZZ, GGG,FFF) VALUES (:par1,'+YYY+','+IntToStr(idbd)+')';
     Query.Parameters.ParseSQL(Query.SQL.Text, True);
     Query.Parameters.ParamByName('par1').Value:=XXX;
     Query.open;

Не одна так другая, "текущий поставщик не поддерживает возврат нескольких наборов записей в результате одной операции".

нашел что нужно заменить Query.open на Query.ExecSQL; в принципе работает, единственное из BDGrid пропадают записи, но проблемы нет по новой буду грузить.
Спасибо за помощь.