5

vb 连另一台电脑的数据库,如果另一台电脑设有密码,用户名密码都知道,该怎么写?

‘这是电脑没有设密码的情况,有密码 那应怎么写?’
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


查看全部
Java81883
lostfalling
2019/10/29 17:14
  • visual studio
  • 点赞
  • 收藏
  • 回答
    私信
满意答案
查看全部

2个回复