Как закончить БД?

[valenina]

Сообщение от -MagicAlex-

Если в Делфи 7, то надо просто установить модуль dclqrr70.bpl
Установка следующим образом: Component -> Install Packages

Я установила... а среди компонентов его не могу найти
Подскажите где именно?

[rdama]

ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OL EDB.4.0;Data Source='+
    extractfilepath(application.exename)+'bd.mdb;Persist Security Info=False';
ADOConnection1.connected:=true;

Ищи вкладку QReport.

[valenina]

[QUOTE=rdama;554468]

ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OL EDB.4.0;Data Source='+
    extractfilepath(application.exename)+'bd.mdb;Persist Security Info=False';
ADOConnection1.connected:=true;

А если у меня несколько DataSource тогда я каждый прописываю по аналогии? т.е (Data Source='+
extractfilepath(application.exename )+'bd.mdb)

[rdama]

Не совсем понимаю.
У Вас несколько ADOConnection смотрящих на одну и туже БД?
Или смотрящих на разные БД?

Если первый вариант то все удаляем оставляем только один.
Если второй вариант то да по аналогии если есть необходимость работать с несколькими БД одновременно.
Если такой необходимости нет, то можно по необходимости переключаться с одной БД на другую.

[valenina]

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

Не совсем понимаю.
У Вас несколько ADOConnection смотрящих на одну и туже БД?
Или смотрящих на разные БД?

Если первый вариант то все удаляем оставляем только один.
Если второй вариант то да по аналогии если есть необходимость работать с несколькими БД одновременно.
Если такой необходимости нет, то можно по необходимости переключаться с одной БД на другую.

Нет у меня несколько форм и в каждой форме таблица и получается для каждой таблице своя Data Sour и Ado Table а AdoConection один

[valenina]

procedure TDataModule3.DataModuleCreate(Sende r: TObject);
begin
DataModule3.ADOConnection1.Connecti onString:='Provider=Microsoft.Jet.O L EDB.4.0;
KodSource1:='+extractfilepath(appli cation.exename)+'bd.mdb;
Kod_DSource1 :='+extractfilepath(application.exe name)+'bd.mdb;
Persist Security Info=False';
ADOConnection1.connected:=true;
end;

end.

Это код который я написала... все равно выдает ошибки..

[Dark_Spirit]

procedure TDataModule3.DataModuleCreate(Sende r: TObject);
begin
DataModule3.ADOConnection1.Connecti onString:='Provider=Microsoft.Jet.O L EDB.4.0;
KodSource1:='+extractfilepath(appli cation.exename)+'bd.mdb;
Kod_DSource1 :='+extractfilepath(application.exe name)+'bd.mdb;
Persist Security Info=False';
ADOConnection1.connected:=true;
end;

end.

Это код который я написала... все равно выдает ошибки..

а он и будет выводть ошибки. строка подключения для ADOConnection - это переменная строкового типа. у тебя же она прерывается. попробуй изменить таким образом:

DataModule3.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;
Data Source='+extractfilepath(application.exename)+'bd.mdb;Persist Security Info=False';

всё наведённое выше, должно быть записано в одной строке.

[rdama]

procedure TDataModule3.DataModuleCreate(Sende r: TObject);
begin
DataModule3.ADOConnection1.Connecti onString:='Provider=Microsoft.Jet.O L EDB.4.0;
KodSource1:='+extractfilepath(appli cation.exename)+'bd.mdb;
Kod_DSource1 :='+extractfilepath(application.exe name)+'bd.mdb;
Persist Security Info=False';
ADOConnection1.connected:=true;
end;

end.

Что это? И зачем оно надо?
И это работать не будет...

KodSource1:='+extractfilepath(appli cation.exename)+'bd.mdb;
Kod_DSource1 :='+extractfilepath(application.exe name)+'bd.mdb;

Для подключения к БД делаем так:

ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OL EDB.4.0;Data Source='+
    extractfilepath(application.exename)+'bd.mdb;Persist Security Info=False';
ADOConnection1.connected:=true;

Далее для всех ADOTable, ADOQuery в свойстве Connection указываем Ваш
ADOConnection1.
Далее ADOTable в свойстве TAbleName указываем имя таблицы.
В ADOQuery в свойстве SQL пишем запрос к БД.
И свойство Active ставим True.