delphi和access连接的方式

1.SQL数据库的联接方式：

条件：控件名：AdoConnecion1,数据库名：Sample,用户名：sa 密码：123，数据库地址：本机

AdoConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=Sample;Data Source=.';
Adoconnection1.LoginPrompt:=False;
Adoconnection1.Connected:=True;

上面这段代码为SQL数据库的联接方式：最后一句Data Source=. 其中的“.”表示为数据库在本机，如果数据在其它地方，则将点改为IP地址或是服务器名称。

2.ACCESS数据库的联接方式：

条件：Adoconnection1,数据库名：Sample 密码：123，数据库文件路径为程式存取的根目录。

procedure TDataModule1.DataModuleCreate(Sender: TObject);
var
DbPath:String;
begin
DbPath:=ExtractFilePath(Application.ExeName)+'Sample.mdb';
Adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123;Data Source='+DbPath+';Persist Security Info=false';
Adoconnection1.LoginPrompt:=False;
Adoconnection1.Connected:=True;
end;

工程主窗体FormCreate时间下写

//Da