BorlandTalk.com

shub · Guest

I am trying to use Delphi to create a DSN programatically using the
SQLConfigDatasource function and that seems to work fine.

However when I try to create a DSN using a specific user name and
password it does not work.

Is there a way to create a DSN with a user name and Password?

What I am trying to achieve is to connect to a database using a
particular user name and password that has rights to update data and
since this application can be run by many different client computers I
want to avoid setting up the ODBC manually for all the client
computers. I am using TADOConnection if there is any other way to
achive this task without having to mess around with all the client
computers that is welcome.

Here is the sample code that I am using

Any help in this regard will be greatly appreciated.
Thanks

procedure ADDDSN;
const
ODBC_ADD_SYS_DSN=4 ; //for system DSN
var
str1: PChar;
str: string;
begin
//Creates A DSN in the ODBC if it does not exist
str:='DSN=TEST'+#0;
str:=str+'Description=TESTING'+#0;
str:=str+'Server=SQLMACC1P\SQLMACC0P'+#0;
str:=str+'Trusted_Connection=YES'+#0;
// str:=str+'UID=xxx'+#0; DOES NOT WORK WHEN I ACTIVATE THESE TWO
LINES
// str:=str+'PWD=abc'+#0;
str:=str+'Database=XYZ'+#0;
str1 := PCHAR(str);
SQLConfigDataSource( HWnd(nil),ODBC_ADD_SYS_DSN, 'SQL Server', Str1
);
end;