请问如何使用VB代码创建一个与SQL SERVER数据库的ODBC数据连接？

bitcat 2001-12-20 01:33:35

使得不用在WINDOWS的控制面板上建立了！

...全文

347 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

bitcat 2001-12-21

打赏
举报

已经解决，谢谢，不过我用的是微软网站提供的原码

iamluodong 2001-12-21

打赏
举报

使用Rdo
Rdo有一个RdoEngine对象，此对象有有rdoRegisterDataSource方法，使用的时候请引用
Microsoft Remote Data Object 2.0 libary
rdoRegisterDataSource方法的使用入下

RdoRegisterDataSource [Dsn],[Driver String]

ferrytang 2001-12-21

打赏
举报

查msdn看看吧！

lihonggen0 2001-12-21

打赏
举报

Public adoCN As New ADODB.Connection '定义数据库的连接存放数据和代码
Dim adoDateTime As New ADODB.Recordset '获取 NT-SERVER 时间
'***********************************************************************
'* 功能：与 SQL SERVER 数据库建立连接并取出服务器时间
'***********************************************************************
Public Function OpenConnection() As String '打开数据库
On Error GoTo SQLConErr
With adoCN
.CursorLocation = adUseClient
.Provider = "sqloledb"
.Properties("Data Source").Value = cNtServerName
.Properties("Initial Catalog").Value = cDatabaseName
.Properties("User ID") = cSQLUserName
.Properties("Password") = cSQLPassword
.Properties("prompt") = adPromptNever
.ConnectionTimeout = 15
.Open

If .State = adStateOpen Then
adoDateTime.Open "select getdate()", adoCN, adOpenStatic, adLockOptimistic
cServerDate = Format(adoDateTime(0), "yyyy-mm-dd")
cServertime = Mid(adoDateTime(0), 10)
Else
MsgBox "数据库连接失败，请找系统管理员进行检查！", 16, cProgramName
End
End If
End With

SqlCommand.ActiveConnection = adoCN
SqlCommand.CommandType = adCmdText
Exit Function
SQLConErr:
Select Case Err.Number
Case -2147467259
MsgBox "找不到指定的SQL Server服务器或者数据库不存在，请重新设置！", vbExclamation
F_SetSystem.Show 1
Case -2147217843
MsgBox "指定的SQL Server数据库用户不存在或口令错误，请重新设置！", vbExclamation
F_SetSystem.Show 1
Case Else
MsgBox "数据环境连接失败，请找系统管理员进行检查！", 16, cProgramName
End Select
OpenConnection
End Function

bitcat 2001-12-20

打赏
举报

to smartdx:
如果能在VB中建立ODBC中的用户的SQL SERVER DSN ，我会给分的！但是要调试无误！谢了！

bitcat 2001-12-20

打赏
举报

to ferrey:
老兄，我是要想创建一个DSN，不是用代码连接ODBC呀！已知是用什么API了，但是具体参数好象不是很清析如何使用！

smartdx 2001-12-20

打赏
举报

给分吗？：）

使用ODBC数据源手工建立一个系统DSN连接名称为“TEST"
察看注册表项：
HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\TEST 下个各个值

然后照着直接网注册表里加就行了

ferrytang 2001-12-20

打赏
举报

Public Sub ProviderX()

Dim cnn1 As ADODB.Connection
Dim cnn2 As ADODB.Connection
Dim cnn3 As ADODB.Connection

' 使用 Microsoft ODBC 提供者打开连接。
Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "driver={SQL Server};" & _
"server=bigsmile;uid=sa;pwd=pwd"
cnn1.Open strCnn
cnn1.DefaultDatabase = "pubs"

' 显示提供者。
MsgBox "Cnn1 provider: " & cnn1.Provider

' 使用 Microsoft Jet 提供者打开连接。
Set cnn2 = New ADODB.Connection
cnn2.Provider = "Microsoft.Jet.OLEDB.3.51"
cnn2.Open "C:\Samples\northwind.mdb", "admin", ""

' 显示提供者。
MsgBox "Cnn2 provider: " & cnn2.Provider

' 使用 Microsoft SQL 服务器提供者打开连接。
Set cnn3 = New ADODB.Connection
cnn3.Provider = "sqloledb"
cnn3.Open "Data Source=srv;Initial Catalog=pubs;", "sa", ""

' 显示提供者。
MsgBox "Cnn3 provider: " & cnn3.Provider

cnn1.Close
cnn2.Close
cnn3.Close

End Sub

lazymouse 2001-12-20