管理信息系统课程设计人事档案管理(19)

ID=sa;Initial Catalog=canteen;Data Source=Me数据库" Dim con As New OleDb.OleDbConnection(constr) con.Open()

Dim sqlcmd As String = "select * from 管理员登录where 管理员代码=" & TextBox1.Text.Trim Dim cmd As New OleDb.OleDbCommand(sqlcmd, con) Dim reader As OleDb.OleDbDataReader reader = cmd.ExecuteReader If reader.Read = True Then

user_id = reader(0).ToString.Trim psw = reader(1).ToString.Trim End If reader.Close() con.Close()