TestComplete中创建ADOCommand

{oKo5f*g2Z0在TestComplete中，连接数据库，做各种的查询操作，可使用ADO、BDE，也可通过大家比较熟悉的ADO.NET进行。如下的例子就是通过一般的ADO连接数据库，查询数据库：

!T'NS5fW7v0procedureTestADOCommand;51Testing软件测试网&ss4nC8bAO l:Ol!f
var51Testing软件测试网7rq[G!O)y
  RecSet, Cmd: OleVariant;
Zx2~Vxt7@1P0begin
-~A4_:^u&p/t0  //创建一个新的ADOCommand对象
)s)sm+Q7oW0  Cmd := ADO.CreateADOCommand;51Testing软件测试网o1|7@#o%A
  //指定数据库连接串51Testing软件测试网#wfy)uX#ubK
  Cmd.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.3.51;'+51Testing软件测试网`J0y|3w
  'Data Source=C:\Example.mdb';
p iAv-a0  //指定SQL查询语句
~X|(eX6T;J0  Cmd.CommandText := 'SELECT * FROM Authors WHERE Authors.[Year Born] < MyParam';
K/qP'goL*Oi8t%X0  //指定command type
+eu*\!\8\E0  Cmd.CommandType := cmdText;
?'H)F*n$q0  //指定查询参数51Testing软件测试网&UT&U%Q%l.D
  Cmd.Parameters.CreateParameter('MyParam', ftInteger, pdInput, 0, 1960);51Testing软件测试网SpZ0IZ3O_i1VTtu
  //执行查询
5WD,t*Eh0  RecSet := Cmd.Execute;
V"X8_"Sd2L0  //读取表数据51Testing软件测试网0{ICL
R
  RecSet.MoveFirst;
!d Qqwm&~HT0  while notVarToBool(RecSet.EOF)do51Testing软件测试网+N8k$U}I!MX#o"_K
  begin
n!AGb!Mi5jG3|g6R0   Log.Message(RecSet.Fields('Author').Value, RecSet.Fields('Year Born').Value);
-~'rq&XjNk8S0    RecSet.MoveNext;51Testing软件测试网'_,rn&Y5^l.c
  end;51Testing软件测试网2iD ~)h!P(qXu
end;51Testing软件测试网Tw6Y;@#m y7I(][

c
Q6fE A%jJ0有时间再把ADO.NET的使用方法放上来。51Testing软件测试网rJ"e0x]~a