🚀 go-pugleaf

Cheers Daryl. Well you learn something new everyday don't you?
This works very nicely (providing you set the login name, and password);

void __fastcall TForm1::Button1Click(TObject *Sender)
{
WideString StrCon = PromptDataSource((int)Handle, "") ;
if (!StrCon.IsEmpty())
  {
  ShowMessage(StrCon) ;

  TADOConnection* ADOCon = new TADOConnection(NULL) ;
  try
    {
    ADOCon->ConnectionString = StrCon ;
    ADOCon->LoginPrompt = false ;
    ADOCon->Open() ;
    TStringList* S = new TStringList() ;
    try
      {
      ADOCon->GetTableNames(S, false) ;
      // Test the connection by listing all tables
      ShowMessage(S->GetText()) ;
      }
    __finally
      {
      delete S ;
      }
    }
  __finally
    {
    ADOCon->Close() ;
    delete ADOCon ;
    }
  }
}

BigStew

"Daryl" <stockd@cqnet.com.au> wrote in message news:3cce6c0e_2@dnews...
> Try the undocumented function call PromptDataSource();  apparently it can
be
> found in ADODB.hpp include file.  I have never tried it but I read about
it
> in text.
>
> WideString PromptDataSource (int theWindowHandle, WideString
> theOriginalConnectionString);
>
>
> "minshung" <minshung@yahoo.com> wrote in message
news:3cce60bf$1_1@dnews...
> > How can I pop up ADO Connection String builder at run time using BCB ??
> >
> > Alex
> >
> >
>
>