我打包时做了一个快捷方式,通过快捷方式,可以打开主程序,但是找不到数据库,提示:找不到文件c:\Documents and Setting\user\gps.mdb
访程序用delphi的ADO连接ACCESS。
访程序用delphi的ADO连接ACCESS。
解决方案 »
- 关于窗体焦点,show后为什么没有焦点?
- cxdbtreelist控件显示数据时如何根据数据的值显示不同的颜色
- 一个菜鸟问题,在无源代码,无源程序的情况下更改程序的启动画面
- MDI程序,建立登陆界面时出现问题!
- 试用版程序应该怎么作才好.限时,限次,
- 在校学生就没有工资??气死我了
- DBImage1的问题??
- ComboBox问题求救
- MSComm控件如何发送大于128的十六进制数值???急~~~~~在线等待....
- vararraycreate 函数
- 关于delphi和智能客户端,讨论一下吧
- 各位高手,怎样编写一个后台监视程序,判断一个文件是否正在被使用,若被使用弹出一个信息告诉用户说该文件正在被使用,否则一直监视。这
//设置连接与数据库路径unit SetDbPath;interfaceuses
ADODB,forms,Sysutils,Dialogs;procedure SetConnection(MyAdoconnct:TADOConnection);implementationprocedure SetConnection(MyAdoconnct:TADOConnection);
var
ConnStr,DBPath:String;
Begin
DBPath:=ExtractFilePath(Application.ExeName)+'dat.mdb;';
ConnStr:='Provider=Microsoft.Jet.OLEDB.4.0;'
+ 'User ID=Admin;Password=;Data Source='
+ DBPath
+ 'Persist Security Info=False;'
+ 'Jet OLEDB:System database="";'
+ 'Jet OLEDB:Registry Path="";'
+ 'Jet OLEDB:Database Password="";'
+ 'Jet OLEDB:Engine Type=5;'
+ 'Jet OLEDB:Database Locking Mode=1;'
+ 'Jet OLEDB:Global Partial Bulk Ops=2;'
+ 'Jet OLEDB:Global Bulk Transactions=1;'
+ 'Jet OLEDB:New Database Password="";'
+ 'Jet OLEDB:Create System Database=False;'
+ 'Jet OLEDB:Encrypt Database=False;'
+ 'Jet OLEDB:Compact Without Replica Repair=True;'
+ 'Jet OLEDB:SFP=False';
with MyAdoconnct do
begin
Close;
ConnectionString:=ConnStr;
LoginPrompt:=False;
Open;
end;
end;
end.