麻烦各位看一下，这是我自己写的代码，为什么连接数据库老有问题
麻烦各位看一下，这是我自己写的代码，为什么连接数据库老有问题Dim str As String
Dim rst As New ADODB.Recordset
Dim cn As New ADODB.Connection
Private Sub Command1_Click()
Dim conlogin As New ADODB.Connection
Dim rstlogin As New ADODB.Recordset
If Len(Trim(txtUserId.Text)) = 0 Then
MsgBox "用户账号为空，请重新输入！！", vbOKOnly
Exit Sub
End If
If Len(Trim(txtUserName.Text)) = 0 Then
MsgBox "用户姓名为空，请重新输入！！", vbOKOnly
Exit Sub
End If
If Len(Trim(txtUserPsw.Text)) = 0 Then
MsgBox "用户密码为空，请重新输入！！", vbOKOnly
End If
With conlogin
If .State = adStateOpen Then
.Close
End If
.Provider = "SQLOLEDB.1"
.ConnectionString = "User ID=sa;Password=xczhang;Initial Catalog=GaoSuGL;Data Source="
.Open
End With
End Sub
Private Sub txtUserName_Click()
str = "select * from UserLogin where UserId= '" & Text & "' "
Adodc1.RecordSource = str
Adodc1.Refresh
End Sub
小弟不胜感激！ --------------------编程问答-------------------- .ConnectionString = "User ID=sa;Password=xczhang;Initial Catalog=GaoSuGL;Data Source=计算机名或IP地址"
--------------------编程问答--------------------
多谢前辈，我试一下。 --------------------编程问答-------------------- Dim conlogin As New ADODB.Connection
Dim rstlogin As New ADODB.Recordset
定义的局部变量，当函数退出的时候，就背卸载了，command1事件上做了一件什么意义都没有的事情，可以将这两句删除，直接使用模块变量cn和rs
txtUserName_Click中使用了adodc控件，和你几个过程中定义的连接或记录集没有任何关系，不知道你adodc控件中是否指定了连接？一般，如果使用adodc就不要使用代码定义连接， --------------------编程问答-------------------- 连接字符串不完整 --------------------编程问答--------------------
多谢，我好好看下。 --------------------编程问答--------------------
哦，多谢。 --------------------编程问答-------------------- 最最最最简单的方法:
1: 添加Adodc控件
2: 用这控件联数据库
3: 查看控件的"连接字符串"
啥也不用记. 复制好连接字符串就可以把控件给扔了. --------------------编程问答-------------------- 用 adodc 控件 动态数据源 简单一点
补充：VB , 资源
