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
    评论
风越.net代码生成器 [FireCode Creator] 是一款采用.Net FrameWork2.0框架、基于多种数据库的程序代码生成软件,可快速建立数据信息的:添加、编辑、查看、列表、搜索功能。默认提供asp、aspx WEB程序、.net普通三层框架程序、.net Windows程序,多种代码框架及多个界面设计模板,均可任意修改管理。通过自定义生成程序的界面风格与输出代码,用户可将其扩展为ASPX/ASP/PHP/JSP等各种程序的代码生成器。内置的.net代码框架,能建立C#语言的.net解决方案,可在VS2005直接编辑,既能帮助.net初学者快速入门,更可最大限度提高.net程序员的代码编写效率。 01、支持生成的ASPX/ASP/PHP/JSP等页面在本机自动发布、调试(需安装IIS或对应WEB服务器) 02、支持Microsoft SQL Server、Microsoft Access、Oracle、MySql、Excel、FoxPro、FoxBase、Text等数据库连接 03、支持从数据表、视图(Access为查询读取数据字段 04、支持通过数据表的组合主键传递参数 05、支持CSS统一设置页面风格 06、支持多种控件输入方式: 文本框 文本域 UBB文本框(支持UBB文本输入) 密码框 隐藏域 日期选择 单选框 复选框 下拉框 多选列表 单选列表 批量上载 上载文件 上载到库 07、支持多种信息显示方式: 显示文字 链接文件 文本框 文本域 显示图片 背景声音 视频播放 显示flash 08、支持检测提交字符的最小、最大输入长度、是否空/唯一、文本类型:★ 不检测 非特殊字符 仅单词字符 仅单词字符空格 仅26个字母 仅文字符 仅允许整数 仅允许小数 仅日期/时间 仅日期+时间 仅日期 仅时间 仅允许邮箱 仅允许网址 仅允许IP 仅身份证号 仅国内电话 仅国内手机 09、支持对用户输入内容进行服务器端与客户端JS双重验证,有效防止SQL注入 ★ 10、支持自动生成多组多级的级联下拉框功能,快速建立如:省、市、县/公司、部门、小组等形式下拉框 ★ 11、支持表单提交超过100KB的文本数据 ★ 12、支持多文件上载、修改、删除记录时同步删除文件 13、支持控件名加密,使输入控件的名称与字段名不同,防止他人从客户端HTML猜解 ★ 14、支持列表、搜索页面对数据记录进行实时排序、修改、批量删除等功能 15、支持表头/单独表格搜索两种布局方式 16、提供多种灵活翻页方案,用户可设置每页记录条数、上/下页、前/后N页、输入数字跳转到指定页面等,提高海量数据翻页速度 17、提供丰富的建站常用VB、JS函数库 ★ 18、更多扩展功能: 添加、修改页面在保存信息前进行预览功能 添加、修改页面提交后自动跳转并刷新列表页 字段描述批量格式化,可从字段名、描述生成,加强英文字符处理 列表、搜索页面隔行颜色、点击变色设置 根据数据库字段允许空状态自动设置输入检测代码 页面皮肤模板设置,根据网页模板快速生成页面 ★ 设置指定字段在编辑信息时为只读状态 字段需要二次输入(如输入两次密码,以验证其正确性) ★ 在列表直接批量编辑字段,便于管理员维护 列表、搜索文件自动读取链接数据表的实际信息 发送邮件功能,设置字段为邮件对应信息,可发送附件 ★ (繁、简、英)单语言版本 ★ 多语言页面实时翻译功能(默认:繁、简、英,可增加其它语言) ★ 多语言编码支持(GB2312/UTF8) ★ 生成提交校验码图片 ★ 搜索、列表文件以详细列表页(留言板风格)显示 生成权限,限制用户对指定页面的添加、删除、编辑权 将查询结果导出为CSV、HTML、EXCEL文件 ★ 生成不同选择字段的SQL语句 生成数据库字典 ★ 模板代码生成器,可自定义模板、变量生成代码 ★
好的,下面是一个示例代码,它演示了如何在 VB.NET 通过按钮单击事件连接 SQL 数据库查询数据并在 DataGridView 控件显示结果: ```vb.net Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click ' 获取文本框 Dim searchValue As String = txtSearch.Text ' 创建连接字符串 Dim connString As String = "Server=myServerAddress;Database=myDataBase;User Id=myUsername;Password=myPassword;" ' 创建 SQL 查询语句 Dim sql As String = "SELECT * FROM myTable WHERE myField = @searchValue" ' 创建连接对象和命令对象 Using conn As New SqlConnection(connString), _ cmd As New SqlCommand(sql, conn) ' 添加查询参数 cmd.Parameters.AddWithValue("@searchValue", searchValue) ' 创建数据适配器和数据表对象 Using adapter As New SqlDataAdapter(cmd), _ table As New DataTable() ' 填充数据表 adapter.Fill(table) ' 将数据表绑定到 DataGridView 控件 dataGridView1.DataSource = table End Using End Using End Sub ``` 在这个示例代码,我们首先获取了文本框,然后创建了连接字符串和 SQL 查询语句。接着,我们使用 `Using` 语句创建了连接对象、命令对象、数据适配器和数据表对象,然后将查询参数添加到命令对象。最后,我们使用数据适配器的 `Fill` 方法将查询结果填充到数据表,并将数据表绑定到 DataGridView 控件。 你需要根据实际情况修改连接字符串、SQL 查询语句、文本框和 DataGridView 控件的名称。

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

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

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值