有偿求代码，如何在VBA中自动增加ODBC项？

cnwang

联系：0756-6655634

zhengjialon

没仔细看过，可能有帮助：
http://www.office-cn.net/bbs/dispbbs.asp?boardID=2&RootID=17967&ID=17967

[此贴子已经被zhengjialon于2003-1-2 12:38:41编辑过]

cnwang

google帮我忙，搞掂：

Private Const ODBC_ADD_SYS_DSN = 4
Private Declare Function SQLConfigDataSource Lib "odbccp32.dll" (ByVal hwndParent As Long, ByVal fRequest As Long, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Long

Public Function newodbc(StrDriver, StrAttributes As String) As Boolean
    LoadDbSource2 = SQLConfigDataSource(0&, ODBC_ADD_SYS_DSN, StrDriver, StrAttributes)
End Function

Public Sub newodbc1()
    Dim StrAttributes As String
    StrAttributes = "DSN=newODBC" & Chr(0) & "Desciption=newodbc" & Chr(0)
    StrAttributes = StrAttributes & "Dbq=" & CurrentProject.Path & "\colorset.mdb" & Chr(0) & "FIL=MS Access;" & Chr(0)
    StrAttributes = StrAttributes & "MaxBufferSize=2048" & Chr(0) & "ageTimeout=5" & Chr(0)

    newodbc "Microsoft Access Driver (*.mdb)", StrAttributes
    msgbox "cnwang,又省了一笔银子。。。"
End Sub

jhzlzc29

可否解释一下？
我实在看不明白