ADO & API

← →
Cosmic (2002-11-30 13:22) [0]

Как без VCL получить доступ к базе *.MDB ??? И чего-нибудь оттуда прочитать ???

← →
asmith (2002-11-30 18:04) [1]

Импортируй библиотеку типов ADO, сошлись на нее и делай так:
var
aConnection : Connection;
Data : Recordset;
szConnection : string;
szQueryString : string;
...
szConnection := "bla-bla-bla";
aConnection := CoConnection.Create();
OleVariant(aConnection).Open(szConnection);
Data := CoRecordset.Create();
Data.Set_ActiveConnection(aConnection);
Data.CursorLocation := adUseClient;
szQueryString := "select * from MyTable"
Data.Open(szQueryString, szConnection, adOpenKeyset, adLockBatchOptimistic, adCmdText);
// use data fetched here
Data.Close();
Можно не использовать ранне связывание, тогда используй OleVariant, пиши CreateOleObject вместо CoConnection.Create и пр.

← →
Cosmic (2002-11-30 21:21) [2]

Нескромный вопрос: а что значит "Импортируй библиотеку типов ADO, сошлись на нее"?. Как это сделать?

← →
asmith (2002-12-01 16:25) [3]

Сидя в Delphi в меню Project\Import Type Library, выскочит диалог, выбери в списке Microsoft ActiveX Data Objects 2.x Library (бери последнюю версию, если их несколько), далее OK или Create Unit (уже не помнб как это было в D3), сгенерится PAS-файл, его включи в проект и сошлись на него оператором uses. Все.
Желательно обновить ADO, если у тебя лишь базовая поставка из Win95/98.

ADO & API Найти похожие ветки