динамически создать подключение через ADO

[А. Долматов]

Здравствуйте! Подскажите плиз, как создать строку подключение к базе через ADO динамически? Пробовал по разному, не получается.
provider:='Prvider=MSDASQL.1;Persis tSecurityInfo=False;ExtendedPropert ies=';
fname:='"DBQ=P:\.....\db_kiosk.mdb; ';
dirname:='DefaultDir=каталог с базой;';
driver:='Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;';
dsn:='FILEDSN=P:\......\db_kiosk.md b.dsn;MaxBufferSize=2048;MaxScanRow s=8;PageTimeout=5;SafeTransactions= 0;Threads=3;UID=admin;UserCommitSyn c=Yes;";';
inidir:='Initial Catalog=p:\...\db_kiosk.mdb';
DataModule5.ADOConnection2.Connecti onString:=provider+fname+dirname+dr iver+dsn+inidir;
в справке вообще ничего не написано по этому поводу. Очень надо, плиз, поделитесь опытом.

[Virtson]

procedure TDataM.DataModuleCreate(Sender: TObject);
const
  ss = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False';
var
  path: string;
begin
  path0:= ExtractFileDir(application.exename);
  path:= path0 +'\DB\avto.mdb';
  ADOConn.Close;

  try
    ADOConn.ConnectionString:= Format(ss, [path]);
    ADOConn.Open;
  except
    ShowMessage('Connection Error !');
    exit;
  end;
  Connected := true;
end;

[А. Долматов]

спасибо огромное. Но почему, если подключение произошло, я не могу программно приписать ADOTable её ADOConnection? Делаю так:
DataModule5.ADOTable1.Connection:=D ataModule5.ADOConnection2;
DataModule5.ADOTable1.TableName:='F ormat';
ошибка выходит как только я пытаюсь установить ADOConnection. Причем ошибка: неправильно доступа по адресу ......(шестнадцатеричное число)

[pu4koff]

Сообщение от А. Долматов

спасибо огромное. Но почему, если подключение произошло, я не могу программно приписать ADOTable её ADOConnection? Делаю так:
DataModule5.ADOTable1.Connection:=D ataModule5.ADOConnection2;
DataModule5.ADOTable1.TableName:='F ormat';
ошибка выходит как только я пытаюсь установить ADOConnection. Причем ошибка: неправильно доступа по адресу ......(шестнадцатеричное число)

а dataModule5/ADOTable1 к моменту выполнения этого кода уже существует?

[А. Долматов]

конечно. С него все начинается, и ADO компоненты тоже.

[Virtson]

ADOConn.Close;
//ADOTable1.Close;
ADOTable1.Connection:= ADOConn;
ADOTable1.TableName:='Format';
ADOTable1.Open;
ADOConn.Open;

[mihali4]

ADOTable1.Open;
ADOConn.Open;

А разве недостаточно только ADOTable1.Open? ADOConn что, автоматом не откроется? Это просто вопрос, без "подкола", мне интересно.

[pu4koff]

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

А разве недостаточно только ADOTable1.Open? ADOConn что, автоматом не откроется? Это просто вопрос, без "подкола", мне интересно.

Это правило хорошего тона. Хотя лучше бы всеже местами поменять, т.к. при данной последовательности смысла от последней строчки нет

[Virtson]

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

Это правило хорошего тона. Хотя лучше бы всеже местами поменять, т.к. при данной последовательности смысла от последней строчки нет

да, я ошибся (