大家谁知道VB怎么写一个自动安装ODBC的程序呢？我们现在要装越来越多的ODBC，一个个客户地装越来越麻烦了，有没有一个EXE，一运行，全好

Question

谢谢

Answer 1

给你一个例子，仅供参考
在VB中创建用户DSN
Option Explicit'首先添加引用 Microsoft Remote Data Object 2.0Sub RegisterDataSource()
    Dim strAttribs As String
    
    '建造关键字字符串。
    'C:\myfile\myexample.l.mdb数据库文件名（包含路径）
    strAttribs = "SourceDB = C:\" _
    & Chr$(13) & "SourceType = DBF" _
    & Chr$(13) & "Description = aa" _
    & Chr$(13) & "Collate = Machine" _
    & Chr$(13) & "BackgroundFetch = Yes" _
    & Chr$(13) & "Deleted = Yes" _
    & Chr$(13) & "Exclusive = No" _
    & Chr$(13) & "Null=Yes" _
    & Chr$(13) & "SetNoCountOn = No"
'建立新的注册的 DSN。
    rdoEngine.rdoRegisterDataSource "test", "Microsoft Visual Foxpro Driver", True, strAttribs
End SubPrivate Sub Command1_Click()
    Call RegisterDataSource
End Sub

Answer 2

看看这个有没有用,我做过ODBC注册不过函数名忘了
rdoRegisterDataSource