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

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

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

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

    strSql = "select * from ipaddress order by enip"
    rs.Open strSql, CurrentProject.Connection, 1, 1
   
    Dim strAdd1 As String
    Dim strIP1 As String
    Dim lngENIP1 As Long
    Dim strState As String
    strState = "start"
   
    Dim i As Long
    Dim iA As Long
    iA = rs.RecordCount
   
    Do Until rs.EOF
        If blnStop = True Then Exit Function
        If strAdd1 <> rs("add") Then
            strSql = "update ipaddress_ok set ip2='" & strIP1 & " ',enip2=" & Str(lngENIP1) & ",mark='' where mark='setting'"
            CurrentProject.Connection.Execute strSql
            DoEvents
            strSql = "insert into ipaddress_ok (ip1,enip1,[mark],[add]) values('" & rs("ip1") & "'," & Str(rs("enip")) & ",'setting','" & rs("add") & "')"
            CurrentProject.Connection.Execute strSql
            DoEvents
        End If
           
        strAdd1 = rs("add")
        strIP1 = rs("ip1")
        lngENIP1 = rs("enip")
        i = i + 1

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

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

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

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

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