UC知道vb+sql的数据库连接语句
来源：百度知道 编辑：UC知道 时间：2024/05/22 00:05:35
Public Sub DBConnect()
'如果连接标记为真，表明数据库已连接，则直接返回
If IsConnect = True Then
Exit Sub
End If
'关键字New用于创建新对象cnn
Set cnn = New ADODB.Connection
'设置连接字符串的ConnectionString属性
cnn.ConnectionString = CONSTR
'打开到数据库的连接
cnn.Open
'判断连接状态
If cnn.State <> adStateOpen Then
'如果连接不成功，则显示提示信息，退出程序
MsgBox "数据库连接失败", vbOKOnly + vbCritical, "连接失败"
End
End If
'设置连接标记，表示已经连接到数据库
IsConnect = True
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
错误出现在cnn.Open这句
不知道是不是我的语句有问题，哪位前辈能指点一下，或者告知正确的vb连接sql的语句
小弟在弄毕业设计，蛮急的，谢谢各位前辈告知，谢谢了～
'如果连接标记为真，表明数据库已连接，则直接返回
If IsConnect = True Then
Exit Sub
End If
'关键字New用于创建新对象cnn
Set cnn = New ADODB.Connection
'设置连接字符串的ConnectionString属性
cnn.ConnectionString = CONSTR
'打开到数据库的连接
cnn.Open
'判断连接状态
If cnn.State <> adStateOpen Then
'如果连接不成功，则显示提示信息，退出程序
MsgBox "数据库连接失败", vbOKOnly + vbCritical, "连接失败"
End
End If
'设置连接标记，表示已经连接到数据库
IsConnect = True
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
错误出现在cnn.Open这句
不知道是不是我的语句有问题，哪位前辈能指点一下，或者告知正确的vb连接sql的语句
小弟在弄毕业设计，蛮急的，谢谢各位前辈告知，谢谢了～
'设置连接字符串的ConnectionString属性
cnn.ConnectionString = CONSTR
上面这句中的变量CONSTR应该为数据库的地址 检查下是否正确
以下是我以前一个程序中连接数据库的函数 拿去自己研究吧
Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset
Dim mycon As ADODB.Connection
Dim rst As ADODB.Recordset
Set mycon = New ADODB.Connection
mycon.ConnectionString = connstring
mycon.Open
Dim stokens() As String
On Error GoTo exectuesql_error
stokens = Split(sql)
If InStr("INSER,DELETE,UPDATE", UCase(stokens(0))) Then
mycon.Execute sql
Else
Set rst = New ADODB.Recordset
rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic
Set ExecuteSQL = rst
End If
exectuesql_exit:
Set rst = Nothing
Set mycon = Nothing
Exit Function
exectuesql_error:
Resume exectuesql_exit
End Function