我用*.udl動態連結*.mdb的access, 請問各位大大,如何從ado中得悉上述 *.mdb的路徑,因要得悉有關之路徑從 而寫出備份的功能。 小弟是初學寫程式,煩請各位大大多多幫忙,謝謝!

利用 ADOConnection1 的 ConnectionString 屬性中的 搜索該字段 DataSource = 檔案來源

請問大大,該語句應如何寫?

thomas-chio 你好

var
  Sl : TStrings;
Begin
  Sl := TStringList.Create;
  Sl.CommaText := AdoConnection1.ConnectionString ;
  ShowMessage(Sl.Values['DataSource']); // 
  Sl.Free;
End;

_______________________________________ 深藍的魚，祝您好運..........連連

直接字串擷取。 procedure TForm1.Button3Click(Sender: TObject); Function GetDataSource(ADOString:String):String; var ST,ED : integer; begin Result := ''; ST := POS('data source',AnsiLowerCase(ADOString)); if ED>0 then begin ED := POS(';',Copy(ADOString,ST 1,MaxInt)); if ED>0 then begin Result := Copy(ADOString,ST,ED); Result := Copy(Result,POS('=',Result) 1,MaxInt); end; end; end; begin Showmessage(GetDataSource(ADOConnection1.ConnectionString)); end;