VS中VB.NET 如何查询文本框中的值在SQL数据库中是否存在

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

  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值