Сделать интерфейс для MS Access на Дельфи

@karam1488 · Регистрация: 01.06.2018

Студворк — интернет-сервис помощи студентам

Здравствуйте, в "шараге" поставили задачу сделать интерфейс для аксеса на делфи, все шло беззаботно, но тут я столкнулся с проблемой: При объединении ADOтаблиц и дальнейшего выбора в строке "Active" "true" появляется ошибка "Ядро базы данных Microsoft jet не может найти входную таблицу или запрос и далее указывает название из "TableName" якобы имя таблицы написано не правильно. Перепробовал кучу непроизвольных действий, но ничего не помогло, т.к в Delphi я работаю 1 день)

@karam1488 · 02.06.2018, 02:00 **[ТС]**

Проблему решил пересоздание Data модуля и полной переделкой таблиц в нем, так же поменял название на латиницу, теперь появилась новая проблема, при активации ADО таблиц "Active true" сами таблицы аксеса показываться не хотят

@qwertehok · 02.06.2018, 19:44

Сообщение от karam1488

сами таблицы аксеса показываться не хотят

у таблиц аксесса нет такого свойства "не хотят"

ты что то делаешь неправильно
что конкретно ты делаешь никто не видит. нужно или гадать или выкладывай проект

@karam1488 · 05.06.2018, 08:17 **[ТС]**

И так большинство проблем я решил, но теперь появилась новая преграда,

Сделать интерфейс для MS Access на Дельфи

Так же прилагается код

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB, ComCtrls;
 
type
  TForm1 = class(TForm)
    con1: TADOConnection;
    qry1: TADOQuery;
    ds1: TDataSource;
    dbgrd1: TDBGrid;
    btn1: TBitBtn;
    btn2: TBitBtn;
    btn3: TBitBtn;
    stat1: TStatusBar;
    procedure btn1Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
 
 
implementation
 
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
begin
Form2.show;
qry1.Insert;
end;
 
procedure TForm1.btn3Click(Sender: TObject);
begin
qry1.Delete;
end;
 
procedure TForm1.btn2Click(Sender: TObject);
begin
Form2.show;
end;
 
end.

Программа работала, но после сохранения и повторного запуска появилась ошибка с которой я так и не смог совладать. ( приведена выше )

@krapotkin · 05.06.2018, 08:54

после слова Var в программе идут переменные
а у вас их нет

@D1973 · 05.06.2018, 09:21

А правильно! Нафига экземпляр класса формы вообще объявлять... И мало ли, что Дельфи это объявляние сама туда пихает - удалить за ненадобностью!

@krapotkin · 05.06.2018, 09:38

а я удаляю все кроме form1 )

@D1973 · 05.06.2018, 10:52

Сообщение от krapotkin

все кроме form1

ну а ТС пошел дальше Вас - и Form1 тоже вынес за ненадобностью

@krapotkin · 05.06.2018, 12:28

он не специально ))

@D1973 · 05.06.2018, 12:39

ну пусть исправляется тогда...
karam1488, напишите в 29-й строке

Delphi
1
Form1: TForm1;

@karam1488 · 06.06.2018, 13:31 **[ТС]**

D1973, большое спасибо, заработало)

@karam1488 · 08.06.2018, 04:54 **[ТС]**

Продолжаю дальше штурмовать Delphi 7, на этот раз пытался вывести 6 таблиц, с помощью 6 ADOTable, 6 DataSourse и 1 ADOConnetion, все DataSourse соединены с ADOTable с помощью DATASet, далее объединил 6 ADOTable и в строке "Active" выбрал "True", но таблицы не отобразились в DBGrid, подскажите где я не прав. Проект запускается, но без данных. ADOConnetion соединил c базой данных, там все нормально

@Zombi_sib · 08.06.2018, 05:13

а ты все их соединил или только на форму положил

@karam1488 · 08.06.2018, 05:22 **[ТС]**

Все соединил

@Zombi_sib · 08.06.2018, 06:28

Выложи проект

@D1973 · 08.06.2018, 06:34

karam1488, а сами DBGrid-ы к какому-нибудь DataSource подключили?

@karam1488 · 08.06.2018, 06:35 **[ТС]**

Вот проект

@karam1488 · 08.06.2018, 06:40 **[ТС]**

D1973 подключить не получилось, т.к. при выделении DBGrid, DataSource у него пустой

@karam1488 · 08.06.2018, 06:42 **[ТС]**

Мне пора на учебу, извините пока больше информации дать не смогу

@D1973 · 08.06.2018, 06:49

