Dim conn Dim name Dim suu Dim inn '检查字段 SystemUtil.Run "http://192.168.0.233/web/guest/home" '这一段就是复制当时记事本里的那一段语句 这段语句有个问题就是 自己要手动往里添加用户密码噢 所以我再里面加了一个Password=1111 Mysql="Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Password=1111;Data Source=sqltest" 'select screenName,screenName from user_ where screenName like 'test__'; '这段话表示说 搜索数据库内 USER_ 表内 screenName，screenName 这2个列里面所有包含 test 的数据 sql="select screenName,greeting from user_ where screenName like 'test__';" Set conn=CreateObject("ADODB.CONNECTION") conn.Open Mysql If conn.State<>0 Then Reporter.ReportEvent micPass,"连接成功","连接成功" else Reporter.ReportEvent mimicFail,"连接失败","连接失败" End If Set res=CreateObject("ADODB.Recordset") res.Open sql,conn,1,1 '1,1表示只读;1,3表示插入数据;2,3表示修改数据 res.MoveFirst'使游标指向第一个记录 sum="" 'res.EOF表示游标到达最后一行 While Not res.EOF '读取整个表内的所有数据 ' For i=0 to res.Fields.Count-1'str.Fields.Count表示字段个数 ' sum=sum& res(i) & " " '把整个记录显示出来 ' Next |