我现在在做个网页批量登录的工具,
其他部分都差不多做好了,就差从数据库读取数据的部分了
代码如下:dim strcode = web1.document.body.innertextif instr(strcode,"注销") <> 0 then
Delay 10
web1.navigate("这里是退出网址")
else
web1.navigate("登录网址的前一部分" & "&username=" & user【这里的USER我需要读取数据库的USER列的值】 & "&password=" & pass【这里的USER我需要读取数据库的PASS列的值】)
end if上面是网页加载完的判断,在USER和PASS变量里赋数据库USER列和PASS列的值而且是登录完成一个后,再赋下一个用户的值还有连接数据库的代码要怎么写?,我看资料一直没看懂,ADO方法的。最好有注释
其他部分都差不多做好了,就差从数据库读取数据的部分了
代码如下:dim strcode = web1.document.body.innertextif instr(strcode,"注销") <> 0 then
Delay 10
web1.navigate("这里是退出网址")
else
web1.navigate("登录网址的前一部分" & "&username=" & user【这里的USER我需要读取数据库的USER列的值】 & "&password=" & pass【这里的USER我需要读取数据库的PASS列的值】)
end if上面是网页加载完的判断,在USER和PASS变量里赋数据库USER列和PASS列的值而且是登录完成一个后,再赋下一个用户的值还有连接数据库的代码要怎么写?,我看资料一直没看懂,ADO方法的。最好有注释
dim conn as new adodb.connection
with conn
If .State = adStateOpen Then .Close
.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\test.mdb;Mode=ReadWrite;Persist Security Info=False"
.Open
end with
BS?CS?不懂,我压根还没接触到数据库控件帮忙把上面的问题写一下,顺便注释,不然我完全没有头绪