VPF::Создание БД в делфи связывая с готовой базой acces

Looose91

Дата 4.4.2011, 06:22 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 13.3.2011

Репутация: нет
Всего: нет

Люююди помогите мне надо Сделать БД на Delphi связывая с готовой базой ACCESS пробую через ADO чет у меня не получается! Помогите!

A11MaNi

Дата 4.4.2011, 08:30 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 5.4.2008
Где: россия, юфо

Репутация: 1
Всего: 1

У меня это организовано так:
ADOConnection - в свойствах connectionString Provider=Microsoft.Jet.OLEDB.4.0;Data Source=work_BD.mdb;Persist Security Info=False
ADOQuery - так же connectionString Provider=Microsoft.Jet.OLEDB.4.0;Data Source=work_BD.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False
DataSource1 -> DataSet -> ADOQuery
На форме DBGrid свойство DataSource -> DataSource1

В процедуре FormCreate

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.ADOConnection1.Connected := false;
  Form1.ADOConnection1.ConnectionString := (ExtractFilePath(ParamStr(0)) +
    '/work_bd.mdb');
  Form1.ADOConnection1.Connected := true;
  Form1.ADOQuery1.Active := false;
  Form1.ADOQuery1.SQL.Clear;
  Form1.ADOQuery1.SQL.Add('SELECT * FROM tabl1');
  Form1.ADOQuery1.Active := True;

В итоге в DBGrid отобразится таблица tabl1 из базы.
База лежит рядом с программой.
Может не совсем правильно - но работает smile

Добавлено через 3 минуты и 45 секунд
и можно почитать вот тут

Antimol

Дата 4.4.2011, 09:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 118
Регистрация: 28.7.2007
Где: Украина, Киев

Репутация: 4
Всего: 4

ADOQuery1 свяжи с ADOConnection1, и удали с ADOQuery1 ConnectionString

это правильно:

Цитата

DataSource1 -> DataSet -> ADOQuery1

только будет еще ADOConnection1

DataSource1 -> DataSet1 -> ADOQuery1 ->ADOConnection1

Цитата

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.ADOConnection1.Connected := true; // это значение можно установить в свойствах ADOConnection1
  Form1.ADOQuery1.SQL.Text:='SELECT * FROM tabl1';
  Form1.ADOQuery1.Open;
end;

--------------------

Лучшее спасибо это "+" к репутации. Мой блог: ИНФОРМАТИЗАЦИЯ, и mirsovetov.net. Написание программ, исправление ошибок, статьи....

Данкинг

Дата 4.4.2011, 10:26 (ссылка)

(голосов:2)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(Looose91 @ 4.4.2011, 07:22)

1. Знаки препинания принципиально игнорируешь?
2. Чем именно помочь? Используй поиск по форуму по слову ADO (технология доступа к БД). Ну и книги по созданию БД в Дельфи осилить не мешало бы. smile

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »