TestComplete中创建ADOCommand

在TestComplete中，连接数据库，做各种的查询操作，可使用ADO、BDE，也可通过大家比较熟悉的ADO.NET进行。如下的例子就是通过一般的ADO连接数据库，查询数据库：51Testing软件测试网iV4rd&p
Yi9cUb.T.e*T

procedureTestADOCommand;51Testing软件测试网C}7i-Ljnw
var
h
adnv.e0  RecSet, Cmd: OleVariant;51Testing软件测试网a#p7l$Jz$~i:C
begin51Testing软件测试网-Q5v5Ux*op1k
  //创建一个新的ADOCommand对象
/_)VUw$oksPH0  Cmd := ADO.CreateADOCommand;51Testing软件测试网$z#m7S`C!me3_
  //指定数据库连接串51Testing软件测试网7E^:AL4A-irM"E[o
  Cmd.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.3.51;'+51Testing软件测试网5X*xF,?A?9cQ*q
  'Data Source=C:\Example.mdb';
a!m+ru.n'f0  //指定SQL查询语句51Testing软件测试网K2z/{#BAbdX~,@
  Cmd.CommandText := 'SELECT * FROM Authors WHERE Authors.[Year Born] < MyParam';
X t0uW'p^M-H*P^t6O0  //指定command type51Testing软件测试网M%eV/U0f`,m6_
  Cmd.CommandType := cmdText;
8huX\UIbN0  //指定查询参数51Testing软件测试网\({O1|S%Y Pwx
  Cmd.Parameters.CreateParameter('MyParam', ftInteger, pdInput, 0, 1960);51Testing软件测试网\RlW5b+}
  //执行查询
)Dxv:~:zW;o:d6BB0  RecSet := Cmd.Execute;
&s4\7zv7Yu#H;F$_
_)h0  //读取表数据
)G6@+^(Wc0  RecSet.MoveFirst;
a?3N zXp2pH0  while notVarToBool(RecSet.EOF)do51Testing软件测试网2t?w,^U"W4|D,HYR
  begin
#t5l.y \ };T D@;G0   Log.Message(RecSet.Fields('Author').Value, RecSet.Fields('Year Born').Value);
{+B$W%\[;]R&c'x7\0    RecSet.MoveNext;51Testing软件测试网&a#z4wl^
i
  end;
`8U4SAWdt#y nzg0end;

有时间再把ADO.NET的使用方法放上来。51Testing软件测试网L7pV%[ i#aCP