karam1488, ну так и надо выбрать в инспекторе объектов нужный ДатаСорс - и все заработает...

Добавлено через 6 минут
Более того, свой датамодуль к первой форме тоже надо подключать!

Delphi
1
2
3
4
5
6
7
8
var
  Form1: TForm1;
 
implementation
 
uses Unit2; //<<== Вот это пропишите
 
{$R *.dfm}

Как только это сделаете и скомпилируете проект - в свойстве DataSource ДБГрида будет доступен список всех возможных компонентов TDataSource из Вашего датамодуля.

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

Сделать интерфейс для MS Access на Дельфи

Решение

Решение

@karam1488 0 / 0 / 0 Регистрация: 01.06.2018 Сообщений: 18

	Delphi 6-7 Сделать интерфейс для MS Access на Дельфи 01.06.2018, 01:22. Показов 3328. Ответов 34 Метки delphi 7 (Все метки) Здравствуйте, в "шараге" поставили задачу сделать интерфейс для аксеса на делфи, все шло беззаботно, но тут я столкнулся с проблемой: При объединении ADOтаблиц и дальнейшего выбора в строке "Active" "true" появляется ошибка "Ядро базы данных Microsoft jet не может найти входную таблицу или запрос и далее указывает название из "TableName" якобы имя таблицы написано не правильно. Перепробовал кучу непроизвольных действий, но ничего не помогло, т.к в Delphi я работаю 1 день) 0

@karam1488 0 / 0 / 0 Регистрация: 01.06.2018 Сообщений: 18
	02.06.2018, 02:00 [ТС]
	Проблему решил пересоздание Data модуля и полной переделкой таблиц в нем, так же поменял название на латиницу, теперь появилась новая проблема, при активации ADО таблиц "Active true" сами таблицы аксеса показываться не хотят 0

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	05.06.2018, 08:54
	после слова Var в программе идут переменные а у вас их нет 0

@D1973 Модератор 9929 / 6467 / 2457 Регистрация: 21.01.2014 Сообщений: 27,423 Записей в блоге: 3
	05.06.2018, 09:21
	А правильно! Нафига экземпляр класса формы вообще объявлять... И мало ли, что Дельфи это объявляние сама туда пихает - удалить за ненадобностью! 0

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	05.06.2018, 09:38
	а я удаляю все кроме form1 ) 0

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	05.06.2018, 12:28
	он не специально )) 0

@karam1488 0 / 0 / 0 Регистрация: 01.06.2018 Сообщений: 18
	06.06.2018, 13:31 [ТС]
	D1973, большое спасибо, заработало) 0

@karam1488 0 / 0 / 0 Регистрация: 01.06.2018 Сообщений: 18
	08.06.2018, 04:54 [ТС]
	Продолжаю дальше штурмовать Delphi 7, на этот раз пытался вывести 6 таблиц, с помощью 6 ADOTable, 6 DataSourse и 1 ADOConnetion, все DataSourse соединены с ADOTable с помощью DATASet, далее объединил 6 ADOTable и в строке "Active" выбрал "True", но таблицы не отобразились в DBGrid, подскажите где я не прав. Проект запускается, но без данных. ADOConnetion соединил c базой данных, там все нормально Миниатюры 0

@Zombi_sib 379 / 332 / 89 Регистрация: 26.05.2010 Сообщений: 750
	08.06.2018, 05:13
	а ты все их соединил или только на форму положил 0

@karam1488 0 / 0 / 0 Регистрация: 01.06.2018 Сообщений: 18
	08.06.2018, 05:22 [ТС]
	Все соединил 0

@Zombi_sib 379 / 332 / 89 Регистрация: 26.05.2010 Сообщений: 750
	08.06.2018, 06:28
	Выложи проект 0

@D1973 Модератор 9929 / 6467 / 2457 Регистрация: 21.01.2014 Сообщений: 27,423 Записей в блоге: 3
	08.06.2018, 06:34
	karam1488, а сами DBGrid-ы к какому-нибудь DataSource подключили? 0

@karam1488 0 / 0 / 0 Регистрация: 01.06.2018 Сообщений: 18
	08.06.2018, 06:40 [ТС]
	D1973 подключить не получилось, т.к. при выделении DBGrid, DataSource у него пустой Миниатюры 0

@karam1488 0 / 0 / 0 Регистрация: 01.06.2018 Сообщений: 18
	08.06.2018, 06:42 [ТС]
	Мне пора на учебу, извините пока больше информации дать не смогу 0