Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 6 086

/ вопрос открыт /

Здравствуйте, эксперты! Я не программер, я только учусь. Учусь дистанционно на Интуит ру есть пара курсов. Один уже прошёл, второй только начал и вот закавыка: не проходит работа с драйвером поддержки баз данных MS OLE Provaider ODBC Drivers. Проблема в том, что этот драйвер при попытке создать вторую запись в таблице пишет что-то вроде : "должен использоваться обновляемый запрос", между тем, это только 4! лекция в курсе и никаких запросов ещё не создавал.

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

Приложение:
  1. Windows 7
  2. Delphi 7
  3.  
  4. MSDASQL.1;Persist Security Info=False;Data Source=MenuParadox;
  5. unit MyTypes;
  6.  
  7. interface
  8.  
  9. uses
  10. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  11. Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids;
  12.  
  13. type
  14. TfMyTypes = class(TForm)
  15. Button1: TButton;
  16. Button2: TButton;
  17. DBGrid1: TDBGrid;
  18. DBEdit1: TDBEdit;
  19. procedure Button1Click(Sender: TObject);
  20. procedure Button2Click(Sender: TObject);
  21. procedure FormClose(Sender: TObject; var Action: TCloseAction);
  22. procedure FormCreate(Sender: TObject);
  23. private
  24. { Private declarations }
  25. public
  26. { Public declarations }
  27. end;
  28.  
  29. var
  30. fMyTypes: TfMyTypes;
  31.  
  32. implementation
  33.  
  34. uses DM, Main;
  35.  
  36. {$R *.dfm}
  37.  
  38. procedure TfMyTypes.Button1Click(Sender: TObject);
  39. begin
  40. //äîáàâëÿåì çàïèñü:
  41. fDM.TipsT.Append;
  42. //ïåðåâîäèì ôîêóñ:
  43. DBEdit1.SetFocus;
  44. end;
  45.  
  46. procedure TfMyTypes.Button2Click(Sender: TObject);
  47. begin
  48. Close;
  49. end;
  50.  
  51. procedure TfMyTypes.FormClose(Sender: TObject; var Action: TCloseAction);
  52. begin
  53.  
  54.  
  55. if fDM.TipsT.Modified then
  56.  
  57.  
  58. fDM.TipsT.Cancel
  59. else fDM.TipsT.Post;
  60. end;
  61.  
  62. procedure TfMyTypes.FormCreate(Sender: TObject);
  63. begin
  64.  
  65. end;
  66.  
  67. end.


Примечание #1 (18 апреля 2012, 19:11):
Замена DBEdit на Edit не проходит.содержание окна ошибки Project MyMenu.exe rased exception class EOleException with message'[Microsoft][
Драйвер ODBC Paradox] В операции должен использоваться обновляемый запрос' Process
stopped..

Владислав Анатольевич Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Владислав Анатольевич (статус: Посетитель)
Вопрос отправлен: 18 апреля 2012, 16:26
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 28; последнее сообщение — 20 апреля 2012, 03:24; участников в обсуждении: 4.

Страницы: [« Предыдущая] [1] [2]

Владислав Анатольевич

Владислав Анатольевич (статус: Посетитель), 19 апреля 2012, 06:11 [#21]:

Через ADO.
Я не программер, я только учусь.
Владислав Анатольевич

Владислав Анатольевич (статус: Посетитель), 19 апреля 2012, 06:14 [#22]:

Примечание: новая строка в сетку не добавляется.
Я не программер, я только учусь.
corban

corban (статус: 2-ой класс), 19 апреля 2012, 06:19 [#23]:

а это обязательное условие? через BDE нельзя? если надо именно через ADO попробуй поискать в сети книгу В.Фаронов "Программирование БД в Delphi 7" там он описывал косяк в ADO
Владислав Анатольевич

Владислав Анатольевич (статус: Посетитель), 19 апреля 2012, 06:31 [#24]:

Я как раз её сейчас открыл в PDF формате.
Я не программер, я только учусь.
Владислав Анатольевич

Владислав Анатольевич (статус: Посетитель), 19 апреля 2012, 06:32 [#25]:

Просто пытаюсь изучить по порядку определённый курс, определённого автора.
Я не программер, я только учусь.
bugmenot

bugmenot (статус: 3-ий класс), 19 апреля 2012, 07:07 [#26]:

копипаста:
procedure TForm1.Button1Click(Sender: TObject);
 
begin
  SampleTable.Append;
  SampleTable.FieldValues['ALPHANUMERIC'] := Edit1.text;
  SampleTable.FieldValues['INTEGER'] := StrToInt(Edit2.text);
  SampleTable.Post;
end;
виконання програми розпочинається з того самого мiсця, де призупинилося.

Владислав Анатольевич

Владислав Анатольевич (статус: Посетитель), 19 апреля 2012, 14:51 [#27]:

В общем всё дело в драйвере: перешёл на Acces, сменил драйвер (естественно) и код заработал без всяких правок. Вопрос то был как бы эту ошибку обойти. Строка связи не помогает. Начинает работать, видит таблицы, а ошибка всё равно возникает на том же самом месте.
Я не программер, я только учусь.
corban

corban (статус: 2-ой класс), 20 апреля 2012, 03:24 [#28]:

Смотри Фаронова, я точно помню что там было описано как ADO сдружить с Paradox'ом

Страницы: [« Предыдущая] [1] [2]

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 25 апреля 2026, 21:45
Выполнено за 0.03 сек.