相对路径（delphi）

假设你的数据库和程序在同一目录里

数据库的名称叫abc.mdb

在主窗体的OnCreate事件里写

procedure TForm1.FormCreate(Sender:TObject)

begin

SetCurrentDir(ExtractFilepath(Application.ExeName))

AdoConnection1.Close

AdoConnection1.ConnectionString:=

'Provider=Microsoft.Jet.OLEDB.4.0Data Source=abc.mdbPersist Security Info=False'

AdoConnection1.Open

end

如果用到的地方多，那就把这段代码写成一个过程

方便随时调用

我经常都是加一个“Data Modul”存放ADO控件的，加入一个ADOConnection1,将“Data Modul”的Evenl中的“OnCreate”中加入代码；源代码如下：

procedure TDM.DataModuleCreate(Sender: TObject)

begin

constrtmp := ExtractFilePath(ParamStr(0)) //这里一定要用到这个；

con1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0Data Source='+ constrtmp +'\Data\db.mdbPersist Security Info=False'

con1.open

end

一般情况下，这个txt应该放在与exe相同的目录下，这样用

ExtractFilePath(Application.ExeName)+'huawei.txt'

就可以取到这个文件名

---