Question

delphi和access连接的方式

Answer 1

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;

Answer 2

工程主窗体FormCreate时间下写

//DataPath字符串类型变量(DataPath:string;)

DataPath:=ExtractFilePath(Application.ExeName)+'数据库名'; //获取数据库文件相对路径,相对与可执行文件所在的目录
Adoconnection1.Close;
Adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Trim(DataPath)+';Persist Security Info=False;Jet OLEDB:Database Password=密码';
Adoconnection1.Open;

//然后要链接数据库数据地方设置一个adoquery控件,其属性conection里选择Adoconnection1,然后通过adoquery1链接数据库

Answer 3

添加一个ADOConnection控件一个ADOQuery控件一个DataSource控件
在ADOConnection的ConnectString属性中设置数据源(全可视化的,用鼠标操作就可以完成),ADOQuery的Connect属性选择ADOConnection作为数据库连接,这样就OK了,如果要用DBGrid表格显示出来的话那么就指定DBGrid的datasource即可

Answer 4

用AdoQuery,指定ConnectString就可以了

AdoQuery.ConnectString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\a.mdb;Persist Security Info=False';

其中c:\a.mdb是Access的位置,自己改下就成..