🚀 go-pugleaf

On 30 Mar 2004 16:27:55 -0800, "Sydney Delieu" <syddel@hotmail.com>
wrote:

>    m_DataModule->adoConn->ConnectionString = "";
>
>    ws = "Provider=SQLOLEDB;User ID=";
>    ws = ws + UserName;
>    ws = ws + ";Password=" + Password;
>    ws = ws + ";Persist Security Info=false;";
>    ws = ws + "Initial Catalog=HBBB;";
>    ws = ws + "Data Source=127.0.0.1;";
>    ws = ws + "User Procedure for Prepare=1;Auto Translate=True;";
>    ws = ws + "Packet Size=4096;Workstation ID=RepAppServer;";
>    ws = ws + "Use Encryption for Data=False;";
>    ws = ws + "Tag with column collation when possible=False";
>
>    m_DataModule->adoConn->ConnectionString = ws;
>    m_DataModule->adoConn->Connected = true;

instead of somewhat awkward method of concatenating parts of
connection string one can simply use .udl file to set it up

    m_DataModule->ADOConnection->LoginPrompt=0;
    m_DataModule->ADOConnection->ConnectionString=String("FILE
NAME=")+ExtractFilePath(Application->ExeName)+"MyConnection.udl";
    m_DataModule->ADOConnection->Open(UserName,Password);

had you done that you do not need to recompile appserver in order to
change some connection settings

just a hint though :)

>    if (TempInterface.UserLogon(
>        AnsiToOLESTR(txtUsername->Text.c_str()),
>        AnsiToOLESTR(txtPassword->Text.c_str())) != S_OK) {

another hint is to use WideString variables instead of manually
convert parameters to pass them to COM object

and third (and last) is to implement ISupportErrorInfo interface in
your appserver to let pass exception info back to the client and show
there instead of mysterious "There was a problem" ;)

--
Vladimir Ulchenko aka vavan