🚀 go-pugleaf

Try to use an intermediate AnsiString to assign the property, in a program I
made there is an EditBox in where I build the connection string with a
function that shows the Connection dialog box like the one that the Object
inspector shows.

Method 1 : intermediate ansistring :
AnsiString conn="Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data
Source=c:\\tmp.mdb;Persist Security Info=True";
Opti->ADOOpti->ConnectionString=conn;

Method 2 : PromptDataSource function :
you have to use a TEdit, a button and the TADOConnection :

//code of the OnClick of the TSpeedButton :
void __fastcall TForm1::sbConnectionClick(TObject *Sender)
{
 WideString ws=EditConnection->Text;
 EditConnection->Text=PromptDataSource((THandle)Handle,ws);
}

// when you open the ADOConnection do the following :
 if(ADOConn->Connected) ADOConn->Close();
 ADOConn->ConnectionString=EditConnection->Text;

This works for me, I think it should work for you too.

HTH
Ciao
    Formentz

"Slava Sh." <slava@space.com> ha scritto nel messaggio
news:3c984162_2@dnews...
>
> I copy that string to clipboard & then past it to WideString CS in my
Apps,
> then I launch Apps & I see ERRORS ! ;-(
>
> > To connect to access database usually I use a connection string like
this
> :
> >
> > Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data
> Source=c:\\tmp.mdb;Persist
> > Security Info=True
>
> I need to change Data Source (path to database) in run-time between
several
> database.
>
> Thanks
> Slava
>
>