Office中国论坛/Access中国论坛

标题: 关于自动连接SQL数据库的一个方法 [打印本页]

作者: zzcjp 时间: 2009-3-6 17:36
标题: 关于自动连接SQL数据库的一个方法
本帖最后由 zzcjp 于 2009-3-6 17:47 编辑

新建一个数据源文件：采购订单.dsn,在数据源文件中配置：你的sql服务器IP，例如192.168.1.55；设置数据库名，例如“采购订单”，设置用户ID:sa；设置登录密码：sa

建立一个新的模块，将以下代码复制黏贴到模块中：
'================================
Public Function CheckLinks() As Boolean
Dim DB As Database
Dim tbl As TableDef
Dim a As String
Dim b As String
Dim d As String
Dim dns As String
Set DB = CurrentDb
a = "sa" '数据库用户
b = "sa" '数据库口令
d = "采购订单" '数据库名称
dns = "FILEDSN=采购订单.dsn;UID=" & a & "

WD=" & b & ";WSID=;DATABASE=" & d & ";Network=DBMSSOCN"
For Each tbl In DB.TableDefs

   If tbl.Attributes = 536870912 Then
         tbl.Connect = dns
         tbl.Attributes = dbAttachSavePWD
         tbl.RefreshLink
      End If
Next
DoCmd.OpenForm "SY_系统登录"'你的登录窗口名称
End Function
’==================================
然后建立一个“宏”

'------------------------------------------------------------
' autoexec
'
'------------------------------------------------------------
Function autoexec()
On Error GoTo autoexec_Err
Call CheckLinks

autoexec_Exit:
Exit Function
autoexec_Err:
MsgBox Error$
Resume autoexec_Exit
End Function
‘=========================
宏操作：RunCode
函数名称：CheckLinks ()
宏名：autoexec

这个宏名是access默认名，access启动时会自动查找这个宏，找到后自动执行。
ok，自动连接SQL数据库完成。

作者: goldowl 时间: 2009-6-3 12:52
Thanks a lot.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)