我发现很多朋友在开发数据库时都使用 Delphi 自带的 ADO 组件 或 Diamond ADO，其实在 Delphi 中使用原生 ADO 接口也是十分方便和有效的。我使用原生 ADO 开发项目已有很长一段时间，也回答过一些朋友类似的问题，现在把自己的一点心得与大家分享，班门弄斧，只是希望能对大家有所帮助。当然，这帖子也是原生的，不是转贴的。
一、优点
1
、大家知道 Delphi 对 ADO 接口进行了一番包装后形成了 ADOExpress，我想 Borland 的主要目的还是想与自己的数据敏感控件相连。然而事实上数据敏感控件并不是那么耀眼，如果你希望你编出来的程序稍微有点水准的话那就别用那玩意；如果你很少使用数据敏感控件，那么 ADOExpress 基本上失去了其应有的作用，无数冗余的属性、虚方法，不管你用不用得到一股脑给你编译进去，也会使你的程序再大上 200K；效率么，不说了。
2
、MSDN 和 VB 中的例子你可以搬过来就用。
3
、告诉那些 Delphi 反对者，Delphi 不是离开组件就活不了。
4
、关于代码重用：我给大家的例子都是以函数或过程形式，重用性不好么？
5
、别说帖子太长，那你看看 DB.pas, ADODB.pas 多长？
二、基本储备
1
、一些必须的单元
uses
Variants, ComObj;
2
、一些基本常数（其它查 ADODB2000.pas）：
const
adOpenDynamic
=
$
00000002
;
adOpenStatic
=
$
00000003
;
adLockOptimistic
=
$
00000003
;
adLockBatchOptimistic
=
$
00000004
;
adStateClosed
=
$
00000000
;
adStateOpen
=
$
00000001
;
adStateConnecting
=
$
00000002
;
adStateExecuting
=
$
00000004
;
adStateFetching
=
$
00000008
;
adUseServer
=
$
00000002
;
adUseClient
=
$
00000003
;
adModeReadWrite
=
$
00000003
;
adXactCursorStability
=
$
00001000
;
adCmdText
=
$
00000001
;
adCmdTable
=
$
00000002
;
adCmdStoredProc
=
$
00000004
;
adCmdFile
=
$
00000100
;
adAffectCurrent
=
$
00000001
;
adAffectGroup
=
$
00000002
;
adAffectAll
=
$
00000003
;
adAffectAllChapters
=
$
00000004
;
3
、一些基本函数和过程
//
创建 Connection 对象
function CreateConnection: OleVariant;
//
释放 Connection 对象；cnn 为 Connection 对象
procedure FreeConnection(var cnn: OleVariant);
//
创建 Recordset 对象
function CreateRecordset: OleVariant;
//
释放 Recordset 对象；rst 为 Recordset 对象
procedure FreeRecordset(var rst: OleVariant);
//
创建 Command 对象
function CreateCommand: OleVariant;
//
释放 Command 对象；cmd 为 Command 对象
procedure FreeCommand(var cmd: OleVariant);
//
用 Connection 连接到 SQLServer 数据库；cnn 为 Connection 对象，db 数据库名，host 主机名，usr 用户名，pwd 密码
function ConnectToDB(cnn: OleVariant;
const
db, host, usr, pwd:
string
): Boolean;
//
执行 SQL 语句，有返回行，无事务处理；cnn 为 Connection 对象，rst 为 Recordset 对象，sql 为 SQL 语句（可以是存储过程）
function ExecSQL(cnn, rst: OleVariant;
const
sql:
string
): Boolean;
//
执行 SQL 语句，无返回行，有事务处理；cnn 为 Connection 对象，cmd 为 Command 对象，sql 为 SQL 语句（可以是存储过程）
function ExecSQLA(cnn, cmd: OleVariant;
const
sql:
string
): Boolean;
function CreateConnection: OleVariant;
begin
Result :
=
CreateOleObject(
'
ADODB.Connection
'
);
Result.CursorLocation :
=
adUseServer;
Result.IsolationLevel :
=
adXactCursorStability;
Result.Mode :
=
adModeReadWrite;
Result.Provider :
=
'
SQLOLEDB.1
'
;
except
if
not VarIsEmpty(Result) then Result :
=
Unassigned;
end;
end;
procedure FreeConnection(var cnn: OleVariant);
begin
if
not VarIsEmpty(cnn) then
begin
if
cnn.State
<>
adStateClosed then cnn.Close;
cnn :
=
Unassigned;
end;
end;
function CreateRecordset: OleVariant;
begin
try
Result :
=
CreateOleObject(
'
ADODB.Recordset
'
);
Result.CacheSize :
=
1000
;
Result.CursorType :
=
adOpenStatic;
Result.CursorLocation :
=
adUseServer;
Result.LockType :
=
adLockOptimistic;
except
if
not VarIsEmpty(Result) then Result :
=
Unassigned;
end;
end;
procedure FreeRecordset(var rst: OleVariant);
begin
FreeConnection(rst);
end;
function CreateCommand: OleVariant;
begin
try
Result :
=
CreateOleObject(
'
ADODB.Command
'
);
Result.CommandType :
=
adCmdText;
Result.CommandTimeout :
=
5
;
except
if
not VarIsEmpty(Result) then Result :
=
Unassigned;
end;
end;
procedure FreeCommand(var cmd: OleVariant);
begin
if
not VarIsEmpty(cmd) then cmd :
=
Unassigned;
end;
function ConnectToDB(cnn: OleVariant;
const
db, host, usr, pwd:
string
): Boolean;
begin
Result :
=
not VarIsEmpty(cnn);
if
Result then
begin
if
cnn.State
<>
adStateClosed then cnn.Close;
cnn.ConnectionString :
=
'
Provider=SQLOLEDB.1;Persist Security Info=True;Initial Catalog=
'
+
db
+
'
;Data Source=
'
+
host
+
'
;Connect Timeout=5;
'
+
'
Use Procedure for Prepare=1
'
;
try
cnn.Open(cnn.ConnectionString, usr, pwd,
-
1
);
except
Result :
=
False;
end;
end;
end;
function ExecSQL(cnn, rst: OleVariant;
const
sql:
string
): Boolean;
begin
Result :
=
not (VarIsEmpty(cnn) or VarIsEmpty(rst)) and (cnn.State
=
adStateOpen);
if
Result then
begin
if
rst.State
<>
adStateClosed then rst.Close;
try
rst.Open(sql, cnn, adOpenStatic, adLockOptimistic, adCmdText);
except
Result :
=
False;
end;
end;
end;
function ExecSQLA(cnn, cmd: OleVariant;
const
sql:
string
): Boolean;
begin
Result :
=
not (VarIsEmpty(cnn) or VarIsEmpty(cmd)) and (cnn.State
=
adStateOpen);
if
Result then
begin
cnn.BeginTrans;
try
cmd.ActiveConnection :
=
cnn;
cmd.CommandText :
=
sql;
cmd.Prepared :
=
True;
cmd.Execute;
cnn.CommitTrans;
except
cnn.RollbackTrans;
Result :
=
False;
end;
end;
end;
三、访问数据
1
、最前 rst.MoveFirst;
2
、最后 rst.MoveLast;
3
、向前 rst.MovePrevious;
4
、向后 rst.MoveNext;
5
、取当前记录 rst.Fields[
0
].Value 或 rst.Fields[
'
字段名
'
].Value;
6
、修改当前记录 rst.Update(rst.Fields[
0
].Name, 某值);
7
、取消修改 rst.CancelUpdate;
8
、删除当前记录 rst.Delete(adAffectCurrent);
9
、删除所有记录 rst.Delete(adAffectAll);
10
、追加记录
rst.AddNew;
rst.Fields[
0
].Value :
=
值1;
rst.Fields[
1
].Value :
=
值2;
rst.Update;
11
、刷新 rst.Refresh;
12
、记录数 rst.RecordCount
15
、其它方法和属性查 MSDN 或 ADO 的帮助;
四、一些例子
//
变量声明
var
cnn, rst, cmd: OleVariant;
//
创建对象
procedure TForm1.FormCreate(Sender: TObject);
begin
cnn :
=
CreateConnection;
rst :
=
CreateRecordset;
cmd :
=
CreateCommand;
end;
//
释放对象
procedure TForm1.FormDestroy(Sender: TObject);
begin
FreeCommand(cmd);
FreeRecordset(rst);
FreeConnection(cnn);
end;
//
连接数据库
procedure TForm1.Button1Click(Sender: TObject);
begin
if
ConnectToDB(cnn,
'
mydb
'
,
'
127.0.0.1
'
,
'
sa
'
,
'
ok
'
) then
Caption :
=
'
连接成功
'
else
Caption :
=
'
连接失败
'
;
end;
//
取记录
procedure TForm1.Button2Click(Sender: TObject);
begin
ExecSQL(cnn, rst,
'
select * from 表a
'
);
Caption :
=
VarToStr(rst.Fields[
'
字段a
'
].Value);
end;
五、原生 ADO 与 Delphi ADOExpress 组件的对应关系
1
、Connection
<=>
ADOConnection.ConnectionObject;
2
、Recordset
<=>
ADODataSet.Recordset;
3
、Command
<=>
ADOCommand.CommandObject;
4
、
?
<=>
ADOQuery，因为 ADOQuery 根本就不是原生 ADO 对象
5
、ExecSQL
<=>
ADODataSet.Open;
6
、ExecSQLA
<=>
ADOCommand.Execute;
7
、有了上面几个其它的就不多说了
六、与数据库结构有关的一些函数
1
、动态改变字段名称
uses ComObj;
//
Access
//
TableName: 表名; OldColName: 原字段名; NewColName: 新字段名;
procedure RenameField(
const
TableName, OldColName, NewColName:
string
);
var
DB, Col: OleVariant;
begin
DB :
=
CreateOleObject(
'
ADOX.Catalog
'
);
DB.ActiveConnection :
=
ADOConnection1.ConnectionObject;
Col :
=
CreateOleObject(
'
ADOX.Column
'
);
Col :
=
DB.Tables[TableName].Columns[OldColName];
Col.Name :
=
NewColName;
end;
//
SQLServer
procedure RenameField(
const
TableName, OldColName, NewColName:
string
);
begin
with ADOCommand1
do
begin
CommandText :
=
'
EXEC sp_rename
'''
+
TableName
+
'
.
'
+
OldColName
+
'''
,
'''
+
NewColName
+
'''
,
''
COLUMN
''
;
'
;
Excute;
end;
end;
2
、取得 Access 库中的表结构
type
TTableDef
=
record
Name,
DateCreated,
LastUpdated,
Description:
string
;
end;
TTableDefs
=
array of TTableDef;
procedure GetTableDefs(
const
DBName:
string
;
out
TableDefs: TTableDefs);
var
DBEngine, DB: OleVariant;
I: Longint;
begin
try
DBEngine :
=
CreateOleObject(
'
DAO.DBEngine.36
'
);
DB :
=
DBEngine.OpenDatabase(DBName);
SetLength(TableDefs, Longint(DB.TableDefs.Count));
for
I :
=
Low(TableDefs) to High(TableDefs)
do
begin
TableDefs[I].Name :
=
DB.TableDefs[I].Name;
TableDefs[I].DateCreated :
=
DB.TableDefs[I].DateCreated;
TableDefs[I].LastUpdated :
=
DB.TableDefs[I].LastUpdated;
try
TableDefs[I].Description :
=
DB.TableDefs[I].Properties[
'
Description
'
].Value;
except
TableDefs[I].Description :
=
''
;
end;
end;
finally
DB :
=
Unassigned;
DBEngine :
=
Unassigned;
end;
end;
3
、取得 Access 表中的字段结构
type
TFieldDef
=
record
Name:
string
;
Types,
Size: Longint;
Description:
string
;
end;
TFieldDefs
=
array of TFieldDef;
procedure GetFieldDefs(
const
DBName, TableName:
string
;
out
FieldDefs: TFieldDefs);
var
DBEngine, DB: OleVariant;
I: Longint;
begin
try
DBEngine :
=
CreateOleObject(
'
DAO.DBEngine.36
'
);
DB :
=
DBEngine.OpenDatabase(DBName);
SetLength(FieldDefs, Longint(DB.TableDefs[TableName].Fields.Count));
for
I :
=
Low(FieldDefs) to High(FieldDefs)
do
begin
FieldDefs[I].Name :
=
DB.TableDefs[TableName].Fields[I].Name;
FieldDefs[I].Types :
=
DB.TableDefs[TableName].Fields[I].Type;
FieldDefs[I].Size :
=
DB.TableDefs[TableName].Fields[I].Size;
try
FieldDefs[I].Description :
=
DB.TableDefs[TableName].Fields[I].Properties[
'
Description
'
].Value;
except
FieldDefs[I].Description :
=
''
;
end;
end;
finally
DB :
=
Unassigned;
DBEngine :
=
Unassigned;
end;
end;
4
、至于如何动态创建 Access 数据库之类我就不罗嗦了，到处都有相关的月经贴
七、其它
1
、我使用 ADO 的经历：ADOExpress
-->
ADOExpress的原生接口
-->
引用ADO2.1接口单元，即ADODB_TLB
-->
直接使用 ADO 的 COM 接口；
2
、希望此贴能对朋友门有所帮助，我写的这些都是经过实战检验的；
3
、觉得有用的朋友可以试一下，如果觉得没用就当我没写，耽误你时间了。
本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。
