数据库学习:用Access分析网站实例

来源：CSDN 作者：changechange 出处：巧巧读书 2005-11-09 进入讨论组

• 关 键 词：
• microsoft
• internet
• switch
• update
• access

上一页 1 2 3 4 5 6 7 8 下一页 

  ok ，接下来就让我们一边写代码，一边分析吧：

  Option Compare Database
  Dim blnSwitch As Boolean
  Private Sub Command1_Click()        '用于启动浏览功能
    Me.WebBrowser3.Navigate ("http://ip.loveroot.com/index.php?job=search")
  End Sub

  Private Sub Command11_Click()   '将需要搜索的IP 写入全局变量
    splitIP Text1.Value
  End Sub
  Function splitIP(strip) '将需要搜索的IP 写入全局变量
  Dim a() As String
  strip = strip & "."
  a = Split(strip, ".")

  Dim i As Long
  For i = 0 To UBound(a)
    If a(i) = "" Then a(i) = "0"
    lngSearchIP(4 - i) = CLng(a(i))
  Next i

  End Function

  Sub WriteLog(ip1 As String)         '读取结果
    Dim dc As MSHTML.HTMLDocument
    Dim Bd As MSHTML.HTMLBody
    Dim El As MSHTML.HTMLElementCollection
    Dim strip As String
    Dim strAdd As String
    Dim strSql
    Dim i As Long
    Set dc = WebBrowser3.Document

打开： http://www.qqread.com/other-database/u225717001.html 更多内容请看网站服务器的选型、Access、数据库专栏专题，或进入讨论组讨论。

上一页 1 2 3 4 5 6 7 8 下一页 

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：数据库学习:查询区分大小写

较新的文章：数据库事务和锁(二)