К списку форумов К списку вопросов
Русские буквы в параметрах AdoQuery (Delphi 7)
Grigoriy
28.04.2004 - 12:41
сабж у кого-нибудь получался? есть запрос:
SELECT TOP 10 * FROM Price
WHERE Наименование LIKE :S1
AND Цена=(
            SELECT TOP 1 min (Цена)
            FROM Price
            WHERE Наименование LIKE :S2
            )
и попытка присваивания:
    ADOQuery1.Parameters.ParamByName('S1').Value:=String(S1);
    ADOQuery1.Parameters.ParamByName('S2').Value:=String(S1);
(2 раза один параметр упоминать нельзя, слетает почему-то...)
Так вот - в Valuу лежит какой-то бред... (Watch показал), хотя S1 нормальная вроде - (тот же Watch)
VaP
1 - 28.04.2004 - 13:29
А может просто сделать так:
ADOQuery1.Parameters.ParamByName('S1').AsString:=String(S1);
Grigoriy
2 - 28.04.2004 - 15:02
нет такого свойства у ParamByName как AsString
есть Value и всё
Grigoriy
3 - 28.04.2004 - 15:17
Вот так я добавляю записи с минимальной ценой для кадого наименования.
Плюнул на параметры, они у меня не дают нужного результата...
Работает, но ОЧЕНЬ долго...
  dm.adoNames.Open;
  While NOT(dm.adoNames.Eof) do
  begin
    S1:=StrUtils.LeftStr(dm.adoNames.FieldValues['NAMEN'],99);
    Application.Title:=S1;
    QUERY1.SQL.Clear;
    QUERY1.SQL.Add('Insert INTO CustPrice SELECT * FROM Price WHERE Наименование ='''+s1+''' AND Цена=(SELECT min (Цена) FROM Price WHERE Наименование ='''+s1+''')');
    QUERY1.ехесSQL;
    dm.adoNames.Next;
  end;
Инна
4 - 28.04.2004 - 22:24
Подскажите, плиз, где в Инете можно скачать подробную информацию про работу в Делфи с таблицами, запросами и т.п. Аксеса.
Grigoriy
5 - 29.04.2004 - 10:21
sql.ru
Инна
6 - 29.04.2004 - 11:33
Спасибо! )

К списку вопросов на форуме Программирование

>>