Dim str As String 'Data Source=主机地址 Initial Catalog=数据库
str = "Data Source=HC\SQLEXPRESS;Initial Catalog=Student;Integrated Security=True" 'windows身份验证方式
Dim con As New SqlConnection(str)
con.Open() '打开数据库
Dim sql As String = "SELECT * from user_info where user_ID='" & TextBox1.Text.ToString().Trim() & "'and user_PWD='" & TextBox2.Text.ToString().Trim() & "'and user_Des='" & ComboBox1.Text.ToString().Trim() & "'"
Dim cmd As New SqlCommand(sql, con) '下达SQL命令
Dim reader As SqlDataReader '创建SqlDataReader的对象,DataReader从数据库中读取对象
reader = cmd.ExecuteReader 'DataReader对象赋值给对象Reader(读取表中的数据)
If reader.Read() = True Then 'Reader()方法,读取正常(找到数据),否则值为False
main.Label1.Text = Me.ComboBox1.Text.ToString.Trim '窗体中 label 的内容传递
main.Show() '显示 mian窗口
Main.Text = "学生成绩管理系统--用户:" & TextBox1.Text & "--权限:" & ComboBox1.Text 'main 中 Text显示内容.
Me.Close()
Else
MsgBox("登录失败,请检查用户名,密码,及登录权限是否正确")
End If
------解决方案-------------------- VB的话,新建一个模块。
C#新建一个类: static class DBHelper { public static string ConnectionStr = ... public static DataSet ExecuteSQL(string sql) { ... } }
------解决方案--------------------