UC知道求VB与SQL的数据连接
来源：百度知道 编辑：UC知道 时间：2024/06/24 14:32:31
我的代码设计如下：
Public Function exesql(ByVal sql As String) As ADODB.Recordset
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
sql = Trim$(sql)
Set conn = New ADODB.Connection
Set rsr = New ADODB.Recordset
conn.ConnectionString = "Driver={SQL Server};Server=MICROSOFT01;UID=sa;PWD=;Database=BShop;"
'DNS=BShop
conn.Open
Set rst.ActiveConnection = conn
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.Open sql
Set exesql = rst
Set rst = Nothing
Set conn = Nothing
End Function
数据库为名字：BShop
Public Function exesql(ByVal sql As String) As ADODB.Recordset
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
sql = Trim$(sql)
Set conn = New ADODB.Connection
Set rsr = New ADODB.Recordset
conn.ConnectionString = "Driver={SQL Server};Server=MICROSOFT01;UID=sa;PWD=;Database=BShop;"
'DNS=BShop
conn.Open
Set rst.ActiveConnection = conn
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.Open sql
Set exesql = rst
Set rst = Nothing
Set conn = Nothing
End Function
数据库为名字：BShop
几种可能吧：
1.SQL Server服务器没有启动，比如安装在别的机器上，看看别的机器是否已经启动，联网是否正常，服务是否启动等。
2.连接字符串有问题，检查一下服务器的名字，登录的用户名和密码。
你可以先不用VB连接，先使用客户端软件连接，看能否正常连接，如果能的话，一般是连接字符串的问题或权限问题。
详细解答：http://hi.baidu.com/jonesvale/blog/
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.Sql
Public Class DataBase
Private cnn As SqlConnection
'objConnectionSqlStr = "server = " & ipAddress & ";database =" & databaseName & " Data;UID =" & user & " ;Pwd =" & password & ";max pool size = 500"
objConnectionSqlStr = "server =" & ipAddress & ";integrated security = SSPI ;database =" & databaseName
'打开数据库连接 strCnn:连接字符串
Public Sub Open(ByVal strCnn As String)
cnn = New SqlConnection(strCnn)
If cnn.State = C