unit DAHelper;

interface
uses
  SysUtils, Classes, DB, ADODB,Config;
//執(zhí)行沒有返回值的sql語句,如果正確執(zhí)行則返回true,否則返回false
function ExeSqlNoQuery(sql:string):boolean;
// 執(zhí)行有返回值的sql語句,返回得到的ADOQuery;
function ExeSqlQuery(sql:string):TADOQuery;
implementation
function ExeSqlQuery(sql:string):TADOQuery;
var
  query:TADOQuery;
begin
  try
  //判斷連接狀態(tài)是否關(guān)閉, 若關(guān)閉則打開
    if stClosed in Config.ADOCon.State then
      Config.ADOCon.Open;
    query:=TADOQuery.Create(nil);
    query.Connection:=Config.ADOCon;
    query.Close;
    query.SQL.Clear;
    query.SQL.Add(sql);
    query.Open;
  except
    result:=nil;
  end;
  result:=query;
end;
function ExeSqlNoQuery(sql:string):boolean;
var
  query:TADOQuery;
  ref:integer;
begin
  ref:=0;
  //判斷連接狀態(tài)是否關(guān)閉, 若關(guān)閉則打開
  if stClosed in Config.ADOCon.State then
      Config.ADOCon.Open;
    query:=TADOQuery.Create(nil);
    query.Connection:=Config.ADOCon;
    query.Close;
    Config.ADOCon.BeginTrans;
    try
      query.SQL.Clear;
      query.SQL.Add(sql);
      ref:=query.ExecSQL;//影響的行數(shù)
      Config.ADOCon.CommitTrans;
    except
      Config.ADOCon.RollbackTrans;
      query:=nil;
      result:=false;
    end;
  if ref>0 then
    result:=true
  else
    result:=false;
end;
end.