数据库表如何初始化路径？

TblName:=ExtractFilePath(Application.ExeName)+'\\My_table.dbf';
少斜线

解决方案 »

  1.   

    GetShortPathName
    用这个把你的TblName变一下可能就行了
      

  2.   

    是我打错了我的程序中是有‘/’ 的。不过,是‘/’ 还是'//'?
    问题是出在Application.ExeName上，在调试时鼠标放在上面显示不出它的值，提示就是'不可到达‘.to liutaoboy(风间苍月) 
    那我调试时怎么办？另外我想用InstallShield做安装但不知道怎么取得用户安装路径？to XUNJI(寻迹) 
    你的意思是我不是很明白，能不能用代码表示一下？
      

  3.   

    function TMyLibraryDataModule.GetExePath: String;
    begin
      Result:=ExtractFilePath(ParamStr(0))+'数据库';
    end;
    这样就行了！
    要谢我，就多发问题上来，也可以发到我油箱里！
    呵呵，好臭屁呀！
      

  4.   

    Table1.DataBaseName := ExtractFilePath(Application.ExeName) ;
    Table1.TableName := 'My_Table.dbf' ;
    Table1.Active := true ;
      

  5.   

    我一般是加个tdatabase组件，动态产生别名。而TABLE的别名总是不用改变。