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

'=============================自定义常量========================================
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

Public Function funIpcDisConn(ByVal strName As String) As Long
funIpcDisConn = WNetCancelConnection2(strName, 0, 0) '原样返回API的返回值
End Function

vb怎样访问网络服务器的access数据库相关推荐

VB连接Sql Server,Oracle,SyBase,Access数据库操作实例
- VB连接数据库是常用的操作对于小型数据的存取是非常不错的.在设计时对于不同数据的连接方式都不同这里使用了ADODB连接字符串的方式来访问常见的数据库:Sql Server,Oracle,Sy ...
虚拟机web服务器的搭建主机访问虚拟机服务器网站、数据库（待完善）
目录 1.虚拟机的下载与安装 windows镜像 2.xampp下载及配置 3.jdk,jre下载和配置(tomcat需要jdk和jre) 4.建立个人网站 5.主机访问虚拟机服务器网站 6.远程访问 ...
vb 访问远程计算机,vb 怎么访问远程电脑SQL SERVER数据库
一.如果可以直接操作服务器检查步骤如下: 1.确定数据库服务器的服务正常开启. 2.确定数据库的链接数没有满.测试这个,可以在服务器上用查询命令. 1).用SQL语句:select count(*) ...
vb mysql加载控件_VB如何连接ACCESS数据库详解
首先有一点要注意,数据库的使用与我们以往所使用的文本文件不同.例如我们使用文本文件,来记录各种有用的数据.那么大致有以下几步: 读取文件 -- 格式化数据 -- 关闭文件 -- 使用数据如果数据量较 ...
服务器运行数据库失败,无法在服务器上打开 Access 数据库 | Microsoft Docs
尝试打开位于服务器的 Access 数据库时出现"文件已在使用中"错误 2021/5/19 适用于: Access 2010, Microsoft Office Access 20 ...
vb 与 .accdb 格式的access数据库的连接方法
在用vb连接access数据库时,出现了这样的错误: 这是你的数据库格式不被程序识别.vb默认的一般是.,mdb access数据库格式!这时我们看一下我们要连接的是.accdb 格式的. 看一 ...
php .accdb,vb 与 .accdb 格式的access数据库的连接方法
在用vb 连接 access 数据库时,出现了这样的错误: 这是你的数据库式不被程序识别.vb默认的一般是.,mdb access 数据库式!这时我们看一下我们要连接的是.accdb ...
如何通过OPENROWSET函数向SQL Server导入带工作组(mdw)保护的Access数据库数据（转）...
注:找这个解决方法很辛苦,有些笨拙,但还好,可以解决问题.适用于SQL Server 2000 原文出自:如何在链接服务器中使用 SQL Server 7.0 分布式查询来访问受保护的 Access ...
C#DbHelperOleDb,Access数据库帮助类 (转载)
主要功能如下数据访问抽象基础类主要是访问Access数据库主要实现如下功能 1.数据访问基础类(基于OleDb)Access数据库,2.得到最大值:是否存在:是否存在(基于OleDbParamet ...

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

vb怎样访问网络服务器的access数据库相关推荐

最新文章

热门文章