当前位置:首页 » 密码管理 » vb局域网访问

vb局域网访问

发布时间: 2022-09-01 09:35:17

⑴ VB访问局域网中的数据库

如果你是新手,就在VB的部件中添加ADO控件,然后点击控件,按鼠标右键,点击属性,在属性页中选择“生成”,选择你要访问的数据类型,最后就会出现“数据库连接属性”,服务器的名称可以用名或IP,填好数据库访问密码,选择好数据库。填好之后点击“测试连接”看连接是否成功。确定后返回属性页,记录源选择“2”,再选好一个表。完成。
你还可以在完成后添加一个datagrid的控件,将datasource设定为上述的ADO控件,这样就可以看到数据库内容了。在了解这个数据操作的基础上再将ADO的内容转为语句。当然,你如果有一定的数据库操作基础,ADO是很容易上手的。

⑵ 在vb中怎样打开局域网中有密码共享的文件夹

1,点击任务栏右下角的网络图标,然后打开网络和共享中心.
2,网络和共享中心中:点击左侧的更改高级共享设置按钮.
3,打开的窗口,修改密码保护的共享,选择关闭密码保护共享.
4,然后打开电脑的控制面板。在控制面板中打开管理工具.
5,管理工具:点击打开这里的本地安全策略.
6,本地策略的安全选项:确保这里的来宾账户状态是启用状态。
7,在管理工具中打开计算机管理。
8,计算机管理的本地用户和组中点击用户右侧的GUEST来宾双击。
9,Guest属性窗口中如图进行设置修改。

10,在guest来宾账户上单击鼠标右键,然后选择设置密码
11,设置密码窗口中,这里什么也不要输入,然后点击确定。
通常这样就取消了共享文件访问密码。

⑶ VB 中何为写访问局域网电脑语句

Shell 函数

执行一个可执行文件,返回一个 Variant (Double),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。
语法
Shell(pathname[,windowstyle])

⑷ 怎么样实现局域网里VB程序对SQL的访问

你需要检查两个地方:
1。客户机上是否安装的有VB的行库和支持文件。
这个问题你可以看程序是否崩溃,从崩溃的提示上查找对应的所需文件或库。
2。客户机和服务器的网络设置是否正常
--首先检查你的代码,是否把服务器的IP地址填写正确
--在客户端PING一下服务器,看是否能PING通。(除非服务器端防火墙禁PING)
--检查一下服务器端的防火墙,看是否打开了SQL的默认1433端口。
-----------基本这些就能解决您的问题了。

另外建议你把代码里这个函数的“错误处理”On Error GoTo strerrmag 这句先注释掉再重新编译,这样程序运行错误是,你会得到更多的错误提示,便于查找问题所在。

此分我接,在线等你回复

⑸ VB中,访问局域网中的ACCESS数据库,并可以进行操作

链接字符串的
source直接指定file://xxxxx/xxx.mdb
此文件必须设为可读写共享
注意:
access
不推荐使用lan共享ado访问,非常容易造成数据文件损坏。

⑹ vb局域网访问

我想你肯定有服务器S上的管理员用户名和口令,这样你就可以先调用API建立一个IPC连接,然后你就能访问这台机器上的资源了。
在你的工程中增加一个模块,该模块代码如下:

Option Explicit
'=====================================说明======================================
'funIpcConn(资源名,用户名,口令)建立连接
'funIpcDisConn(资源名)断开连接
'引用:操作系统自带的库文件 mpr.dll

'=============================自定义常量========================================
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程序,如何加密访问局域网的文件(局域网共享,但只能通过程序访问资料)

VB写个FTP浏览器,密码和路径加密处理。应该可以实现了。

⑻ VB中如何判断局域网中某个共享能够访问

最简单的方法是用 on error resume next 忽略错误,简单快捷。先判断反而效率不高,因为检测共享是否存在是需要等待目标电脑反馈的,这个需要时间。实在想判断,可以用cmd命令中的net view,或者只检测是否开机用ping

⑼ VB6.0能访问远程数据库吗(局域网互联)

可以,把局域网的文件夹共享(并设置为允许读写),就可以了。
数据库路径在网上邻居那里复制。或者在客户端用ACCESS链接表的方式直接引用存放数据的服务端上的表。
不过这样做的安全性和效率如何,没研究过。
用SQL做一个数据库服务器最好啦。

热点内容
随机启动脚本 发布:2025-07-05 16:10:30 浏览:511
微博数据库设计 发布:2025-07-05 15:30:55 浏览:14
linux485 发布:2025-07-05 14:38:28 浏览:296
php用的软件 发布:2025-07-05 14:06:22 浏览:747
没有权限访问计算机 发布:2025-07-05 13:29:11 浏览:421
javaweb开发教程视频教程 发布:2025-07-05 13:24:41 浏览:671
康师傅控流脚本破解 发布:2025-07-05 13:17:27 浏览:229
java的开发流程 发布:2025-07-05 12:45:11 浏览:672
怎么看内存卡配置 发布:2025-07-05 12:29:19 浏览:273
访问学者英文个人简历 发布:2025-07-05 12:29:17 浏览:823