ADO带密码的数据连接、查询一个记录集、执行一SQL语句

最新推荐文章于 2025-04-02 14:52:43 发布

原创最新推荐文章于 2025-04-02 14:52:43 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#sql #function #integer #query #forms #security

Delphi基础专栏收录该内容

43 篇文章

订阅专栏

该博客展示了SQL语句在Delphi中的应用，包含like条件使用，还给出了数据模块创建、连接ADO数据库的代码，以及OpenSQL和DoSQL两个函数的实现，用于执行SQL查询和操作。

部署运行你感兴趣的模型镜像

在SQL语句中 like 条件用在Deiphi中： .... like "%aabbcc%"

//////////////////////////////////////////////////////////////////

unit UDataModule;

interface

uses
Controls,SysUtils, Classes, DB, ADODB,windows,forms;

type
TDataModule1 = class(TDataModule)
    ADOConnection1: TADOConnection;
    dsDataSet: TADODataSet;
    ADOQuery1: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
private
    { Private declarations }
public
    ConnOK:boolean;
    { Public declarations }
end;

var
DataModule1: TDataModule1;
function OpenSQL(s: string;query:TADODataSet):integer;
function DoSQL(s: string;query:TADOQuery):boolean;

implementation

{$R *.dfm}

procedure TDataModule1.DataModuleCreate(Sender: TObject);
var SQL,pwd:string;
begin
//连接ADO
try
    pwd := 'deliSerial';
    SQL := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
         extractfilepath(paramstr(0))+'SerialInfo.mdb'+
         ';Persist Security Info=False;' +
         'Jet OLEDB:Database Password="'+pwd+'"';
    ADOConnection1.Connected := false;
    ADOConnection1.ConnectionString := SQL;
    ADOConnection1.Connected := true;
    ConnOK:=true;
except
    ConnOK:=false;
end;
end;

function OpenSQL(s: string;query:TADODataSet):integer;
var old_Cursor:TCursor;
begin
old_Cursor:=screen.cursor;
screen.cursor:=crSQLWait;
try
    try
      with query do
      begin
        close;
        commandtext:=s;
        open;
        result:=query.recordcount;
      end;
    except
     result:=0;
    end;
finally
    screen.cursor:=old_Cursor;
end;
end;

function DoSQL(s: string;query:TADOQuery):boolean;
var old_Cursor:TCursor;
begin
result:=true;
old_Cursor:=screen.cursor;
screen.cursor:=crSQLWait;
try
    try
      with query do
      begin
        close;
        SQL.Clear ;
        SQL.Add(s);
        ExecSQL;
      end;
    except
      result:=false;
    end;
finally
    screen.cursor:=old_Cursor;
end;
end;