Спасибо за Ваши советы.
Сделал следующее:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
TADOConnection *MyConnect=new TADOConnection(NULL);
TADOTable *MyTable=new TADOTable(NULL);
TDataSource *MyDataS=new TDataSource(NULL);
TDataSource *MyDataS2=new TDataSource(NULL);
TADOQuery *MyQuery=new TADOQuery(NULL);
MyConnect->ConnectionString="Provider=PostgreSQL.1;Password=select;User ID=postgres;Data Source=localhost;Location=postgres";
MyConnect->Open();
MyTable->Connection=MyConnect;
MyTable->TableName="program";
MyDataS->DataSet=MyTable;
MyDataS2->DataSet=MyQuery;
DBGrid1->DataSource=MyDataS2;
MyQuery->Close();
MyQuery->Connection=MyConnect;
MyQuery->SQL->Add("select * from program");
MyQuery->Open();
DBGrid1->Enabled=true;
Вся таблица выводится в Грид!
Другой вопрос: предыдущий код выполняестся при событии Button1Click.
Чтобы не закрывать коннект с базой и работать с ней, используя другие события (чейнжи, клики, креатеформы), по идее, нужно необходимые объекты ADO прописать глобально, т.е.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
#pragma resource "*.dfm"
TForm1 *Form1;
TADOConnection *MyConnect=new TADOConnection(NULL);
TADOTable *MyTable=new TADOTable(NULL);
TDataSource *MyDataS=new TDataSource(NULL);
TDataSource *MyDataS2=new TDataSource(NULL);
TADOQuery *MyQuery=new TADOQuery(NULL);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
.....
но тогда компиляция проходит успешно, а в самом начале выполнения исполняемого файла выскакивает ошибка "Не был произведен вызов CoInitialize". Значит что-то не нравится в таком описании объектов!?!? Как тогда "глобально" использовать коннект с БД, т.е. один раз подключился и делай с таблицами что угодно? Или при каждом событии нужно каждый раз подключаться? Что посоветуете?!
