回 帖 发 新 帖 刷新版面

主题:帮个小忙,解决一个小问题。

Dim cnn As New System.Data.OleDb.OleDbConnection
        Dim cmd As New System.Data.OleDb.OleDbCommand
        Dim Sql As String
        Sql = "select count(*) from yh where name='" & TextBox1.Text & "' and pswd='" & TextBox2.Text & "'"
        cnn.ConnectionString = Pro
        cmd.Connection = cnn
        cmd.CommandText = Sql
        cnn.Open()
        cmd.ExecuteNonQuery()
        If cmd.ExecuteScalar = 1 Then
            MsgBox("登录成功!", 48, "成功")
        Else
            MsgBox("你输入的用户名或密码错误,请核对后重新输入!", 16, "失败")
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox1.Focus()
            cnn.Close()
            Exit Sub
        End If

在上面是判断用户输入的用户名及密码是不是正解的,若是正确的怎么获得该用户在数据库中的其他信息。
若将SQL语句修改为 select * from ...... 
怎么判断共打开访谈录的个数,若为多条记录怎么移动数据库指针,怎么返回一个记录中的一个特定字段的值?
谢谢了

回复列表 (共1个回复)

沙发

利用DataReader对象返回记录集,DataReader的read()方法读取当前行,并使指针移动到下一行,如上面的
OleDbDataReader dr = cmd.ExecuteReader()
if dr.read() then
....
end if

我来回复

您尚未登录,请登录后再回复。点此登录或注册