Інший варіант доступу до бази даних (за допомогою tDatabase)

1 Помістіть на форму компоненти TDBGrid, TDBNavigator, TDataSource, TTable, TDatabase

2 Заповніть код програми:

void __fastcall TForm2::FormCreate(TObject *Sender)

{

Database1->DatabaseName="Mybase";//ім'я БД

Database1->DriverName="STANDARD";//драйвер BDE

//задати параметри з'єднання для BDE

Database1->Params->Add("PATH=C:\\My_db");

Database1->Params->Add("DEFAULT DRIVER=PARADOX");

Database1->Params->Add("ENABLE BCD=FALSE");

Table1->Active=false;//деактивувати таблицю

DataSource1->DataSet=Table1;//вказати набір даних для джерела даних

DBGrid1->DataSource=DataSource1;//вказати джерело даних для таблиці

DBNavigator1->DataSource=DataSource1;//вказати джерело даних для навігатора

Table1->DatabaseName="Mybase";//псевдонім БД

Table1->TableName="table1.db";//таблиця БД

Table1->Active=true;//активувати таблицю

Table1->IndexName="n";//задати ім'я індексу

}

Робота з базами даних у C++ Builder за допомогою ADO

(TADOConnection, TADOTable, TADOQuery )

1 Створіть базу даних у MS Access по аналогії з попередньою. Заповніть таблицю Таблица1. Збережіть базу даних у файлі D:\db1.mdb.

2 Помістіть на форму компоненти TDBGrid, TDBNavigator, TMemo, TButton, TDataSource, TADOTable, TADOConnection, TADOQuery

3 Для доступу до баз даних Paradox потрібно установити джерело даних за допомогою стандартної програми Источники данных (ODBC) . Запустіть програму ...\system32\odbcad32.exe і задайте DSN користувача (задайте myparadox), вибравши драйвер для Paradox.

4 Властивість ConnectionString компонента ADOConnection1 можна задати за допомогою помічника на етапі проектування.

5 Заповніть код програми

//обробник події створення форми

void __fastcall TForm3::FormCreate(TObject *Sender)

{

ADOTable1->Active=false;//деактивувати таблицю

DataSource1->DataSet=ADOTable1;//вказати набір даних для джерела даних

DBGrid1->DataSource=DataSource1;//вказати джерело даних для таблиці

DBNavigator1->DataSource=DataSource1;//вказати джерело даних для навігатора

DBNavigator1->ShowHint=true;//показувати підказки кнопок

//установити з'єднання з БД Access

ADOConnection1->ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\db1.mdb;Persist Security Info=False";

//або установити з'єднання з БД Paradox

//Увага! В рядку слід замінити символи \ на \\ і " на ""

//ADOConnection1->ConnectionString="Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=""DSN=myparadox;DBQ=C:\\MY_DB;DefaultDir=C:\\MY_DB;DriverId=538;FIL=Paradox 5.X;MaxBufferSize=2048;PageTimeout=600;""";

ADOTable1->Connection=ADOConnection1;//указати з'єднання для таблиці

ADOTable1->TableName="Таблица1";//таблиця БД Access

//ADOTable1->TableName="table1";//або таблиця БД Paradox

ADOTable1->Active=true;//активувати таблицю

Memo1->ScrollBars=ssVertical;

Memo1->Text=ADOConnection1->ConnectionString;//відобразити рядок з'єднання

}

//обробник події натиску на кнопці Button1

void __fastcall TForm3::Button1Click(TObject *Sender)

{

DataSource1->DataSet=ADOQuery1;//вказати набір даних для джерела даних

ADOQuery1->Connection=ADOConnection1;//указати з'єднання для запиту

ADOQuery1->SQL->Add("SELECT * FROM Таблица1 WHERE (B=4)");//сформувати рядок запиту SQL

ADOQuery1->Open();//виконати запит

}