vb6.0结合Web的设计技巧还要提高....
近来,在尝试一种WEb下Table数据导入Access表中的操作,是用VB6.0结和webbrowser控件做的。各个界面如下:
图1:窗体
本程序的初衷,【将数据导入控件显示】按钮是将【深圳市场】每天交易信息,网页中导出并显示在listview控件中;,【控件数据进入Table】按钮是将所显示数据添加到Access的表中,(图2)为表的结构;【控件显示Table数据】按钮,做一下清屏后,将Access数据表的记录堵到listView控件中。
以上是我做实验的过程。但美中不足的地方是【看图3,图4】,还要同时收集【该股票】当日买卖的大宗数据,包括:金额(买卖),所在营业部等信息。这点我正在实验,其数据向另一个Access中添加,备留分析用。目前,仍未【通过】!故请平台上的专家,给予帮助!!谢谢!1
图2 Access数据表存放:深圳信息
图3 Web网页的数据!
图4 我的遗憾或不足的地方是,在收集图3数据的同时,将图4【查看详情】的数据也要添加到另一个Access的表中。
下面将我的【将数据导入控件显示】按钮下的代码列出:
'需要添加一个webbrowser控件 和一个按钮
'引用两个库,在菜单的工程-引用里,找到
'1.Microsoft HTML object library
'2.Microsoft activex data object 2.5/2.6两个库,然后粘贴如下代码'
Private Sub Command1_Click() '链接IE网络进入[深圳市场]
ListView1.ListItems.Clear
WebBrowser1.Navigate "http://www.szse.cn/main/disclosure/news/xxlb/index.shtml?txtStockCodeORname="
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) '过程调用参数[网页数据显示在控件中]
'定义VAR
Dim doc As MSHTML.HTMLDocument
Set doc = WebBrowser1.Document
Dim table As MSHTML.HTMLTable
Dim lrow As MSHTML.HTMLTableRow
Dim cel As MSHTML.HTMLTableCell
Set table = doc.getElementById("REPORTID_tab1")
Dim itmX As ListItem
Dim FLD() As String '定义数组:字符串
Set lrow = table.rows(0) '初值=0
If lrow = "" Then MsgBox "网络链接失败!!", vbOKCancel, "运行提示": Exit Sub
ReDim FLD(0 To lrow.cells.length) As String
Dim i As Integer '循环变量
Dim tbname As String '表名变量
Dim sql As String '定义字段名
Dim SQL1 As String '字符串
Dim J As Integer
Dim P As Integer
Dim vlist As String
Dim a1, a2, a3, a4, a5, a6, a7 As String
'添加记录过程
For i = 1 To table.rows.length - 1 '总行数-1
vlist = ""
Set lrow = table.rows(i)
P = table.rows.length - 1
For J = 0 To lrow.cells.length - 1
vlist = vlist & "'" & lrow.cells(J).innerText & "',"
If J = 0 Then a1 = lrow.cells(J).innerText
If J = 1 Then a2 = lrow.cells(J).innerText
If J = 2 Then a3 = lrow.cells(J).innerText
If J = 3 Then a4 = lrow.cells(J).innerText
If J = 4 Then a5 = lrow.cells(J).innerText
If J = 5 Then a6 = lrow.cells(J).innerText
If J = 6 Then a7 = lrow.cells(J).innerText
If J = 6 Then
Set itmX = ListView1.ListItems.Add '(参数,参数,参数,……) '这些参数都可以为空,具体你可以看看msdn
itmX.Text = a1
itmX.SubItems(1) = a2
itmX.SubItems(2) = a3
itmX.SubItems(3) = a4
itmX.SubItems(4) = a5
itmX.SubItems(5) = a6
itmX.SubItems(6) = a7
End If
Next J
Next i
ListView1.ToolTipText = "有效记录条数:" + CStr(P)
MsgBox "网页数据显示成功!!", vbOKCancel, "运行提示" 'app
End Sub
......
务请VB专家看看,帮我解决【自认为的难题】!!多谢谢了!