TestComplete中创建ADOCommand

&eI!Q5H#G;J0在TestComplete中，连接数据库，做各种的查询操作，可使用ADO、BDE，也可通过大家比较熟悉的ADO.NET进行。如下的例子就是通过一般的ADO连接数据库，查询数据库：

procedureTestADOCommand;
{6wNYT$q0var
#[pRIS_0@0  RecSet, Cmd: OleVariant;51Testing软件测试网#X&d2c'y1r!A5c
begin
}0b:_8I!sx0  //创建一个新的ADOCommand对象
D?/|@Q+Z0  Cmd := ADO.CreateADOCommand;
U)mX,g2RB+o0  //指定数据库连接串
2d)f_v&^a0  Cmd.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.3.51;'+51Testing软件测试网0] HN.ddk
  'Data Source=C:\Example.mdb';51Testing软件测试网^Po
j4SX Y
  //指定SQL查询语句51Testing软件测试网"y:WA4tV)ybA
  Cmd.CommandText := 'SELECT * FROM Authors WHERE Authors.[Year Born] < MyParam';51Testing软件测试网B6an%Q*k3c:]9|
  //指定command type
}{g+y l6y+N0  Cmd.CommandType := cmdText;
/Y
qY/Xc'U0  //指定查询参数51Testing软件测试网b-]F qi,LDV
  Cmd.Parameters.CreateParameter('MyParam', ftInteger, pdInput, 0, 1960);
qG3C i.~ O)Y!f0  //执行查询51Testing软件测试网mr0DD~y @#V%|
  RecSet := Cmd.Execute;
#B]"D"}4zfy,d0  //读取表数据51Testing软件测试网c"q[c ?:p%iu}y@y-X1a
  RecSet.MoveFirst;51Testing软件测试网yY?1O`$z g
  while notVarToBool(RecSet.EOF)do51Testing软件测试网#T4qY%r+t L `
  begin51Testing软件测试网$k/b]L ^7X
   Log.Message(RecSet.Fields('Author').Value, RecSet.Fields('Year Born').Value);
i$z$G]5n8cI0    RecSet.MoveNext;
"i-Vni]9qP3C0  end;
VB:@4}L/_`
{)\,t0end;51Testing软件测试网w6Kqrg6n'e5l

~E?(wiT jUH0有时间再把ADO.NET的使用方法放上来。