sqloperator_unit.pas

来自「学校班级教学管理系统 DELPHI7下的」· PAS 代码 · 共 71 行

unit SQLOperator_Unit;

interface

uses
  ADODB, DB, Dialogs, SysUtils, ActiveX, Classes;

  function SQLDataSet(sqlText: string; ADOConn: TADOConnection): TDataSet;
  procedure SQLExecute(sqlText :string; ADOConn: TADOConnection);
  function SQLSearch(sqlText :string; ADOConn: TADOConnection): Boolean;

implementation

function SQLDataSet(sqlText: string; ADOConn: TADOConnection): TDataSet;
var
  ADOQuery: TADOQuery;
begin
  CoInitialize(nil);
  ADOQuery := TADOQuery.Create(nil);
  ADOQuery.Connection := ADOConn;
  with ADOQuery do
  begin
     Close;
     SQL.Clear;
     SQL.Add(sqlText);
     Open;
  end;
  Result := ADOQuery;
  CoUninitialize;
end;

procedure SQLExecute(sqlText: string;ADOConn: TADOConnection);
var
  ADOQuery: TADOQuery;
begin
  CoInitialize(nil);
  ADOQuery := TADOQuery.Create(nil);
  ADOQuery.Connection := ADOConn;
  with ADOQuery do
  begin
     Close;
     SQL.Clear;
     SQL.Add(sqlText);
     ExecSQL;
  end;
  CoUninitialize;
end;

function SQLSearch(sqlText: string; ADOConn: TADOConnection): Boolean;
var
  ADOQuery: TADOQuery;
begin
  CoInitialize(nil);
  ADOQuery := TADOQuery.Create(nil);
  ADOQuery.Connection := ADOConn;
  with ADOQuery do
  begin
     Close;
     SQL.Clear;
     SQL.Add(sqlText);
     Open;
     if not ADOQuery.Eof then
       Result := True
     else
       Result := False;
  end;
  CoUninitialize;
end;

end.