数据库常用连接方法

数据库常用连接方法

//------------------------------------------------------------------------------
//                       使用ADO控件连接ODBC数据引擎
//                        Conn          :ADO连接器
//                        strDataSource :数据库
//                        strUser       :用户名
//                        strPassword   :密码
//                        path          :路径与数据库
//------------------------------------------------------------------------------
procedure SetDBConnODBC(Conn :TADOConnection; strDataSource, path,strUser, strPassword :AnsiString);
var
  strConn :AnsiString;
begin
  Conn.Close();
  Conn.Connected   := false;
  Conn.LoginPrompt := false;
  strConn := ' Provider=MSDASQL.1;Persist Security Info=False;User ID=' + strUser
                + ';Data Source=' + strDataSource+';Initial Catalog='+path;

//Provider=MSDASQL.1;Persist Security Info=False;User ID=admin;Data Source=MS Access Database;Initial Catalog=G:/1/slan.mdb
  Conn.ConnectionString := strConn;
  Conn.Open(strUser, strPassword);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin  //;G:/1//slan.mdb
  SetDBConnODBC(form1.ADOConnection1,'MS Access Database','G:/1/slan.mdb','admin','2006');

  form1.ADOQuery1.Open;
end;