标题: 用robot自动输入数据 [打印本页] 作者: gaobugu 时间: 2005-8-4 20:32 标题: 用robot自动输入数据 为了反映软件的性能,想在sql2000数据库中输入大量的数据,不知道怎么样才能用robot自动输入数据,数据可以是无关的随机数据。请大家帮帮忙了作者: pcl2004_27 时间: 2005-8-4 22:07
你要自己产生的数据,还是已经有现成的大量的数据,需要你导入?
如果是自己产生的数据,就可以利用自己编写随机函数产生数据,如果是现成的数据,就从其他数据源里读数据,下边代码,是由随机产生的数据,没有经过调试,
Dim Cnxn As object
Dim rst As object
Dim strCnxn As String
strCnxn = "连接字符串"
Set Cnxn =createobject("ADODB.Connection")
Cnxn.Open strCnxn
declare @i int --变义变量@i
set @i = 1 --初始化@i为1
while @i < 101 --如果@i小于101,这里改成100万+1即是插入100万条记录
begin
insert into item(parentID,name) values(0,@i) --parentID=0表示这些item都是第一层的,也就是所谓的根节点
set @i = @i + 1
end
然后我们再在第一层的其中一个item中插入100条
declare @i int
set @i = 1
while @i < 101
begin
insert into item(parentID,name) values(1,@i) --parentID=1表示这些item都是ID=1的item的下一级
set @i = @i + 1
end