用robot自动输入数据

gaobugu

为了反映软件的性能，想在sql2000数据库中输入大量的数据，不知道怎么样才能用robot自动输入数据，数据可以是无关的随机数据。请大家帮帮忙了

ilovejolly

知识的面很非常广的，没有人可以无所不知
每个人都自己的长处和短处，
重要的是大家一起学习一起进步

gaobugu

谢谢楼上的各位高手，小弟是新手，还要向各位多多学习。

gaobugu

对的。.NET有一个内存回收器，但是如果程序中运行了大量的系统APT或者其他一些系统资源，用完之后如果没有释放，可能会造成内存泄露问题。这只是我的想法。
不知对不对？

ilovejolly

1 树的结构比较复杂，下面举个简单的例子，不一定跟你的表结构一样，只作为借鉴
   表item，有三个字段：ID,parentID,name，ID是唯一标致，我们这里用数据库的自增值，parentID表示此item的父节点ID,比如有个item的parentID=2，那么就表示这个item是在ID=2的item下一级

ok，现在我们插入100个第一层的item

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

如果你对循环理解的深刻，所有的操作都可以由一个语句块完成，如果还是搞不清楚可以象开发人员求助。

对第二个问题，.NET管理内存有垃圾回收器，所以我还没听说过有内存泄露的问题，看看是不是别的原因

jinke1983

测一下软件的内存泄漏。
用ratonal purify

gaobugu

谢谢，大家。哪位能给一个SQL语言的例子。自己弄了半天也产生不了数据。在数据库输入大量的数据，主要是想程序中有很多树，这些树是读取数据库中的数据随时产生的，想测一下程序的效率。

还有就是这个用.net做的程序，运行一个早上就把我的内存吃光了，还提示虚拟内存不足。有什么软件就可以测一下软件的内存泄漏。

魔海

你想测试的软件的性能应该是在有了大量的数据的情况下才开始进行的测试吗?
如果是这样的话,那你不如直接写个循环加数据的数据库脚本,直接在SQLServer2000中运行就得到了你要的数据,这个时候你再用性能测试工具进行性能测试.进行测试工作不一定只使用一种工具的哦!!

ilovejolly

直接用T-S不就行了，为什么要用robot啊

pcl2004_27

你要自己产生的数据，还是已经有现成的大量的数据，需要你导入？
如果是自己产生的数据，就可以利用自己编写随机函数产生数据，如果是现成的数据，就从其他数据源里读数据，下边代码，是由随机产生的数据，没有经过调试，
Dim Cnxn As object
    Dim rst As object
    Dim strCnxn As String
      
    strCnxn = "连接字符串"
    Set Cnxn =createobject("ADODB.Connection")
    Cnxn.Open strCnxn
   
   
    Set rst =createobject("ADODB.Recordset")
   
    rst.Open "select * from 你要操作的表", Cnxn      
    rst.movefirst
    wihile not rst.eof
        产生随机数
        rst.fields(0)=值
       rst.fields(1)=值
      .。。。。。。。。。
      rst.fields(x)=值
        rst.Update
    wend
       rst.Close
    Cnxn.Close
    Set rst = Nothing
    Set Cnxn = Nothing
    Exit Sub