Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.06.2017, 22:50   #1
Irina_c
 
Регистрация: 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.
Вложения
Тип файла: 7z acsessform.7z (70.9 Кб, 19 просмотров)
Irina_c вне форума Ответить с цитированием
Старый 26.06.2017, 09:28   #2
Slym
Участник клуба
 
Регистрация: 07.12.2011
Сообщений: 1,025
По умолчанию

упрощенно в dll используются процедуры и функции, условно там нет EntryPoint
работа должна быть оформлена в экспортируемую функцию, и эта функция должна вызываться из приложения
Вложения
Тип файла: zip acsess.zip (90.1 Кб, 17 просмотров)
Не стесняемся, плюсуем!
Slym вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
получение данных от подключенной 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