LoadAdoDataset(ADODataset : Variant) : Dataset
LoadAdoDataset(ADODataset : Variant, NullColumns : Boolean) : Dataset
Копирование данных из ADO.Dataset в локальный Dataset.

Функция LoadAdoDataset копирует данные из объекта ADO.Dataset в локальный Dataset. Если аргумент NullColumns=True, то перед каждой колонкой исходной таблицы добавляется колонка типа Boolean. Она содержит True, если колонка исходной таблицы содержала Null.

Эту функцию можно использовать, для того, что бы работать с данными после разрыва ADO соединения. А так же, что бы использовать результат выполнения ADO запроса в стандартных функциях платформы.

Procedure OnCreate;
Var
  AdoConnection : Variant;
  LocalDataset : Dataset;
Begin
  AdoConnection := CreateOleObject('ADODB.Connection');
  AdoConnection.ConnectionString := 'DRIVER=MySQL ODBC 3.51 Driver;UID=root;PASSWORD=1;SERVER=localhost;DATABASE=test';
  AdoConnection.Open();
  LocalDataset := LoadAdoDataset(AdoConnection.Execute('Select * From mysql.user'));
  Warning(ToStr(LocalDataset));
End;

© RTIT