Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-窗体/数据页

【Access示例】判断当前电脑是否已连接到网络

时 间:2014-02-23 08:23:21
作 者:缪炜   ID:24010  城市:江阴
摘 要:判断当前电脑是否已连接到网络。
正 文:

当然访问的后台数据库不在是本地或者局域网,那我们需要判断当前电脑是否有连接到互联网,代码很简单,具体做方法如下:

Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long

Public Function IsNetConnectOnLine() As Boolean
    '不需要标志值,如果有其他类型返回True
    IsNetConnectOnLine = InternetGetConnectedState(0&, 0&)
End Function
Private Sub Command56_Click()
 If IsNetConnectOnLine Then
   MsgBox "已连接"
else 
   msgbox"未连接"
End If
End Sub


示   例:

点击附件下载

Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助