Access 2007 代码刷新ODBC链接表的求解问题

李军华　发表于：2015-04-21 10:25:48 　

Private Sub Form_Load()
relink
End Sub
Function relink()
Dim db As Database
Dim tbl As TableDef
Dim a As String
Dim b As String
Dim d As String
a = "sa" '数据库用户
b = "1" '数据库口令
d = "Materials" '数据库名称
Set db = CurrentDb
For Each tbl In db.TableDefs
If tbl.Attributes = 536870912 Then
tbl.Connect = "FILEDSN=MaterialsSource.dsn;UID=" & a _
              & ";PWD=" & b & ";WSID=JBSERVER;DATABASE=" & d & ";Network=DBMSSOCN"
tbl.Attributes = AttachSavePWD
tbl.RefreshLink
End If
Next

	End Function



	这是在其他帖子上查到的代码修改后的代码，搞不懂

Top

竹笛发表于：2015-04-21 13:22:43

tbl.Connect = "FILEDSN=MaterialsSource.dsn;UID=" & a _
              & ";PWD=" & b & ";WSID=JBSERVER;DATABASE=" & d & ";Network=DBMSSOCN"

'改为：
'写上DSN文件的正确路径，假定DSN文件在D盘abc文件夹中，则写法如下：
tbl.Connect = "FILEDSN=d:\abc\MaterialsSource.dsn;UID=" & a _
              & ";PWD=" & b & ";WSID=JBSERVER;DATABASE=" & d & ";Network=DBMSSOCN"

试试看

Top

李军华发表于：2015-05-04 09:20:31

其实我是想要相对路径，在CSDN上找到答案：currentproject.path & "\file.dsn"

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

Access 2007 代码刷新ODBC链接表的求解问题