文章详情

短信预约-IT技能 免费直播动态提醒

请输入下面的图形验证码

提交验证

短信预约提醒成功

VB.NET修改数据存在多个txtbox时SQL语句的操作是怎样的

2024-04-02 19:55

关注

今天就跟大家聊聊有关VB.NET修改数据存在多个txtbox时SQL语句的操作是怎样的,可能很多人都不太了解,为了让大家更加了解,小编给大家总结了以下内容,希望大家根据这篇文章可以有所收获。

VB.NET修改数据存在多个txtbox时,SQL语句的操作
1. 一个Button1的text为查询和一个DataGridView1,点击查询按钮的代码
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strConn = "Data Source=192.168.1.110/orcl;User ID=test;Password=orcl"
        Dim dbcmd As OracleCommand
        Dim dt = New DataTable("ds")
        Dim dbConnection As OracleConnection
        Try
            dbConnection = New OracleConnection(strConn)
            dbConnection.Open()
            dbcmd = dbConnection.CreateCommand
            dbcmd.CommandText = "select * from student"
            Dim da As OracleDataAdapter = New OracleDataAdapter(dbcmd)
            da.Fill(dt)
            DataGridView1.DataSource = dt '这时候可以把dt的值直接赋值给DataGridview1控件
        Catch ex As Exception
            MsgBox("查询数据库出错")
        End Try
    End Sub

2.存在两个TextBox1.TextBox2,文本框和一个按钮, Button2,按钮text为修改,点击后的代码
  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim username, password As String
        Dim temp, temp3 As String
        If Len(TextBox1.Text.Trim) <> 0 Then
            username = "sname=" + "'" + TextBox1.Text.Trim + "'" + " , "
        Else
            username = ""
        End If
        If Len(TextBox2.Text.Trim) <> 0 Then
            password = "spwd=" + "'" + TextBox2.Text.Trim + "'" + " , "
        Else
            password = ""
        End If
        If Len(username) <> 0 And Len(password) <> 0 Then
            temp = username + password
            MsgBox(temp.Length)
            temp = Mid(temp, 1, temp.Length - 3)
            MsgBox("temp" + temp)
            MsgBox("current" + DataGridView1.CurrentRow.Cells(1).Value)
        Else
  
         temp = ""
        End If
       
        Dim strConn = "Data Source=192.168.1.110/orcl;User ID=test;Password=orcl"
        Dim dbcmd As OracleCommand
        Dim dbConnection As OracleConnection
        'If username.Length = 0 And password = 0 Then
        Try
            dbConnection = New OracleConnection(strConn)
            dbConnection.Open()
            dbcmd = dbConnection.CreateCommand
            Dim temp2 As String
            temp2 = "update student set " + temp + "  where sname=" + "'" + DataGridView1.CurrentRow.Cells(1).Value + "'"
            dbcmd.CommandText = temp2
            MsgBox(temp2)
            'dbConnection.BeginTransaction()
            dbcmd.ExecuteNonQuery() '返回改动的row行数
        Catch ex As Exception
            MsgBox("修改失败")
            Exit Sub
        End Try
        ' Else
        '    MsgBox("请填入要修改的参数")
        'End If
    End Sub

看完上述内容,你们对VB.NET修改数据存在多个txtbox时SQL语句的操作是怎样的有进一步的了解吗?如果还想了解更多知识或者相关内容,请关注亿速云行业资讯频道,感谢大家的支持。

阅读原文内容投诉

免责声明:

① 本站未注明“稿件来源”的信息均来自网络整理。其文字、图片和音视频稿件的所属权归原作者所有。本站收集整理出于非商业性的教育和科研之目的,并不意味着本站赞同其观点或证实其内容的真实性。仅作为临时的测试数据,供内部测试之用。本站并未授权任何人以任何方式主动获取本站任何信息。

② 本站未注明“稿件来源”的临时测试数据将在测试完成后最终做删除处理。有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341

软考中级精品资料免费领

  • 历年真题答案解析
  • 备考技巧名师总结
  • 高频考点精准押题
  • 2024年上半年信息系统项目管理师第二批次真题及答案解析(完整版)

    难度     807人已做
    查看
  • 【考后总结】2024年5月26日信息系统项目管理师第2批次考情分析

    难度     351人已做
    查看
  • 【考后总结】2024年5月25日信息系统项目管理师第1批次考情分析

    难度     314人已做
    查看
  • 2024年上半年软考高项第一、二批次真题考点汇总(完整版)

    难度     433人已做
    查看
  • 2024年上半年系统架构设计师考试综合知识真题

    难度     221人已做
    查看

相关文章

发现更多好内容

猜你喜欢

AI推送时光机
位置:首页-资讯-数据库
咦!没有更多了?去看看其它编程学习网 内容吧
首页课程
资料下载
问答资讯