VB6.0获取webbrowser控件网页的表格内容导入数据表中。

Option Explicit

'需要添加一个webbrowser控件 和一个按钮

'引用两个库，在菜单的工程-引用里，找到Microsoft HTML object library和 Microsoft activex data object 25/26两个库，然后粘贴如下代码

'不明白的百度HI我

Private Sub Command1_Click()

WebBrowser1Navigate ">

记住：在

data3databasename

=

apppath

+

"\tushu1mdb"

'这是设置data3控件数据库的路径

data3recordsource

=

"denglu"

'这个是选择数据库中的表

后面不要忘记刷新；

data3refresh

另外，你既然用了

text1text

=

data3recordsetfields("用户名")

text2text

=

data3recordsetfields("密码")

text3text

=

data3recordsetfields("密码")

那前面的三行是多余的了

text1datasource

=

"data3"

'这是个文本框控件设置数据源

text2datasource

=

"data3"

text3datasource

=

"data3"

要么这样：

text1datasource

=

"data3"

'这是个文本框控件设置数据源

text2datasource

=

"data3"

text3datasource

=

"data3"

text1datafield

=

"用户名"

text2datafield

=

"密码"

text3datafield

=

"密码"

经试验，你提供的代码完全正确，请确定以下是否完成：

1、在D:\文件夹下，新建一个DBmdb的access文件

2、添加一个webbrowser控件 和一个按钮，名称为：webbrowser1和command1

3、引用两个库，在菜单的工程-引用里，找到Microsoft HTML object library和 Microsoft activex data objects28 labrary

4、运行后，点command1，输入表名

5、运行完成后，打开db1mdb查看

1一个简单的查询的例子：

'定义一个连接

Dim Conn As ADODBConnection

'定义一个记录集

Dim mrc As ADODBRecordset

'分别实例化

Set Conn = New ADODBConnection

set mrc =New ADODBRecordset

'定义一个连接字符串

dim ConnectString as string

ConnectString="provider=microsoftjetoledb40;data source=" & AppPath & "\data\数据库名mdb;jet oledb:database password=数据库密码"

'打开连接

Conn1Open ConnectString

'定义游标位置

Conn1CursorLocation = adUseClient

'查询记录集(从student表中找出名子为"张三"的记录)

mrcopen "select from student where name='张三'",Conn, adOpenKeyset, adLockOptimistic

'现在你已经得到了你想要查询的记录集了，那就是mrc

'你可以把此记录集与DataGrid榜定，用datagrid显示你查询的记录

set medatagriddatasource=mrc

以上就是关于VB6.0获取webbrowser控件网页的表格内容导入数据表中。全部的内容，包括:VB6.0获取webbrowser控件网页的表格内容导入数据表中。、vb如何获取数据库的数据，并修改、vb中使用表格控件浏览数据库中的数据等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！