一个关于VB使用ADO方法连接SQL的问题

Question

我想制作一个登录系统(还未完成的)，代码如下：
Private Sub Command1_Click()
Dim con As adodb.Connection
Dim sql As String
Dim rs As adodb.Recordset
Dim ExecuteSQL As New adodb.Recordset
Set con = New adodb.Connection
Set rs = New adodb.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=ice_prince;Initial Catalog=zero;User Id=sa;Password=515712;"
cnn.Open ConnectString
'rs.CursorLocation = adUseClient
If Trim(Text1.Text = "") Then
MsgBox "没有输入用户姓名，请重新输入！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Else
sql = "select * from userinfo where UserID= ' " & Text1.Text & " ' "
rs.Open , Trim$(sql), con, adOpenDynamic, adLockOptimistic
If rs.EOF = True Then
MsgBox "没有这个用户，请重新输入！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
End If
End If
End Sub提示了
CN.ConnectionString = "Provider=sqloledb;Data Source=ice_prince;Initial Catalog=zero;User Id=sa;Password=515712;"
有错误。ice_prince是ODBC中建立的，ZERO是SQL中的数据库名请大家帮帮忙，还有我觉得其他地方也有问题，尤其是在使用rs的地方有点混乱，希望能得到指点！

Answer 1

你建立connectionstring可以先拉一个ADO控件(adodc1)，然后点它的属性，用它的向导配好后自动会生成connectionstring，然后把它copy下来就可以了

Answer 2

1.sql = "select * from userinfo where UserID= ' " & Text1.Text & " ' "
rs.Open Trim$(sql), con, adOpenDynamic, adLockOptimistic(去掉前面的逗号试试)
2.CN.ConnectionString = "Provider=sqloledb;Data Source=ice_prince;Initial Catalog=zero;User Id=sa;Password=515712;"
cnn.Open ConnectString
CN和cnn从哪来？换成con试试。

Answer 3

我把代码改称这样了，但一运行就死机，希望大家再帮帮忙！还有我想问问Rs.Fields(1)是什末？Dim CN   As New ADODB.Connection                
Dim Rs   As New ADODB.Recordset
Dim sql As String
CN.ConnectionString = "Provider=sqloledb;Data Source=ice_prince;Initial Catalog=zero;User Id=sa;Password=515712;"
CN.Open
If Trim(Text1.Text = "") Then
MsgBox "没有输入用户姓名，请重新输入！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Else
sql = "select * from userinfo where UserID= ' " & Text1.Text & " ' "
Rs.Open Trim$(sql), CN, adOpenDynamic, adLockOptimistic
If Rs.EOF = True Then
MsgBox "没有这个用户，请重新输入！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Else
If Trim(Rs.Fields(1)) = Trim(Text2.Text) Then
Rs.Close
Me.Hide
Form2.Show
Else
MsgBox "密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
Text2.Text = ""
Text2.SetFocus
End If
End If
End If

Answer 4

Rs.Fields(1).name是第一个字段的名称
Rs.Fields(1).value是第一个字段的值

Answer 5

Private Sub Command1_Click()
    Dim con As adodb.Connection
    Dim rs As adodb.Recordset
    Dim sql As String    If Trim(Text1.Text = "") Then
        MsgBox "没有输入用户姓名，请重新输入！", vbOKOnly + vbExclamation, "警告"
        Text1.SetFocus
        Exit Sub
    Else
        Set con = New adodb.Connection
        con.Open "Provider=sqloledb;Data Source=ice_prince;Initial Catalog=zero;User Id=sa;Password=515712;"
        sql = "select * from userinfo where UserID= '" & Trim(Text1.Text) & "' "
        Set rs = New adodb.Recordset
        rs.Open sql, con, adOpenDynamic, adLockOptimistic
        If rs.EOF And rs.BOF Then
            MsgBox "没有这个用户，请重新输入！", vbOKOnly + vbExclamation, "警告"
            Text1.SetFocus
            rs.Close
            Set rs = Nothing
            con.Close
            Set cn = Nothing
            Exit Sub
        Else
            rs.Close
            Set rs = Nothing
            con.Close
            Set cn = Nothing
            MsgBox "登陆成功~", vbInformation
            '....登陆成功后的其他操作
        End If
    End If
End Sub

Answer 6

Private Sub Command1_Click()
    Dim con As adodb.Connection
    Dim rs As adodb.Recordset
    Dim sql As String    If Trim(Text1.Text = "") Then
        MsgBox "没有输入用户姓名，请重新输入！", vbOKOnly + vbExclamation, "警告"
        Text1.SetFocus
        Exit Sub
    Else
        Set con = New adodb.Connection
        con.Open "Provider=sqloledb;Data Source=ice_prince;Initial Catalog=zero;User Id=sa;Password=515712;"
        sql = "select * from userinfo where UserID= '" & Trim(Text1.Text) & "' and Password='" & Trim(Text2.Text) &"'"
        Set rs = New adodb.Recordset
        rs.Open sql, con, adOpenDynamic, adLockOptimistic
        If rs.EOF And rs.BOF Then
            MsgBox "没有这个用户，请重新输入！", vbOKOnly + vbExclamation, "警告"
            Text1.SetFocus
            rs.Close
            Set rs = Nothing
            con.Close
            Set cn = Nothing
            Exit Sub
        Else
            rs.Close
            Set rs = Nothing
            con.Close
            Set cn = Nothing
            MsgBox "登陆成功~", vbInformation
            '....登陆成功后的其他操作
        End If
    End If
End Sub

Answer 7

我已经把它改成这样，但一运行还是死机，无论用户名，密码是否正确都死机，望指教
Private Sub Command1_Click()
Dim cn As adodb.Connection
Dim rs As adodb.Recordset
Dim sql As StringIf Trim(Text1.Text = "") Then
   MsgBox "没有输入用户姓名，请重新输入！", vbOKOnly + vbExclamation, "警告"
   Text1.Text = ""
   Text2.Text = ""
   Text1.SetFocus
   Exit Sub
ElseIf Trim(Text2.Text = "") Then
   MsgBox "没有输入用户密码，请重新输入！", vbOKOnly + vbExclamation, "警告"
   Text1.Text = ""
   Text2.Text = ""
   Text1.SetFocus
   Exit Sub
Else
   Set cn = New adodb.Connection
   cn.Open "Provider=sqloledb;Data Source=ice_prince;Initial Catalog=zero;User Id=sa;Password=515712;"
   sql = "select * from userinfo where UserID= '" & Trim(Text1.Text) & "' and UserPWD= '" & Trim(Text2.Text) & "'"
   Set rs = New adodb.Recordset
   rs.Open sql, cn, adOpenDynamic, adLockOptimistic
If rs.EOF And rs.BOF Then
   MsgBox "没有这个用户，请重新输入！", vbOKOnly + vbExclamation, "警告"
   Text1.Text = ""
   Text2.Text = ""
   Text1.SetFocus
   rs.Close
   Set rs = Nothing
   cn.Close
   Set cn = Nothing
   Exit Sub
Else
   rs.Close
   Set rs = Nothing
   cn.Close
   Set cn = Nothing
   Me.Hide
   Form2.Show
End If
End If
End Sub

Answer 8

cn.Open "Provider=SQLOLEDB.1;Data Source=机器名;Initial Catalog=zero;User Id=sa;Password=515712;"