vs2017中,建立VB.NET方案。两个文本框中输入用户名、密码,到SQL表中查询用户名和密码列是否有对应数据。文本框中要是输入数字的符号,可以执行,但要是输入汉字的用户名,就返回转换错误。请高人指导。代码如下:
Imports System.Data.SqlClient
Public Class Form1
Public conn1 As SqlConnection = New SqlConnection("server=.;Initial catalog=登录用户信息;User id=sa;PWD=123")
Dim myselectquery As String = "select * from 用户登录'"
Dim mycommand As New SqlCommand(myselectquery, conn1) '建立一个command控件,conn是你的sqlconnection对象
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a As Object, b As Object
a = Me.TextBox1.Text
b = Me.TextBox2.Text
DataSet.COLUMNNAME
conn1.Open() '打开数据连接
Dim myselectquery As String = "select * from 用户登录 where name=" + a + "And psword=" + b
Dim mycommand As New SqlCommand(myselectquery, conn1) '建立一个command控件,conn是你的sqlconnection对象
Dim myreader As SqlDataReader '定义一个reader用来读数据
myreader = mycommand.ExecuteReader() '运行你的查询,结果到myreader
If myreader.Read() Then '如果查到了数据
MsgBox("欢迎您使用本系统!")
Else
MsgBox("你是非法用户,请离开。")
End If
conn1.Close()
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub BindingSource1_CurrentChanged(sender As Object, e As EventArgs)
End Sub
End Class