如何动态连接Access数据库
怎么样在运行时连接access，不用别名
我记得好像是
DBLIB.DatabaseName:=ExtractFilePath(Application.ExeName)+'data\lib.mdb';
//好像少了什么
DBLib.LoginPrompt:=False;
DBLib.Open;
请高手指点，谢谢
问题点数：20、回复次数：5Top
1 楼yangrenzhi（）回复于 2001-12-16 23:20:37 得分 4
使用AdoConnection,再使用函数PromptDataSource（可能是）
全动态连接access，Top
2 楼workboy（http://cnboor.com）回复于 2001-12-16 23:58:18 得分 4
procedure Tfrmpass.FormCreate(Sender: TObject);
var
spath:string;
begin
spath:=extractfilepath(application.ExeName )+'yp_data.mdb';
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='+ spath;
adoconnection1.loginprompt:=false;
adoconnection1.connected:=true;
adocommand1.commandtext:='select * from user_info';
adocommand1.commandType:=cmdText;
adodataset1.recordset:=adocommand1.execute;
while not adodataset1.recordset.eof do begin
co.items.add(adodataset1.recordset.fields['user_name'].value);
adodataset1.recordset.movenext;
end
end;
不要忘记给分，或者到http://cnboor.com注册一下Top
3 楼zenartus（投入者）回复于 2001-12-17 09:38:16 得分 4
这样做是不是access不能设密码？
我发现access设置密码后使用起来不方便，可不设置数据文件有不安全
谁有什么建议吗？Top
4 楼commandio（好好学习）回复于 2001-12-17 10:19:45 得分 4
可以保存密码啊，如下
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password=密码;User ID=用户名;Persist Security Info=True;Data Source='+spathTop
5 楼commandio（好好学习）回复于 2001-12-17 10:40:17 得分 4
你可以做一个登入界面，
用户名edit1,密码框edit2.PasswordChar:='*';opendialog1，一个用来确定的button1
procedure TForm1.Button1Click(Sender: TObject);
var
spath:string;
begin
if opendialog1.Execute then
if opendialog1.FileName<>'' then
begin
spath:= opendialog1.FileName;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password='
+edit2.text+';User ID='+edit1.text+';Persist Security Info=True;Data Source='+spath;
...
end;
end;Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
