Параметрический запрос

[reboot]

слишком мало параметров, требуется два.

аксесс просит два параметра, которые никак не могут дойти с дельфи((

[Serge_Bliznykov]

ужас... если не можете сами разобраться, то сделайте небольшую тестовую базу в Access, скопируйте туда требуемые таблицы (пары строчек данных будет достаточно), запросы. Запакуйте вместе с исходниками своего проекта и выкладывайте. (либо сюда в тему (внизу "Расширенный режим" - "Управление вложениями", либо, если прав пока не достаточно, то на любой файлообменник (zalil.ru, rapidshare.com, ifolder.ru, files.mail.ru или любой другой) и сюда ссылку на скачивание).
Посмотрим, что и кто у Вас требует!

[soleil@mmc]

а я предлагаю вообще "ход конем"
использовать внутренний запрос turnover без параметров - взять и обозвать его turnover_wo_range

SELECT 
  goods.id, 
  count(moving_goods.id_good) AS quant_arrival, 
  sum(moving_goods.price_arrival) AS sum_arrival
FROM moving_goods INNER JOIN goods 
    ON moving_goods.id_good=goods.id
GROUP BY goods.id

ты же все равно потом накладываешь фильтр для всех остальных запросов при объединении с этим запросом
не думаю, что там так много данных что потребовалось в первоначальном запросе отсекать данные чтобы последующие запросы выполнялись быстрее

[reboot]

та дело не в запросе))

я просто никак не въезжаю, почему параметры из дельфей никак не доходят до аксесса((

либо "неверно или не окончательно заполнены данные параметра", либо "слишком мало параметров"(((

просто если пошагово анализировать указание параметров дельфей и си шарпа, при вызове почти идентичных запросов, то приходим к следующему:

C#
command.Parameters.Add("@start_date",OleDbType.Date).Value=DateStart.Value;

где
command.Parameters.Add // добавление параметра
("@start_date" // указание имени
,OleDbType.Date // указание типа данных
).Value=DateStart.Value; // указание значения

Delphi 6

Query.Parameters.AddParameter(); // добавление параметра
Query.Parameters[0].Name:='pstart_date'; // указание имени
Query.Parameters[0].DataType:=ftDateTime; // указание типа данных
Query.Parameters[0].Value:=DatePeriodStart.DateTime; // указание значения

в запросе, посылаемом программой аксессу, в условии where явно присваиватся значения этим параметрам - как в дельфи, так и в си шарпе.

вывод напрашивается:

либо параметры в дельфи передаются не так, как я это понимаю;
либо SQL запрос в дельфи, посылаемый аксессу должен быть иным (маловероятно);
либо в Delphi 6 что-то не так с реализацией передачи параметров при использовании ADOQuery (по идее тоже маловероятно)...

проломал голову полтора дня в пустую(((

можно задачу решить альтернативно, вызвав четыре запроса с разным условием с программы, заполнив массив в памяти и вывев его на экран, но эта методика сильно будет есть ресурс при увеличении объёмов базы. поэтому хочется всё-же кое-какие операции предоставить аксессу решать внутри mdb, а в программе запрашивать конкретный результат.

не знаю что делать... буду биться ещё, ибо выбора нет((
если есть у кого светлые мысли по этому поводу - буду очень благодарен!

[TaTT DoGG]

пишу так:

with ADOCommand1 do
begin
CommandText:='INSERT INTO OrderBuy (year) VALUES(:ye)';
Parameters.CreateParameter('ye',ftString,pdInput,255,'test');
Execute;
end;

,]бъет ошибку "Неправильно определен объект Parameter. Предоставлены несовместимые или неполные сведения." как лечить?

12:30

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

CommandText:='INSERT INTO OrderBuy (model_id) VALUES(:mi)';
Parameters.CreateParameter('mi',ftinteger,pdInput,sizeof(integer),4233);

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом. Это - флуд.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор

[Serge_Bliznykov]

TaTT DoGG, извините за оффтоп, а чем Вам ADOQuery (новый, отдельный, чтобы избежать возможных проблем, о которых речь шла в предыдущей теме) не угодил?

ADOQueryForInsert.SQL.Text := 'INSERT INTO OrderBuy (model_id) VALUES(:mi)';
ADOQueryForInsert.Parameters.ParamByName('mi').Value := 'TestString';
ADOQueryForInsert.ExecSQL;

только сейчас заметил - а что, у Вас model_id ключевое поле? А почему String? Так надо?

[TaTT DoGG]

блин... у меня в базе почему-то тип поля другой стоит. ща попробую

жесть, так ступил... ))) имя year зарезирвировано видно. переименовал его в базе на myear и всё заработало. сейчас только попробую со строками ещё

всё, работает. спасибо за наводку ))