VB.NET与 sql数据库

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了VB.NET与 sql数据库，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含5061字，纯文字阅读大概需要8分钟。

内容图文

       不同的语言，因为各自的语法特点。对sql数据库的连接操作有些小差别。但有一点，那就是。对sql数据库的操作语句sql语句大体是一样的。

       这段时间正进行VB.NET的学习，说实话，在最開始的时候，确实会感觉到比較难下手。在此之前，学习的是C#。从C#到VB.NET，弯不大。但有点急。现将一些VB.NET中sql数据库的增、删、改、查总结一下。方便自己以后查询，也为刚接触VB.NET的朋友提供小小參考。

对于这些语句。就是一个熟练过程，很多其它的是运用而不是记忆。以下看看VB.NET实现增删改查的整个过程及相应实例。

查寻数据：SELECT  返回的记录1、记录2、记录3……[或*]  FROM  表名  WHERE 字段名 =’ ”变量名” ’ 

插入数据：INSERT  INTO 表名 (字段名1，字段名2。字段名3……） Values(@字段名1，@字段名2，@字段名3……) 

更新数据：UPDATA  表名  SET <字段名1=參数名1>  <， 字段名2=參数名2> <， ……> WHERE  <条件1>  <，条件2>  <，条件2>

删除数据：DELETE  FROM  <表名>  WHERE  < 条件>

相应一些实例

（1）查找数据

（採用：拼接字符串法）

    Function selectLogon(ByVal User As Entity.LogonEntity) As Entity.LogonEntity
        Dim cmd_Logon As New SqlCommand                                   '实例化一个命令对象
        Dim sqlconnection_Logon = New SqlConnection(DbUtil.sqlConcectStr) '实例化带条件的一个数据库连接对象
        cmd_Logon.Connection = sqlconnection_Logon                        '创建连接命令
        sqlconnection_Logon.Open()                                        '运行连接。将数据库打开

        '建立查询语句
        cmd_Logon.CommandText = "SELECT * FROM T_Logon WHERE CardID = '" & User.CardID & "' "

        Dim reader As SqlClient.SqlDataReader                             '建立读数据对象
        reader = cmd_Logon.ExecuteReader                                  '对象逐条读

        Dim users As New Entity.LogonEntity
        While (reader.Read())                                             '循环读数据
            If users Is Nothing Then
                users = New Entity.LogonEntity
            End If
            users.ID = reader.GetValue(reader.GetOrdinal("UserID"))       '读取数据，赋给新实体
            users.CardID = reader.GetValue(reader.GetOrdinal("CardID"))
            users.UserName = reader.GetValue(reader.GetOrdinal("UserName"))
            users.Sex = reader.GetValue(reader.GetOrdinal("Sex"))
            users.Department = reader.GetValue(reader.GetOrdinal("Department"))
            users.Grade = reader.GetValue(reader.GetOrdinal("Grade"))
            users.InCash = reader.GetValue(reader.GetOrdinal("InCash"))

        End While
        sqlconnection_Logon.Close()
        Return users
    End Function

（2）插入数据

（採用：參数法）

    Function InsertUp_Doing(ByVal User As Entity.MainEntity) As Boolean
        Dim cmd_insert_updoing As New SqlCommand
        Dim sqlconnection_updoing As New SqlConnection(DbUtil.sqlConcectStr)

        cmd_insert_updoing.Connection = sqlconnection_updoing

        '插入语句
        cmd_insert_updoing.CommandText = "INSERT INTO T_Updoing (CardID) Values(@CardID)"

        '參数法
        cmd_insert_updoing.Parameters.Add(New SqlParameter("@CardID", User.CardID))

        sqlconnection_updoing.Open()
        cmd_insert_updoing.ExecuteNonQuery()

        sqlconnection_updoing.Close()

        Return True
    End Function

（3）更新数据

（採用：拼接字符串 法）

    Function update_updown(ByVal User As Entity.MainEntity) As Boolean
        Dim OK_NO_updown As Boolean

        Dim cmd_update_updown As New SqlCommand
        Dim sqlconnection_updown As New SqlConnection(DbUtil.sqlConcectStr)

        '依据“学号”、“状态”条件更新
        cmd_update_updown.Connection = sqlconnection_updown
        cmd_update_updown.CommandText = "UPDATE T_UpDown " & _
            "SET Downdatetime = @Downdatetime , Downtime = @Downtime , Consumetime = @Consumetime" & _
            " , ConsumeCash = @ConsumeCash , Remaincash = @Remaincash " & _
            "WHERE CardID = '" & User.CardID & "'"
        cmd_update_updown.CommandType = CommandType.Text
        sqlconnection_updown.Open()                                 '打开连接
        '加入參数
        cmd_update_updown.Parameters.Add(New SqlParameter("@Downdatetime", User.Downdatetime))
        cmd_update_updown.Parameters.Add(New SqlParameter("@Downtime", User.Downtime))
        cmd_update_updown.Parameters.Add(New SqlParameter("@Consumetime", User.Timeconsume))
        cmd_update_updown.Parameters.Add(New SqlParameter("@ConsumeCash", User.Cashconsume))
        cmd_update_updown.Parameters.Add(New SqlParameter("@Remaincash", User.Cashremain))

        cmd_update_updown.ExecuteNonQuery()
        sqlconnection_updown.Close()

        Return OK_NO_updown = True
    End Function

（4）删除数据

（採用：拼接字符串法[CardID =‘ " & User.CardID & " ‘ ]）

    Function deleteUp_doing(ByVal User As Entity.MainEntity) As Boolean
        Dim OK_NO_down As Boolean

        Dim cmd_delete_updoing As New SqlCommand
        Dim sqlconnection_delectupdoing As New SqlConnection(DbUtil.sqlConcectStr)
        sqlconnection_delectupdoing.Open()
        cmd_delete_updoing.Connection = sqlconnection_delectupdoing

        cmd_delete_updoing.CommandText = "DELETE FROM T_Updoing WHERE CardID ='" & User.CardID & "'"

        cmd_delete_updoing.ExecuteNonQuery()

        sqlconnection_delectupdoing.Close()

        Return OK_NO_down = True

    End Function

       在VB.NET中，与我之前使用一年前使用VB相比，多了用參数法。查了一些资料，告知，用參数法能降低错误的产生，增强安全性。

       上面的代码中，传參採用的是传实体的方式。在VB.NET中，与实体代码更具自己主动性，与C#中实体相比，这也体现了一定的优越性。

VB.NET与 sql数据库

标签：end   语言   nbsp   连接   ndt   ade   datetime   function   rtu   

本文系统来源：http://www.cnblogs.com/gavanwanggw/p/7298466.html

内容总结

以上是互联网集市为您收集整理的VB.NET与 sql数据库全部内容，希望文章能够帮你解决VB.NET与 sql数据库所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---