怎样调用udl文件？

Question

我在调用udl文件时总是提示‘连接字符串属性无效的错误’，应该怎样解决？代码如下：
procedure TDM.DataModuleCreate(Sender: TObject);
 var
    AppPath:array   [0..MAX_PATH]   of   Char;
    LW:LongWord;
    Path,ConnectStr:String;
begin
   LW:=GetModuleFileName(Hinstance,@AppPath,SizeOf(AppPath));
      SetString(Path,AppPath,LW);
      ConnectSTr:='File   name='+ExtractFilePath(Path)+'1.udl';
      Adoc.Connected:=False;
      try
          Adoc.ConnectionString:=ConnectStr;
          Adoc.Connected:=True;
      Except
          MessageDlg('连接资料库失败!',mtInformation,[mbok],0);
          Application.Terminate;
      end;
end;

Answer 1

为什么要用udl啊，直接写字符串多好，你用的是什么数据库？如果access的话你udl里配置的access的路径怎么办，需要弹出窗口每次都配置一下吗？麻烦

Answer 2

ExtractFilePath有时候解析出来的目录是不带\的
var filepath:string;
filepath := ExtractFilePath(Path);
if filepath[length(filepath)] <> '\'
  filepath := filepath + '\';
connectstr := 'FILE NAME='+filepath+'1.udl'

Answer 3

用的是SQL数据库,服务器可能常发生变化，所以选择了udl

Answer 4

DBPath := ExtractFilePath(Application.ExeName) + 1.udl';FDBConnection.Close;
FDBConnection.ConnectionString := 'FILE NAME=' + DBPath;
FDBConnection.LoginPrompt := false;
FDBConnection.Connected := true;

Answer 5

你应该做一个配置数据库服务器的界面来让用户操作，这样更人性化一些，udl对于用户来说可能还是有点专业些