如何用编程方式建立和设置odbc

[czh918]

[Wingsun]

VB中由一个例子叫VisiData，在MSDN98\98VS\2052\Samples\VB98\visdata下，里面有一个Form叫frmODBCLogon。里面有关于ODBC驱动的操作。你可以看一看。

[Un1]

http://expert.csdn.net/Topic/3511.shtm

[TopHead]

写注册表：

文件DSN：

在HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources下新建一字串值，这个就是ODBC的名字，然后在HKEY_CURRENT_USER\Software\ODBC\ODBC.INI主键下以刚才的名字新建一项设置DSN，具体可参照里面的其他设置，很容易。

系统DSN:
在HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources下新建一字串值，这个就是ODBC的名字，然后在HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI主键下以刚才的名字新建一项设置DSN，设置同上。

文件DSN：
在HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\ODBC File DSN下新建一字串值。

以上在程序中实现的话需要一组操作注册表的函数，如果你没有的话，我乐意效劳发给你：）

[czq]

是不是 在程序中 建立odbc的数据源 哪有办法
vb中的数据访问对象都可以
你看这个例子吧: (注册sql server )

Dim strAttribs As String
strAttribs = "Description=" _
& "" _
& Chr$(13) & "OemToAnsi=No" _
& Chr$(13) & "SERVER=" & sServer _
& Chr$(13) & "Network=DBNMPNTW" _
& Chr$(13) & "Database=manage" _
& Chr$(13) & "Address=(默认)"

'建立新的注册的 DSN。
rdoEngine.rdoRegisterDataSource "datasourceName", _
"SQL Server", True, strAttribs
反正就是这些东西啦 你可以看帮助完成的

[zhangShunsheng]

'创建新的注册的 Access DSN
'环境要求：引用 DAO 3.51 Object library
Function CreateAccessDsn(ByVal strDSN As String, ByVal FullDBFileName As String) As Boolean
On Error GoTo Myerror
Dim strAttributes As String
' 建造关键字字符串。Access DSN
strAttributes = "Dbq=" & FullDBFileName & _
vbCr & "Description= "
'建立新的注册的 Access DSN。
DBEngine.RegisterDatabase strDSN, "Microsoft Access Driver (*.mdb)", True, strAttributes
CreateAccessDsn = True
Exit Function
Myerror:
CreateAccessDsn = False
End Function

[playyuer]

法1:
引用(Reference) (大概叫) ODBCTools 的 ActiveX Dll (简单易用)
法2:
在 VB6的 帮 助 微 软 的 Knowledge Base的 文 章：
“Q171146 HOWTO: Create and Remove a DSN in Visual Basic ” 。