dll содержащая функции выполнения sql запросов

[jb_007]

Здравствуйте! мне необходимо написать DLL на delphi в которой будут функции для подключения к sql серверу ну и некоторые другие, самые основные. подскажите пожалуйста как это сделать!! буду очень благодарен

[Stilet]

Через ADO? Какой сервер?

[jb_007]

а как через ADO усли это длл??или как то его можно подключить к DLL? сервер mySQL.

[Stilet]

а как через ADO усли это длл??

Ну в DLL создавать TADOQUERY и с ним работать. но...
ты скажи чем в принципе к mySQL коннектишся?

[jb_007]

а можно поподробней на счет как создать TADOQUERY в DLL? а как конектиться вообще можно!!я думал что через Mysql_connect. ну или как то так!если нет, то объясните как подключаться!

[Stilet]

Ну если в кратце и без проверок то так:
ДЛЛ

library Project2;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses      ADODB,  ShareMem,
  SysUtils,  unit1,
  Classes;
 var sk:integer;fs:TForm1; ado:TADOQuery;
{$R *.res}

 Procedure ConnectA(DataBase:string);
 begin
  ado:=TADOQuery.Create(nil);
  ado.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataBase+';Persist Security Info=False';
 end;

 procedure OpenA(Select:String);
 begin
    ado.Active:=false; ado.SQL.Text:=Select;  ado.Active:=true;
 end;

 procedure MoveToA(RecNoA:Integer);
 begin
  ado.First;ado.MoveBy(recnoA);
 end;

 {Получить значение из поля под номером}
 function GetField(Index:Integer):PChar;
 begin
  result:=pchar(ado.Fields[index].AsString);
 end;
 procedure CloseA;begin   ado.Active:=false; ado.Free; end;
exports ConnectA,OpenA,MoveToA,GetField,CloseA;
begin
end.

Сам проект:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ADOQuery1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;
   function GetField(Index:Integer):Pchar; external 'project2.dll';
   procedure MoveToA(RecNoA:Integer); external 'project2.dll';
   Procedure ConnectA(DataBase:string); external 'project2.dll';
   procedure OpenA(Select:String); external 'project2.dll';
   procedure CloseA; external 'project2.dll';
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 ConnectA('db1.mdb');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 CloseA;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 OpenA('select * from tab');
 caption:=GetField(0);
end;

end.

Смысл ясен?

[jb_007]

Огромное спасибо!!! попробую разобраться!

[Stilet]

Давай, Только я не знаю какой пров для mySQL нужен. Узнаешь напиши - всем будет полезно .

[jb_007]

Спасибо!!! общий смысл я понял!как я понял, сам текст SQL-запроса передается в функцию OpenA ? так? но какие проверки могут понадобиться я не понял!!

[jb_007]

Сообщение от Stilet

Давай, Только я не знаю какой пров для mySQL нужен. Узнаешь напиши - всем будет полезно .

Что ты имел ввиду под словом пров?