|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.06.2017, 22:50 | #1 |
Регистрация: 06.06.2017
Сообщений: 7
|
получение данных из access в .dll delphi
Здравствуйте!
У меня задача получить список из базы access в .dll delphi. Пишу в форме все получается (прикрепленные файлы). Пытаюсь выполнить в .dll не получается. Буду рада если подскажите в чем ошибаюсь. В .dll пишу uses SysUtils, Classes, ADODB, ActiveX, ComObj, Windows, Messages, Variants, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB; {$R *.res} var Access: Variant; ADOQuery1: TADOQuery; text : string; begin try CoInitialize(nil); ADOQuery1 := TADOQuery.Create(nil); text:='Болт'; try Access := GetActiveOleObject('Access.Applicat ion'); except Access := CreateOleObject('Access.Application '); end; ADOQuery1.ConnectionString:='Provid er=Microsoft.Jet.OLEDB.4.0;Data Source=Provider=Microsoft.Jet.OLEDB .4.0;Data Source=D:\backup\acsessform\plUserA ttrs.mdb;Persist Security Info=False'; ADOQuery1.Active:=false; ADOQuery1.SQL.Add ('SELECT dsLocations.stLocation FROM stValues INNER JOIN (dsLocations INNER JOIN stAttrValues ON dsLocations.inID=stAttrValues.inLoc ationID) ON stValues.inID=stAttrValues.inValueI D WHERE (((stValues.stValue)='''+text+''')) '); ADOQuery1.Active:=true; ShowMessage(ADOQuery1.fieldbyname(' stLocation').asstring); finally ADOQuery1.Free; CoUninitialize; end; end. |
26.06.2017, 09:28 | #2 |
Участник клуба
Регистрация: 07.12.2011
Сообщений: 1,025
|
упрощенно в dll используются процедуры и функции, условно там нет EntryPoint
работа должна быть оформлена в экспортируемую функцию, и эта функция должна вызываться из приложения
Не стесняемся, плюсуем!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
получение данных от подключенной DLL (C++ --> C#) | daniil_galahow | C# (си шарп) | 0 | 16.02.2015 15:57 |
Получение данных из 3dsMax в Delphi | rammic | Общие вопросы Delphi | 0 | 06.09.2011 12:33 |
Delphi:Получение IP DNS-сервера используя GetNetworkParams из iphlpapi.dll | zibman | Помощь студентам | 2 | 09.03.2011 15:20 |
Получение данных из сторонней dll | Memfis1992 | Общие вопросы Delphi | 4 | 21.10.2010 09:19 |
Delphi получение данных из массива? | kino | Помощь студентам | 2 | 16.12.2009 22:06 |