Открытие Access в Delphi

@RedBull · Регистрация: 01.07.2010

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

Привет всем!помогите мне открыть таблицу Access в Delphi!
знаю что в нете оч много про это написано,но я ничего понять так и не смог

столько много написано,я запутался!
мне нужно открыть таблицу,желательно бы из этой же папки в которой и есть Project!

@serg16 · 17.03.2011, 19:46

//открой в Access свою базу и поставь пароль, например 1. Переименуй в MyBase.mdb. Эта база должна находится в одной папке с проектом.
//вот алгоритм открытия (разумеется должны быть на форме AdoConnection1 и AdoDataset1 c запросом
//в поле SQL

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
procedure TFormMenu.FormCreate(Sender: TObject);
var AdoCon,mepath,adover:string;
begin
AdoConnection1.Connected:=false;
mepath:=getcurrentdir;
adocon:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";' +
'User ID=Admin; Data Source='+mepath+'MyBase.mdb;' +
'Mode=Share Deny None;'+
'Jet OLEDB: Database Password='+1+';'+ 
'Jet OLEDB: New Database Password="";';
AdoConnection1.ConnectionString:=adocon;
[B]try[/B]
adover:=AdoConnection1.Provider; //это проверка версии профайдера должна быть 4.0
AdoConnection1.Connected:=true;
except
AdoConnection1.Connected:=false;
showmessage('Ошибка подключения.'+ #13 +
'Ожидаемая версия "' + adover + '" провайдера отличается от текущей');
application.Terminate;
end;
 
//пусть на форме таблица AdotaDataset1, предварительно настроена в свойстве на AdoConnection1
// и в
AdoDataset1.active:=true;
end;
end.

@RedBull · 20.03.2011, 17:18 **[ТС]**

вау,большое спасибо!попробую!
а можно сделать чтобы из этой же папки загружалась таблица,только из Database Desktop???
ну самая обычная таблица!
просто делаю одну прогу под Access а другую под Database Desktop!

@pirat2k · 28.11.2012, 23:04

а как програмно ее открыть испоьзуя кнопку????

@neitron · 05.05.2013, 13:53

а можно ли так открывать любуб БД,а не именованную?

Добавлено через 2 минуты
MyBase.mdb вместо этого filename можно вписывать или именно так надо?

@andrey199520 · 22.04.2014, 19:35

Извиняюсь, не могли бы вы подсказать? Почему ругается на строку 'Jet OLEDB: Database Password='+1+';'+

Добавлено через 40 секунд

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

//открой в Access свою базу и поставь пароль, например 1. Переименуй в MyBase.mdb. Эта база должна находится в одной папке с проектом.
//вот алгоритм открытия (разумеется должны быть на форме AdoConnection1 и AdoDataset1 c запросом
//в поле SQL

procedure TFormMenu.FormCreate(Sender: TObject);
var AdoCon,mepath,adover:string;
begin
AdoConnection1.Connected:=false;
mepath:=getcurrentdir;
adocon:='Provider=Microsoft.Jet.OLEDB.4. 0;Password="";' +
'User ID=Admin; Data Source='+mepath+'MyBase.mdb;' +
'Mode=Share Deny None;'+
'Jet OLEDB: Database Password='+1+';'+
'Jet OLEDB: New Database Password="";';
AdoConnection1.ConnectionString:=adocon;
try
adover:=AdoConnection1.Provider; //это проверка версии профайдера должна быть 4.0
AdoConnection1.Connected:=true;
except
AdoConnection1.Connected:=false;
showmessage('Ошибка подключения.'+ #13 +
'Ожидаемая версия "' + adover + '" провайдера отличается от текущей');
application.Terminate;
end;

//пусть на форме таблица AdotaDataset1, предварительно настроена в свойстве на AdoConnection1
// и в
AdoDataset1.active:=true;
end;
end.

Новые блоги и статьи Все статьи Все блоги /
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/

@RedBull 3 / 3 / 0 Регистрация: 01.07.2010 Сообщений: 53

	Открытие Access в Delphi 14.03.2011, 17:07. Показов 5897. Ответов 5 Метки нет (Все метки) Привет всем!помогите мне открыть таблицу Access в Delphi! знаю что в нете оч много про это написано,но я ничего понять так и не смог столько много написано,я запутался! мне нужно открыть таблицу,желательно бы из этой же папки в которой и есть Project! 0

@RedBull 3 / 3 / 0 Регистрация: 01.07.2010 Сообщений: 53
	20.03.2011, 17:18 [ТС]
	вау,большое спасибо!попробую! а можно сделать чтобы из этой же папки загружалась таблица,только из Database Desktop??? ну самая обычная таблица! просто делаю одну прогу под Access а другую под Database Desktop! 0

@pirat2k 11 / 11 / 8 Регистрация: 18.09.2012 Сообщений: 514
	28.11.2012, 23:04
	а как програмно ее открыть испоьзуя кнопку???? 0

@neitron 0 / 0 / 0 Регистрация: 06.11.2012 Сообщений: 88
	05.05.2013, 13:53
	а можно ли так открывать любуб БД,а не именованную? Добавлено через 2 минуты MyBase.mdb вместо этого filename можно вписывать или именно так надо? 0