vb2005中简单的三层结构例子

最新推荐文章于 2025-08-07 14:59:42 发布

原创最新推荐文章于 2025-08-07 14:59:42 发布 · 410 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #string #sql #function #integer #insert

本文介绍了一个用于执行SQL语句的函数ExecuteNoSQL，并提供了两种重载形式：一种无参数，另一种接受参数数组。此外，还展示了如何在用户界面代码中调用此函数来插入数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在新建的类代码中写下面代码

Public Function ExecuteNoSQL(ByVal Sql As String) As String
        Dim con As SqlConnection
        Dim com As SqlCommand
        con = New SqlConnection(GetConn)
        con.Open()
        com = New SqlCommand(Sql, con)
        Return com.ExecuteNonQuery
        con.Close()
        com.Dispose()
    End Function
    Public Function ExecuteNoSQL(ByVal sql As String, ByVal parameter() As SqlParameter) As String
        Dim con As SqlConnection
        Dim com As SqlCommand
        Dim i, j As Integer
        j = parameter.Length - 1
        con = New SqlConnection(GetConn)
        con.Open()
        com = New SqlCommand(sql, con)
        For i = 1 To j
            com.Parameters.Add(parameter(i))
        Next
        Return com.ExecuteNonQuery
        con.Close()
        com.Dispose()
    End Function

对ExecuteNosql进行重载,第一个是不带参数的执行,根据SQL语句返回受影响的行数,第二个是带参数的,patameter数据下标应从1开始使用,返回受影响的行数.

在普通的用户界面代码中写下面代码

Dim addQx(3) As SqlParameter
Dim sql As String
Dim jc As String = ""

addQx(1) = New SqlParameter("@yhid", SqlDbType.VarChar)
  addQx(1).Value = yhid
  addQx(2) = New SqlParameter("@yhmc", SqlDbType.VarChar)
  addQx(2).Value = yhmc
  addQx(3) = New SqlParameter("@yhmm", SqlDbType.VarChar)
  addQx(3).Value = pass

sql = " insert into 用户信息 (用户id,名称,密码,状态) values (@yhid,@yhmc,@yhmm,'未审核') "

jc = Trim(ks.ExecuteNoSQL(sql, addQx))

好了,到此就可以使用了