ADOConnection

[Optigood]

Grag, хорошо.

procedure TForm2.FormCreate(Sender: TObject);
var dbpath:string;
begin
DBGrid1.Columns[0].Title.caption:='Ôàìèëèÿ';
DBGrid1.Columns[1].Title.caption:='Èìÿ';
DBGrid1.Columns[2].Title.caption:='Îò÷åñòâî';
DBGrid1.Columns[3].Title.caption:='Äàòà ðîæäåíèÿ';
DBGrid1.Columns[4].Title.caption:='Ñåðèÿ ïàñïîðòà';
DBGrid1.Columns[5].Title.caption:='Íîìåð ïàñïîðòà';
DBGrid1.Columns[6].Title.caption:='Òðåíåð';
DBGrid1.Columns[7].Title.caption:='Ðàçðÿä';
DBGrid1.Columns[8].Title.caption:='Ñïîðò. øêîëà';
DBGrid1.Columns[9].Title.caption:='Ðåçóëüòàò';


ExeDir:=ExtractFilePath(Application .ExeName);
DbPath:=ExeDir+'db1.mdb'
ADOConnection.ConnectionString:=ADOProvider+DBPath;
ADOConnection.Open;

Написал в коде. В ADOConnection 1 в свойство COnnectionString путь к БД затёр. Пытаюсь сделать БД видимой:

[Grag]

А зачем внизу кнопки 0, 1, 2 ??? Гораздо лучше использовать "навигатор" связанный с Датасетом... А кнопку "Выход" вынести в сторону, отдельно...

[Optigood]

Эх... видать так и не помогут с указанием пути к исходникам.

Итак, выяснилось следующее:
- в 7 делфи, если написать просто название файла, то файл берётся из папки с исходниками.
Программа написана на 2010 делфи, и там почему-то по умолчанию для всех C:\Windows\System32 ... Помогите пожалуйста. Описанные выше методы не помогают.

[Andrei]

Все параметры соединения с БД записаны в ConnectionString обычным текстом.

Если я, допустим, затрудняюсь правильно сформировать строку соединения, то формирую ее в диалоговом режиме, потом просматриваю ее, и на ее основе формирую собственную строку программно.

Например, так (подключается БД MClock.mdb находящаяся в одной папке с екзешником):

procedure TfmHD.FormCreate(Sender: TObject);
var
  prgName, prgPath, BDName: string;
begin

  {Закрываю запросы и разрываю соединение}
  HDADOQuery.Close;
  HDADOConnection.Connected := False;

  {Имя программы}
  prgName := application.ExeName;

  {Путь}
  prgPath := ExtractFilePath(prgName);

  {Чтение параметров из ini}
  ReadIni;

  {Формирую имя БД}
  BDName := prgPath + 'Mclock.mdb';
  
  {Проверяю наличие файла БД}
  if FileExists(BDName) then
  begin

    {Формирую строку подключения к БД}
    HDADOConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
    BDName + ';Persist Security Info=False';

    {Подключаюсь}
    HDADOConnection.Connected := True;

    {Открываю запрос}
    HDADOQuery.Open;
  else 
    {ругаюсь что файл не найден}
    ShowMessage('Не могу найти файл ' + BDName);

....


end;

[Optigood]

Спасибо. Пробую, Delphi на prgName ругается.

[Stilet]

Delphi на prgName ругается.

Текст ошибки в студию.

[Optigood]

[DIgorevich]

ключевое слово VAR забыл!

[Optigood]

Спасибо) Ппц, не заметил)
Метод работает!