delphi DLL中如何操作数据库

Question

我新手
想请问下
在DELPHI 下
的 DLL中  怎么连接和操作数据库
最好是给出代码 
先谢谢了

Answer 1

var
   adoUser:TAdoDataset;
begin
   adoUser:=TAdoDataset.create(nil);
   adoUser.close;
   adoUser.connection:= ....
   //或:adoUser.ConnectionString=...
   adoUser.CommandText:=' select * from bs_Users ';
   adoUser.open;
   //作你要作的事
   adoUser.close;
   adoUser.free;
   adoUser:=nil;
   
end;
注意:要在Uses里加入 adoDB和DB请楼主结帖!

Answer 2

type
  TArr=array[0..2] of ShortString;
  PTArr=^TArr;function getspecial(a:PTArr):ShortString;StdCall;
var
  ADOQ:TADOQuery;
  FileName:String;
begin
  CoInitialize(nil);
  FileName:=ExtractFilePath(ParamStr(0))+'bin\MDB\Assistant.mdb';
  ADOQ:=TADOQuery.Create(nil);
  try
  with ADOQ do
  begin
      Close;
      ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+FileName+ ';Persist Security Info=False';
      CursorType:=ctKeyset;
      SQL.Clear;
      SQL.Text:='select TOP 1 * from memo1 where memodate >= date() and memotype = '''+'0'+''' order by memotime asc';///按照升序法筛选出第一条记录
      Open;
  end;
  if ADOQ.RecordCount>0 then
  begin
    a^[0]:=TimetoStr(ADOQ.Fields[3].Value);
    a^[1]:=DatetoStr(ADOQ.Fields[2].Value);
    a^[2]:=ADOQ.Fields[1].Value;
  end;
  ADOQ.Close;
  ADOQ.Free;
  except
    on E:Exception do
    begin
      showmessage(e.Message);
    end;
  end;
 CoUnInitialize;
end;