delphi 动态连接mdb

来源：百度知道 编辑：UC知道 时间：2024/05/16 15:09:03
我初学数据库，想知道如何动态链接到access，就是利用DBGrid对数据库进行读取和修改等操作，请大家详细解说！

给你个动态连接的例子,其中ado是打开对话框控件 ,adocon是tadoconnection控件

函数描述:通过按钮打开的对话框 选择你要连接的数据库,并与数据库建立连接.
procedure TForm1.Button2Click(Sender: TObject);
var
acname:string; //连接数据库
str:string;
sfile,sfilename:string;
begin
adocon.Connected:=false;
acname:=ExtractFileDir(Application.ExeName)+'\db\';//连接数据库，
ado.InitialDir:=acname;
if ado.Execute then
begin
sfile:=ado.FileName;

sfilename:=dqc.File_GetFileName(sfile);
sfilename:=acname+sfilename;

adocon.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=''dqc'';Data Source='+sfilename+';Persist Security Info=False';
adocon.Connected:=true;
mtip.Lines.Add('连接本地数据库成功');
end
else
abort;
end;