vb怎样访问网络服务器的access数据库

最新推荐文章于 2021-08-30 16:23:41 发布

原创最新推荐文章于 2021-08-30 16:23:41 发布 · 4.2k 阅读

6 ·

CC 4.0 BY-SA版权

文章标签：

#网络 #access #vb #服务器 #string #function

博客主要展示了使用VB实现网络连接与断开的代码。定义了自定义常量和结构，声明了相关API函数。包含两个公共函数，funIpcConn用于建立网络间联系，funIpcDisConn用于取消网络连接，实现了网络连接与断开的功能。

'=============================自定义常量========================================
Private Const RESOURCETYPE_DISK = &H1
Private Const RESOURCE_GLOBALNET As Long = &H2
Private Const RESOURCEDISPLAYTYPE_SHARE = &H3
Private Const RESOURCEUSAGE_CONNECTABLE = &H1

'=============================自定义结构========================================
Private Type NETRESOURCE
   dwScope          As Long
   dwType           As Long '用于指定网络的资源类型
   dwDisplayType    As Long
   dwUsage          As Long
   lpLocalName As String   '指定本地设备
   lpRemoteName As String   '指定远程网络名
   lpComment    As String
   lpProvider   As String   '指定提供网络资源的供应商
End Type

'=================================API声明=======================================
Private Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" ( _
    lpNetResource As NETRESOURCE, _
    ByVal lpPassword As String, _
    ByVal lpUserName As String, _
    ByVal dwFlags As Long _
    ) As Long

Private Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias "WNetCancelConnection2A" ( _
    ByVal lpName As String, _
    ByVal dwFlags As Long, _
    ByVal fForce As Long _
    ) As Long

Public Function funIpcConn(ByVal strRemoteName As String, ByVal strUserName As String, ByVal strPassword As String) As Boolean
'目的:建立网络间的联系
'返回: True ---- 成功
'       False --- 失败
'注释:strRemoteName为要连接的计算机名称(如://HostName、//192.168.199.144、//HostName/Data)
'     strUserName为登录的用户名,strPassword为登录的密码
    Dim NetR   As NETRESOURCE
    NetR.dwScope = RESOURCE_GLOBALNET
    NetR.dwType = RESOURCETYPE_DISK
    NetR.dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
    NetR.dwUsage = RESOURCEUSAGE_CONNECTABLE
    NetR.lpRemoteName = strRemoteName
    '建立网络映射
    funIpcConn = IIf(WNetAddConnection2(NetR, strPassword, strUserName, 0) = 0, True, False)
End Function