ADO в Dll -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.138.204.208]

ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi

Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Обязательно указание:
1) типа базы данных (Paradox/Oracle/Interbase и т.п.)
2) способа доступа к базе данных (ODBC/ADO/DAO/BDE и т.п.)
Например: Paradox/BDE, MS Access/ADO

Наиболее часто задаваемые вопросы:
Базы даных для начинающих. Первые шаги. Понятие о BDE.
Переход на клиент-сервер и начала ADO
Приёмы работы с BLOB (OLE/Memo) полями
Запросы и параметры или как избавиться от многих проблем. Проблемы с датами в запросах.
Нужели мне нужно устанавливать BDE? (или почему не работает программа на другом компьютере)

Модераторы: Bas, Rouse_

Новое голосование

ADO в Dll , Функции для работы с DB ACCESS в DLL

Chess64

Сообщ. #1 , 25.11.03, 07:57

Member

Профиль · PM

Рейтинг (т): 5

Здрям все.
<(D6(7), MDAC 2.8, Access 97)>
Моно ли закинуть в одну Dll функции и процедуры для работы с базой *.mdb (MS Access через АДО), такие как ADOConnection, ADOTable, DataSource и так далее ?
Конечно приношу извинения если глупый вопрос - если моно пример хотя бы описнаие одной функции.

Vit	Сообщ. #2 , 25.11.03, 13:49
Guru Профиль · PM Поощрения: 16 Dgm Рейтинг (т): 181	Uses в DPR файле добавить модуль oleauto (для инициализации COM). А дальше просто создаёшь в Run-time все нужные компоненты и используешь.

Chess64	Сообщ. #3 , 25.11.03, 17:35
Member Профиль · PM Рейтинг (т): 5	2 Vit Thanks. А могешь пример в меня кинуть ? Нужно самый простой. Коннект к базе, выбрал таблицу, считал данные, закрыл коннект. Если не трудно. Заранее благодарен.

Vit

Сообщ. #4 , 25.11.03, 17:45

Guru

Профиль · PM

Поощрения: 16 Dgm

Рейтинг (т): 181

Код писать влом, вот набросал от руки, так что не обессудь за мелкие ошибки:

Conn:TADOConnection;
Query:TADOQuery;
...

Conn:=TADOConnection.create(nil);
Query:=TADOQuery.create(nil);
Query.Connection:=Conn;
Conn.ConnectionString:=Provider=SQLOLEDB.1...';
Conn.LoginPromt:=false;
Query.sql.text:='Select top 1 * From MyTable';
Query.active:=true;
Result:=Query.fieldbyname('MyField').asstring;
Query.active:=false;
Query.free;
Conn.free;

Ещё раз - это не рабочий код, это только примерное указание как делать, ошибки и разные варианты не обрабатываются - все проверки целиком на твоей совести.

Chess64	Сообщ. #5 , 26.11.03, 05:52
Member Профиль · PM Рейтинг (т): 5	2 Vit Большое спасибо. Спас мне неделю + ~100 Mb трафика в Нете.

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0206 ] [ 17 queries used ] [ Generated: 24.04.24, 23:47 GMT ]