Hallo,
Zitat:
Bist Du sicher? Was nimmst Du denn für irgendwelche insert/update Statements?
TXDataSet kann das auch.
Aber in der Tat ist die TXQuery schneller.
hier die Alias-Routine
Delphi-Quellcode:
uses
SysUtils,
DB, DBTables,
{ Pfad der Datenbank auf dem Server ermitteln
der Servername selber wird NICHT übergeben }
function GetServerPath(
const theAlias:
String):
String;
var
AliasParams: TStringList;
iCountParam: Integer;
sCurParam :
String;
begin
Result:= '
';
try
AliasParams:= TStringList.Create;
try
Session.GetAliasParams(theAlias, AliasParams);
for iCountParam:=0
to AliasParams.Count-1
do
begin
sCurParam:= AliasParams[iCountParam];
if Pos('
SERVER NAME', sCurParam)=1
then
begin
Result:= Copy(sCurParam, Length('
SERVER NAME')+2,
Length(sCurParam));
end;
end;
finally
AliasParams.Free;
end;
except
on E:
Exception do
begin
{$IFDEF DEBUG}
MBDebug(GetServerPath'
+#13#10+E.message);
{$ENDIF}
end;
end;
end; { GetServerPath }
Heiko