Delphi and C++ Builder components for displaying and manipulating data using ADO (ActiveX Data Objects).

Supports the latest ADO 2.8 library
Compatible with ADO 1.5-2.8 libraries
Supports RDS, ADOR, MIDAS and MTS for multitier applications
BDE (Borland Database Engine) and SQL Links are completely unnecessary
Full access to all ADO, ADOX and JRO features
Contains ADO components (ADO Component Suite)
Contains ADOX components (ADOX Component Suite)
Contains JRO components (JRO Component Suite)
Contains ADO Recordset Binding
Compatibility with TDataSet components
Available for Delphi/C++ Builder 5 - 10.1 and Lazarus 1.6
Distributing components in applications is royalty free


How can I determine ADO version?

try
  ShowMessage('ADO version ' + GetADOVersion + ' installed');
except
  ShowMessage('ADO not installed');
end;

How can I get ADO error information?

Place this code to OnPostError, OnADOError, etc.:

uses ADO;

with ADODataSet.Errors do
  for i := Count - 1 downto 0 do
    with Item[i] do
      ShowMessage(
        ' Description: ' + Description + #13 +
        ' Number: ' + IntToStr(Number) + #13 +
        ' Native: ' + IntToStr(NativeError) + #13 +
        ' Source: ' + Source + #13 +
        ' State: ' + SQLState + #13);

with ADODatabase.Errors do
  for i := Count - 1 downto 0 do
    with Item[i] do
      ShowMessage(
        ' Description: ' + Description + #13 +
        ' Number: ' + IntToStr(Number) + #13 +
        ' Native: ' + IntToStr(NativeError) + #13 +
        ' Source: ' + Source + #13 +
        ' State: ' + SQLState + #13);

C++ Builder code:

_di_Errors Errors = ADODatabase->Handle->Errors;
for (int i = Errors->Count - 1; i >= 0; --i)
  ShowMessage(
    " Description: " + Errors->Item[i]->Description + "\n" +
    " Number: " + IntToStr(Errors->Item[i]->Number) + "\n" +
    " Native: " + IntToStr(Errors->Item[i]->NativeError) + "\n" +
    " Source: " + Errors->Item[i]->Source + "\n" +
    " State: " + Errors->Item[i]->SQLState + "\n");

How can I create and use TADODataSet in C++ Builder application?

// this line fixes an incorrectly generated ADO header file
__interface Ado::_Recordset : public Recordset15 {};

void __fastcall TFormAdonisDemo::Button1Click(TObject *Sender)
{
  TADODataSet *Table = new TADODataSet(this);

  Table->DatabaseProvider = "Microsoft.Jet.OLEDB.4.0";
  Table->DatabaseConnect = "Data Source = simple.mdb";
  Table->CommandType = ctTable;
  Table->TableName = "COUNTRY";

  Table->Active = true;

  Table->Insert();
  Table->FieldByName("NAME")->AsString = "MyName";
  Table->FieldByName("AREA")->AsInteger = 10000;
  Table->Post();

  Table->Close();

  delete Table;
}

[/b]

[b] Only for V.I.P

Warning! You are not allowed to view this text.