🚀 go-pugleaf

You may need to change connection string to include data source and user
name/password.


void __fastcall TForm1::Button1Click(TObject *Sender)
{
 ADOConnection1->ConnectionString = WideString("Provider=SQLOLEDB;"
  "Integrated security=SSPI;Initial catalog=master;");
 ADOConnection1->Connected = true;
 try
 {
  OleVariant EmptyParam;
  EmptyParam.SetError(DISP_E_PARAMNOTFOUND);
  ADOConnection1->OpenSchema(siCatalogs, EmptyParam, EmptyParam,
ADODataSet1);

  while (!ADODataSet1->Eof)
  {
   ListBox1->Items->Add(ADODataSet1->FieldByName("CATALOG_NAME")->AsString);
   ADODataSet1->Next();
  }
 }
 __finally
 {
  ADOConnection1->Connected = false;
 }
}

//----------------------
Regards,
Viatcheslav V. Vassiliev
http://www.oledbdirect.com
The fastest way to access MS SQL Server,
MS Jet (Access) and Interbase (through OLEDB)


"Mike" <mikeh@gmx.de> �������/�������� � �������� ���������:
news:3f9d60c6@newsgroups.borland.com...
> HI,
>
> thanks for your answer. i have search, but can't find any example for bcb.
> could you give me any example how to determine all databases of a server
and
> write into a listbox?
>
> mike
>
> "Viatcheslav V. Vassiliev" <support@oledbdirect.com> schrieb im
Newsbeitrag
> news:3f9d4d78@newsgroups.borland.com...
> > TADOConnection->OpenSchema(siCatalogs, EmptyParam, EmptyParam,
MyDataSet);
> >
> > Examine contents of MyDataSet (CATALOG_NAME field).
> >
> > //----------------------
> > Regards,
> > Viatcheslav V. Vassiliev
> > http://www.oledbdirect.com
> > The fastest way to access MS SQL Server,
> > MS Jet (Access) and Interbase (through OLEDB)
> >
> >
> > "Mike" <mikeh@gmx.de> �������/�������� � �������� ���������:
> > news:3f9d43a0@newsgroups.borland.com...
> > > hi,
> > >
> > > i am working with ado and wondering myself who get a list of all
> databases
> > > of my ms sql server. does anybody can give me some code, that would
help
> > me?
> > >
> > > mike
> > >
> > >
> >
> >
>
>