|
Вопрос # 6 086/ вопрос открыт / |
|
Здравствуйте, эксперты! Я не программер, я только учусь. Учусь дистанционно на Интуит ру есть пара курсов. Один уже прошёл, второй только начал и вот закавыка: не проходит работа с драйвером поддержки баз данных MS OLE Provaider ODBC Drivers. Проблема в том, что этот драйвер при попытке создать вторую запись в таблице пишет что-то вроде : "должен использоваться обновляемый запрос", между тем, это только 4! лекция в курсе и никаких запросов ещё не создавал.
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
Приложение: Переключить в обычный режим- Windows 7
- Delphi 7
-
- MSDASQL.1;Persist Security Info=False;Data Source=MenuParadox;
- unit MyTypes;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids;
-
- type
- TfMyTypes = class(TForm)
- Button1: TButton;
- Button2: TButton;
- DBGrid1: TDBGrid;
- DBEdit1: TDBEdit;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure FormClose(Sender: TObject; var Action: TCloseAction);
- procedure FormCreate(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- fMyTypes: TfMyTypes;
-
- implementation
-
- uses DM, Main;
-
- {$R *.dfm}
-
- procedure TfMyTypes.Button1Click(Sender: TObject);
- begin
- //äîáàâëÿåì
çàïèñü:
- fDM.TipsT.Append;
- //ïåðåâîäèì
ôîêóñ:
- DBEdit1.SetFocus;
- end;
-
- procedure TfMyTypes.Button2Click(Sender: TObject);
- begin
- Close;
- end;
-
- procedure TfMyTypes.FormClose(Sender: TObject; var Action: TCloseAction);
- begin
-
-
- if fDM.TipsT.Modified then
-
-
- fDM.TipsT.Cancel
- else fDM.TipsT.Post;
- end;
-
- procedure TfMyTypes.FormCreate(Sender: TObject);
- begin
-
- end;
-
- 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:14 [#22]:
Примечание: новая строка в сетку не добавляется.
Я не программер, я только учусь.
|
|
corban (статус: 2-ой класс), 19 апреля 2012, 06:19 [#23]:
а это обязательное условие? через BDE нельзя? если надо именно через ADO попробуй поискать в сети книгу В.Фаронов "Программирование БД в Delphi 7" там он описывал косяк в ADO
|
|
Владислав Анатольевич (статус: Посетитель), 19 апреля 2012, 06:31 [#24]:
Я как раз её сейчас открыл в PDF формате.
Я не программер, я только учусь.
|
|
Владислав Анатольевич (статус: Посетитель), 19 апреля 2012, 06:32 [#25]:
Просто пытаюсь изучить по порядку определённый курс, определённого автора.
Я не программер, я только учусь.
|
|
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 (статус: 2-ой класс), 20 апреля 2012, 03:24 [#28]:
Смотри Фаронова, я точно помню что там было описано как ADO сдружить с Paradox'ом
|
Страницы: [« Предыдущая] [1] [2]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|