主题:帮个小忙,解决一个小问题。
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 ......
怎么判断共打开访谈录的个数,若为多条记录怎么移动数据库指针,怎么返回一个记录中的一个特定字段的值?
谢谢了
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 ......
怎么判断共打开访谈录的个数,若为多条记录怎么移动数据库指针,怎么返回一个记录中的一个特定字段的值?
谢谢了