Показать сообщение отдельно
  #1  
Старый 29.12.2006, 05:07
NovaC NovaC вне форума
Прохожий
 
Регистрация: 13.11.2006
Сообщения: 24
Репутация: 10
По умолчанию ADOQuery & WIN98 v4.10

Доброе время суток !
Под Win2000 & WinXP всё работает работает безошибочно
В Win98 INSERT проходит а при UPDATE появляется ошибка :
Error: [Microsoft] [ODBC dBase Driver] Operation must use an updateble query
--------------INSERT:
temp := 'Provider=MSDASQL.1;' +
'Persist Security Info=False;' +
'Data Source=Файлы dBASE;' +
'Initial Catalog=' + StrPas(dbfDir);
ADOConnection1.ConnectionString := temp;
ADOQuery1.Connection := ADOConnection1;
ADOQuery1.ParamCheck := true;
temp := Format ('INSERT INTO .. (...) VALUES (...)', [...]);
try
ADOConnection1.Execute(temp);
except
on e : exception do MessageDlg(e.message,mtError, [mbOK],0);
end;
ADOQuery1.Close;
ADOConnection1.Close;

--------------UPDATE:
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
temp := 'SELECT * FROM ... WHERE ....;
ADOQuery1.SQL.Text := temp;
ADOQuery1.Parameters.ParseSQL(ADOQuery1.SQL.Text, true);
ADOQuery1.Parameters [0].Value := IP;
ADOQuery1.Parameters [1].Value := Host;
ADOQuery1.Open;
except
on e : exception do MessageDlg(e.message,mtError, [mbOK],0);
end;
temp := Format ('UPDATE ... SET .... WHERE ...', [...]);
try
ADOConnection1.Execute(temp);
except
on e : exception do MessageDlg(e.message,mtError, [mbOK],0);
end
end;
ADOQuery1.Close;
ADOConnection1.Close;

Заранее спасибо за ответ . . .
Ответить с цитированием