Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ADO и параметры [D6, MSSQL]

weak © (2002-10-14 13:09:00)
Подскажите пожалуйста в чем ошибка. Код:
ADOQDate.Parameters.ParamByName("dat").Value := StrToDate(DEDate.Text);
ADOTRashod.Open;
if not (ADOTRashod.Locate("rashod_date",VarArrayOf ([dat]),[])) then //если в этой таблице нет данных на данную дату, то
ADOQDate.SQL.Clear;
ADOQDate.SQL.Text := "insert into Rashod (potreb_kod, rashod_date) select potreb_kod, :dat from Potrebitel"; //вставляю записи
ADOQDate.ExecSQL;
ADOTRashod.Close;

Ошибка! Parameter object is improperly defined. Inconsistent or incomplete information was provider.

В чем проблема?

sniknik (2002-10-14 16:36:00) [1]
говорит что ODBC этого не понимает
поменяй провайдера на SQLOLEDB пройдет вот это с ним проходит

INSERT INTO Invoices1 (RequiredDate, ShippedDate) SELECT RequiredDate, GetDate() FROM Invoices
INSERT INTO Invoices1 (RequiredDate, ShippedDate) SELECT RequiredDate, "12.12.2002" FROM Invoices

weak (2002-10-14 16:01:00) [2]
На строке ADOQDAte.ExecSQL;
Именно ругается ODBC SQLServer Driver.

Johnmen (2002-10-14 15:55:00) [3]
В какой строке ?

weak (2002-10-14 15:22:00) [4]
Да, кое что исправила. Получилось вот что:
DM.ADOQDate.SQL.Text := "insert into Rashod (potreb_kod, rashod_date) select potreb_kod, :dat from Potrebitel";
DM.ADOQDate.Parameters.ParamValues["dat"] := StrToDate(DBdtEditDate.Text);
DM.ADOTRashod.Open;
if not (DM.ADOTRashod.Locate("rashod_date",VarArrayOf([DBdtEditDate.Text]),[])) then
DM.ADOQDate.ExecSQL;
DM.ADOTRashod.Close;
А теперь вот такая ошибка: Optional feature not implemented.
???

[NIKEL] (2002-10-14 13:20:00) [5]
1.попробуй определить праметры во время проектирования(это можно сделать и без запроса в Query)
2.ADOQDate.Parameters.Items[0].Value или ADOQDate.Parameters.ParamValues["dat"] = StrToDate(DEDate.Text);

ЮЮ (2002-10-14 13:16:00) [6]
Сначало написать текст запроса
ADOQDate.SQL.Text := "insert into Rashod (potreb_kod, rashod_date) select potreb_kod, :dat from Potrebitel"; //вставляю записи
а затем определять значения параметра
ADOQDate.Parameters.ParamByName("dat").Value := StrToDate(DEDate.Text);

Кстати, в
ADOTRashod.Locate("rashod_date",VarArrayOf ([ dat]),[]))
используешь одну дату, а в
ADOQDate.Parameters.ParamByName("dat").Value := StrToDate( DEDate.Text);
lheue.

Johnmen (2002-10-14 13:16:00) [7]
перед ADOQDate.ExecSQL; надо
ADOQDate.Parameters.ParamByName("dat").Value := StrToDate(DEDate.Text);

sniknik (2002-10-14 13:15:00) [8]
сначала
ADOQDate.SQL.Text := "insert into Rashod (potreb_kod, rashod_date) select potreb_kod, :dat from Potrebitel";
потом
ADOQDate.Parameters.ParamByName("dat").Value := StrToDate(DEDate.Text);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »