怎样动态连接数据库?

Question

我知道可以用Delphi动态连接Access数据库,但怎么动态连接其自带的数据库呢?应该在哪里添加代码?

Answer 1

procedure TForm1.ADOConnection1BeforeConnect(Sender: TObject);
begin
 ADOConnection1.ConnectionString :=此处填写连接字符串，包括路径 数据库名称等;
end;

Answer 2

楼主你说你能"我知道可以用Delphi动态连接Access数据库",那你能不具体的方法告诉我么?谢谢了!

Answer 3

procedure TForm1.ADOConnection1BeforeConnect(Sender: TObject);
begin
   ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ DatafileName +';Persist Security Info=False';end;

Answer 4

procedure TDm.DataModuleCreate(Sender: TObject);
begin  try
ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Password=pass;Persist Security Info=True;User ID=sa;Initial Catalog=mycom;Data Source=ip;Network Library=dbmssocn';
  ADOConnection1.LoginPrompt:=false;
  ADOConnection1.Connected := True;
  except
    MessageBox(Application.Handle, '连接失败，请配置好系统文件！　', '提示', MB_OK +
      MB_ICONWARNING);
    Application.Terminate;
  end;
end;