使用代码刷新链接表
时 间:2004-11-19 00:00:00
作 者:黄海 ID:32 城市:苏州
摘 要:使用代码刷新链接表
正 文:
Private Sub c_connect_Click()
Err = 0
On Error Resume Next
Dim wrkODBC As Workspace
Dim conPubs As Connection
Dim mydb As Database, mytable As TableDef
Dim I As Integer, j As Integer
Dim connectstr As String
DoCmd.Hourglass True
DoCmd.SetWarnings False
Set mydb = DBEngine.Workspaces(0).Databases(0)
Dim passdb As String, ww As Integer
Dim f As Integer, g As Integer
passdb="pass"
connectstr = "ODBC;DSN=" & Me.dsn & ";"
connectstr = connectstr & "UID=" & Me.dbuser_id & ";"
connectstr = connectstr & "PWD=" & passdb & ";"
'connectstr = connectstr & "PWD=" & Me.dbpass_id & ";"
Set wrkODBC = CreateWorkspace("NewODBCWorkspace", "", "", dbUseODBC)
Set conPubs = wrkODBC.OpenConnection("sam_user", dbDriverNoPrompt, , connectstr)
If Err <> 0 Then GoTo dbuser_sam_err
On Error GoTo dbuser_conn_err
I = mydb.TableDefs.count 'tables count
For j = 0 To I - 1
Set mytable = mydb.TableDefs(j)
If mytable.Attributes = DB_ATTACHEDODBC Or mytable.Attributes = DB_ATTACHEDODBC + DB_ATTACHSAVEPWD Then
mytable.connect = connectstr
mytable.RefreshLink
End If
Next
On Error Resume Next
DoCmd.Hourglass False
MsgBox "数据表连接完成!", , "天鸣"
Err = 0
Exit Sub
dbuser_sam_err:
DoCmd.Hourglass False
MsgBox "数据库用户,口令错误,重新登录!", , "天鸣"
Err = 0
Exit Sub
dbuser_conn_err:
DoCmd.Hourglass False
MsgBox Error$(Err), 16, "天鸣"
Err = 0
Exit Sub
End Sub
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)