使用vb6从oracle数据库检索数据时不返回任何结果，请帮我找出错误

Question

当我检查结果集时。记录计数它返回-1并且在检查recordset.EOF时它返回true，因此结果集不包含任何值。

Dim con As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strSQL

Private Sub cmd_login_Click()
    Dim pass As String
    con.ConnectionString = "Provider=msdaora;Data Source=localhost;User Id=ams;Password=krishnan;"
    con.Open
    strSQL = "Select passwrd from ams.login_details where username = 'Admin'"
    rs.Open strSQL, con
    If Not (rs.EOF) Then    
        If rs("passwrd") = txt_pass.Text Then
            MsgBox rs("passwrd")
        End If
    End If
    rs.Close
    con.Close
End Sub

Answer 1

我忘了提交Oracle Sql Developer中的语句，这就是为什么不从数据库中获取数据的原因，当我执行commit语句时，它工作正常。