Проблема с параметрами при работе С ADO

[А. Долматов]

Суть проблемы есть код:
DataModule5.ADOQuery1.Parameters.Ad dParameter.Name:='nomer';
DataModule5.ADOQuery1.Parameters.Pa ramByName('nomer').Value:=strtoint( nom);
ShowMessage(DataModule5.ADOQuery1.P arameters.ParamByName('nomer').Valu e);
DataModule5.ADOQuery1.SQL.Add('dele te zakaz.n_zakaza');
DataModule5.ADOQuery1.SQL.Add('from zakaz');
DataModule5.ADOQuery1.SQL.Add('wher e (((zakaz.n_zakaza)=[nomer]))');
DataModule5.ADOQuery1.Active:=true;
DataModule5.ADOQuery1.Active:=false ;
все вроде бы ничего, но при выолнении запроса выводится ошибка:
параметр [nomer] не имеет значения по умолчанию. Как решить проблему? Какое значение по умолчанию?

[Andrei]

DataModule5.ADOQuery1.SQL.Add('wher e (((zakaz.n_zakaza)=[nomer]))');

^^^
А так можно обращаться к значению параметра?

Я всегда считал что это делается так:

DataModule5.ADOQuery1.SQL.Add('wher e (((zakaz.n_zakaza)= :nomer))');

[А. Долматов]

Точно, как я мог это забыть. Стыдно. Теперь другая ошибка Объект или поставщик не может выполнить требуемую операцию. Как это так? ODBC же использую. конектюсь так:
const
ss = 'Provider=Microsoft.Jet.OLEDB.4.0;D ata Source=%s;Persist Security Info=False';
var
path,path0,p: string; f:textfile;
begin
p:=GetCurrentDir;
if not FileExists(p+'\База\path.txt') then
begin
path0:= GetCurrentDir;
path:= path0 +'\База\db_kiosk.mdb';
assignfile(f,path0+'\База\path.txt' );
Rewrite(f);
write(f,path);
CloseFile(f);
end
else
begin
assignfile(f,GetCurrentDir+'\База\p ath.txt');
reset(f);
read(f,path);
CloseFile(f);
end;
try
ADOConnection2.ConnectionString:=Fo rmat(ss, [path]);
ADOConnection2.Open;
except
ShowMessage('Ошибка!');
exit;
end;
конектится нормально, но откуда такая ошибка?

[Andrei]

Сообщение от А. Долматов

Теперь другая ошибка Объект или поставщик не может выполнить требуемую операцию. Как это так? ODBC же использую. конектюсь так: ....

Не могу ничего сказать по этой ошибке. С acess не разбирался. Нужды не было.

Может прав не хватает?

[Aristarh Dark]

1.

DataModule5.ADOQuery1.SQL.Add('dele te zakaz.n_zakaza');
DataModule5.ADOQuery1.SQL.Add('from zakaz');
DataModule5.ADOQuery1.SQL.Add('wher e (((zakaz.n_zakaza)=[nomer]))');

Запрос должен быть вида:

DELETE FROM zakaz
WHERE n_zakaza = 12

2.

DataModule5.ADOQuery1.Active:=true;
DataModule5.ADOQuery1.Active:=false ;

запускать подобные запросы (не возвращающие "набор данных" (dataset), а возвращающие количество записей которые были обработанны данным запросом) на исполнение следует так:

  DataModule5.ADOQuery1.ExecSQL;

[crazy horse]

Сообщение от А. Долматов

Суть проблемы есть код:
DataModule5.ADOQuery1.Parameters.Ad dParameter.Name:='nomer';
DataModule5.ADOQuery1.Parameters.Pa ramByName('nomer').Value:=strtoint( nom);
ShowMessage(DataModule5.ADOQuery1.P arameters.ParamByName('nomer').Valu e);
DataModule5.ADOQuery1.SQL.Add('dele te zakaz.n_zakaza');
DataModule5.ADOQuery1.SQL.Add('from zakaz');
DataModule5.ADOQuery1.SQL.Add('wher e (((zakaz.n_zakaza)=[nomer]))');
DataModule5.ADOQuery1.Active:=true;
DataModule5.ADOQuery1.Active:=false ;
все вроде бы ничего, но при выолнении запроса выводится ошибка:
параметр [nomer] не имеет значения по умолчанию. Как решить проблему? Какое значение по умолчанию?

Значения параметрам необходимо присваивать ПОСЛЕ! комманд add/text:=, которые напрочь затирают все предыдущие телодвижения, ака sql.clear. Cам имел неосторожность на эти грабли наступить.

[А. Долматов]

DataModule5.ADOQuery1.ExecSQL;

пишет ошибку по адресу .....

Значения параметрам необходимо присваивать ПОСЛЕ! комманд add/text:=, которые напрочь затирают все предыдущие телодвижения, ака sql.clear. Cам имел неосторожность на эти грабли наступить.

замечание учел, но одинакого не работает. Записи не показывает.
проверял значение параметра заносится в переменную.

[crazy horse]

а с каких пор delete должен записи показывать? imho удаляет... показывает select... раньше показывал)))

Точно, как я мог это забыть. Стыдно. Теперь другая ошибка Объект или поставщик не может выполнить требуемую операцию. Как это так? ODBC же использую. конектюсь так:

а в какой строке ошибка возникает? на ??.udl тест проходит?

[А. Долматов]

delete или select здесь не играет роли, т.к. по структуре оба запроса одинаковы
DataModule5.ADOQuery2.SQL.Add('SELE CT Zakaz.Kod, Zakaz.N_Zakaza AS [Номер заказа], Zakaz.Path AS Путь, Format.Format AS Формат, Paper.Paper AS Бумага, Zakaz.Kol AS Количество, Zakaz.Time AS Время, Zakaz.Cena AS Цена');
DataModule5.ADOQuery2.SQL.Add('FROM Paper INNER JOIN (Format INNER JOIN Zakaz ON Format.Kod_F = Zakaz.Kod_F) ON Paper.Kod_P = Zakaz.Kod_P');
DataModule5.ADOQuery2.SQL.Add('wher e Zakaz.N_Zakaza=:x');
DataModule5.ADOQuery2.Parameters.Pa ramByName('x').Value:=strtoint(nom) ;

а в какой строке ошибка возникает? на ??.udl тест проходит?

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

[crazy horse]

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

1) попробуйте те же запросы руками в sqlexplorer'e или любой другой среде жующей sql native.
2) а что у вас за база, если не секрет? есть ли права на запись у юзверя, от имени которого коннект? не стоит ли где-нибуть readonly?

Возможно(хотя вряд ли я ведь не через аксес это делаю) в запросе нужно указать подтверждение.

если не пользуете транзакции, то не нужно