看看下面就该知道怎么用密码了吧Private Sub Form_Load() Con App.Path & "\db1.mdb", "Admin", "", "Microsoft Access Driver (*.mdb)", "Datl" End SubSub Con(路径 As String, 用户名 As String, 口令 As String, SStr As String, 变量 As String) '连接 MDBIf 变量 = "Datl" Then On Error Resume Next datl.Close On Error GoTo Err1 datl.ConnectionTimeout = 2100 datl.Open "DBQ=" & 路径 & ";DefaultDir=;DRIVER={" & SStr & "};" & "Uid=" & 用户名 & ";Pwd=" & 口令 & ";" End If Exit Sub Err1: MsgBox "连接服务器失败!请检查网络的连接是否正确" End Sub
2、一般客户端确有必要保存数据时都会选用其它数据库,如ACCESS,不可能一个考勤机上还要安装一个SQL SERVER 吧
楼上的说的很清楚
vb+access足以解决
1、但用ACCESS设置密码后,在VB中怎样调用呢?
2、在VB中考勤客户机的ACCESS数据该怎用备份呢?
1、但用ACCESS设置密码后,在VB中怎样调用呢?
2、在VB中考勤客户机的ACCESS数据该怎用备份呢?(我的ACCESS数据库正在使用中,我用filecopy备份出现错误"实时错误‘70’--拒绝的权限")
Con App.Path & "\db1.mdb", "Admin", "", "Microsoft Access Driver (*.mdb)", "Datl"
End SubSub Con(路径 As String, 用户名 As String, 口令 As String, SStr As String, 变量 As String)
'连接 MDBIf 变量 = "Datl" Then
On Error Resume Next
datl.Close
On Error GoTo Err1
datl.ConnectionTimeout = 2100
datl.Open "DBQ=" & 路径 & ";DefaultDir=;DRIVER={" & SStr & "};" & "Uid=" & 用户名 & ";Pwd=" & 口令 & ";"
End If
Exit Sub
Err1:
MsgBox "连接服务器失败!请检查网络的连接是否正确"
End Sub
具体你自己查一下DAO360的帮助文件