Hi, How do I set the "Host" property of a MS SQL Connection? (this value is visible in enterprise manager process list or using
select host_name()
statement)
In BDE I've set this using "HOST NAME" parameter, in SDAC I tried to use the MSConnection.Options.WorkstationID property, but without any effect on Host Name...
Thx!
How to set "Host" connection property?
Following code demonstrates it:
it does not write 'testtesttest', but name of my computer.
program sdachostname;
{$APPTYPE CONSOLE}
uses
SysUtils, MSAccess, ActiveX;
var
c: TMSConnection;
q: TMSQuery;
begin
CoInitialize(nil);
c := TMSConnection.Create(nil);
try
c.Server := 'sqlserver';
c.Database := 'master';
c.Username := 'sa';
c.Password := '';
c.Options.WorkstationID := 'testtesttest';
c.Open;
try
q := TMSQuery.Create(nil);
try
q.Connection := c;
q.SQL.Text := 'select host_name() as hostname';
q.Open;
try
writeln(q.fieldByName('hostname').asString);
finally
q.Close;
end;
finally
q.Free;
end;
finally
c.Close;
end;
finally
c.Free;
end;
readln;
end.
it does not write 'testtesttest', but name of my computer.
program sdachostname;
{$APPTYPE CONSOLE}
uses
SysUtils, MSAccess, ActiveX;
var
c: TMSConnection;
q: TMSQuery;
begin
CoInitialize(nil);
c := TMSConnection.Create(nil);
try
c.Server := 'sqlserver';
c.Database := 'master';
c.Username := 'sa';
c.Password := '';
c.Options.WorkstationID := 'testtesttest';
c.Open;
try
q := TMSQuery.Create(nil);
try
q.Connection := c;
q.SQL.Text := 'select host_name() as hostname';
q.Open;
try
writeln(q.fieldByName('hostname').asString);
finally
q.Close;
end;
finally
q.Free;
end;
finally
c.Close;
end;
finally
c.Free;
end;
readln;
end.