UC知道vb中连接SQL数据库的代码问题
来源：百度知道 编辑：UC知道 时间：2024/07/13 04:19:17
在运行时，代码Cnn.Open总是出错，我想问问这段连接数据库的代码怎么解释，还有我建的数据库名为Bag,库名需要在哪里写！这里的cnn是什么？是库名吗？？
我是新手，谢谢各位了！！！~~~
Private IsConnect As Boolean
Private Connect_Num As Integer
Private cnn As ADODB.Connection
Private rs As ADODB.Recordset
Private Sub Connect()
If IsConnect = True Then
Exit Sub
End If
Set cnn = New ADODB.Connection
cnn.ConnectionString = Conn
cnn.Open
If cnn.State <> adStateOpen Then
MsgBox "数据库连接失败"
End
End If
IsConnect = True
End Sub
我想知道到在哪里写库名！~~谢谢
我是新手，谢谢各位了！！！~~~
Private IsConnect As Boolean
Private Connect_Num As Integer
Private cnn As ADODB.Connection
Private rs As ADODB.Recordset
Private Sub Connect()
If IsConnect = True Then
Exit Sub
End If
Set cnn = New ADODB.Connection
cnn.ConnectionString = Conn
cnn.Open
If cnn.State <> adStateOpen Then
MsgBox "数据库连接失败"
End
End If
IsConnect = True
End Sub
我想知道到在哪里写库名！~~谢谢
给你个例子参考下
-----------------------
Public Con0 As New ADODB.Connection
Public rec0 As New ADODB.Recordset
Public com0 As New ADODB.Command
Con0.Open "Provider=SQLOLEDB.1;Password=2752;Persist Security Info=False;User ID=sa;Initial Catalog=sample;Data Source=10.170.0.110"
rec0.CursorLocation = adUseClient
strsql1 = "select Nm from SAutoH order by 'Nm'"
rec0.Open strsql1, Con0, adOpenKeyset, adLockPessimistic
If Not rec0.EOF = True Then
Set Me.DataCombo1.RowSource = rec0
Me.DataCombo1.ListField = rec0.Fields("Nm").Name
End If