|
我想指定连接到局域网共享的后台数据库date.mdb,请问是在下面的代码上改吗?要怎么改,谢谢指教!!
Public Function AutoLinkData() As Boolean
On Error GoTo Err_AutoLinkData
Dim intI As Integer
Dim strFileName As String
Dim strPassword As String
Dim clsGuage As New clsProcessBar
strFileName = GetDbSetting("DataFileName", "")
If Not strFileName Like "[A-z]:*" Then strFileName = CurrentProject.Path & "\" & strFileName
strPassword = GetDbSetting("DataFilePassword", "1234")
'先以设置值中保存的路径名进行链接
If LinkData(strFileName, strPassword) Then
AutoLinkData = True
Else
'如果未链接成功,则搜索当前目录 |
|