ADO带密码的数据连接、查询一个记录集、执行一SQL语句
来源:互联网 发布:七天网络答题卡制作 编辑:程序博客网 时间:2024/04/27 17:00
在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;
end.
- ADO带密码的数据连接、查询一个记录集、执行一SQL语句
- 使用ADO.NET执行带参数的Sql语句
- psql、pg_dump带密码执行sql语句
- Sql 查询执行过的Sql语句记录
- ado 连接带密码的access
- ADO连接带密码的Access数据库
- plsql查询带中文的sql语句查询不到数据
- Hibernate直接执行sql语句,查询记录的个数
- Vb Ado实现带事务回滚的sql语句执行
- SQL 语句(三)--------------数据查询(连接查询)
- 如何用一个SQL语句查询多个表的记录数
- 如何用一个SQL语句查询多个表的记录数
- ADO.NET 的几个示例二,带连接数据查询方法
- SqlServer和Oracle从多行记录(数据集)中查询结果并拼接成一个字符串的SQL语句(纵表数据转成拼接的文本)
- 如何使用ADO连接带密码的ACCESS数据库
- Sql查询--sql语句的执行顺序
- SqlCommand执行带参数的sql语句
- 执行带参数的sql语句
- 一个应用程序多次点击时,如何只让它只运行一个
- D3DXMatrixDecompose 函数
- 冒泡排序的算法分析与改进(转载)
- C++中的常用数学函数
- donets感伤~
- ADO带密码的数据连接、查询一个记录集、执行一SQL语句
- Ant全攻略
- Web会话状态的维持
- 应用程序中当前路径的两中写法、COM中当前路径取得
- 十一长假过去了,今天开始上班
- Java中的中文处理
- 解读 C# 中的正则表达式
- 输出EXCEL文件的通用函数,很实用
- SpringFramework中的AOP简单使用