如何动态链接数据库？

Question

问题如题所示，请高手帮忙。

Answer 1

使用ADOConnection1组件，设置ADOConnection1.ConnectionString属性即可如
连接sqlserver的设置
“Provider=SQLOLEDB.1;Password=psw;Persist Security Info=True;User ID=user;Data Source=127.0.0.1”程序中替换Password=psw、User ID=user、Data Source=127.0.0.1即可。

Answer 2

procedure TDMFrm.DataModuleCreate(Sender: TObject);
var YKDB:GetDBInfo;
begin
  ADOConnection1.Connected:=False;
  YKDB:=GetDBInfo.Create;
  if (YKDB.WhichDataBase) then
    ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password='+YKDB.GetPass+';Persist Security Info=True;User ID='+YKDB.GetLogin+';Initial Catalog='+YKDB.GetDataBaseName+';Data Source='+YKDB.GetServer  //SQL Server数据库
  else
    ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+MainForm.Root+YKDB.GetAccess+';Persist Security Info=False';  //Access数据库
  try
    ADOConnection1.Connected:=true;
  except
    ShowMessage('数据库连接出错，请检查服务器是否启动。');
    MainForm.Close;
  end;
end;

Answer 3

请问GetDBInfo是从哪儿派生下来的呢?

Answer 4

zzq4823(高原猫)  程序有错，  GetDBInfo 是什么东东？