‘这是电脑没有设密码的情况,有密码 那应怎么写?’
Private Sub Command1____Click()
Dim re As New ADODB.Recordset
Dim conn As New ADODB.Connection
mysql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "\192.168.0.180\share" & "\persons.mdb"
conn.Open mysql
re.Open "grade", conn, adOpenKeyset, adLockOptimistic
If re.RecordCount > 0 Then
For i = 1 To re.RecordCount
Combo1.AddItem re.Fields("Number")
re.MoveNext
Next
End If
End Sub
vb 连另一台电脑的数据库,如果另一台电脑设有密码,用户名密码都知道,该怎么写?
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
2条回答 默认 最新
- threenewbee 2019-10-29 17:25关注
用WNetAddConnection2 API函数建立映射
https://baike.baidu.com/item/WNetAddConnection2/9873856?fr=aladdin本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥15 关于#网络安全#的问题:求ensp的网络安全,不要步骤要完成版文件
- ¥15 可否在不同线程中调用封装数据库操作的类
- ¥20 使用Photon PUN2解决游戏得分同步的问题
- ¥15 微带串馈天线阵列每个阵元宽度计算
- ¥15 keil的map文件中Image component sizes各项意思
- ¥20 求个正点原子stm32f407开发版的贪吃蛇游戏
- ¥15 划分vlan后,链路不通了?
- ¥20 求各位懂行的人,注册表能不能看到usb使用得具体信息,干了什么,传输了什么数据
- ¥15 Vue3 大型图片数据拖动排序
- ¥15 Centos / PETGEM