斗破苍穹仙凡恋:vb浏览器下载提取信息并入库问题

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/30 15:17:57
请问我用vb做了一个web浏览器,要将某一个网页中的信息提取出来并入库,但是当提取了一次并完成入库后,网页过一会就会自动刷新,更新其中的信息,但是此时在按提取按钮的时候,就会报错,好像只能在当前页面提取一次信息,如果第二次提取信息,就要关闭程序再重启,这该怎么解决呢?我很着急,谢谢啦!
附:部分代码:
brwPrint.Enabled = False
txFileName.Text = App.Path & "\" & txFileName.Text '
Dim FileNo
FileNo = FreeFile()
Inet1.Cancel
Text1.Text = Inet1.OpenURL(txAddress.Text)
Open txFileName.Text For Output As #FileNo
While Not EOF(FileNo)
Print #1, Text1.Text
Wend
brwPrint.Enabled = True
‘提取信息部分。。。。。。
。。。。。。
Close #1
我是将提取出来的信息先存入多个text框中,然后再用ado连接存入sql数据库的,qq:173635235