vb.net 怎么在对数据库操作的函数中,添加根据需求变化的有关数据库操作的函数?

vb.net 怎么在函数中加入需要声明SqlCommand() 的函数

Imports System.Data.SqlClient
Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
    Dim objCommand As SqlCommand = New SqlCommand()
    objCommand.Connection = objConnection
    objCommand.Parameters.AddWithValue("@用户名", txt用户名.Text)
    objCommand.Parameters.AddWithValue("@项目编号", txt项目编号.Text)
'以下是需要替代的代码
    objCommand.Parameters.AddWithValue("@设备类型1", “1”)
    objCommand.Parameters.AddWithValue("@设备类型2", “1”)
'------------------------
            objCommand.CommandText = "Update 项目报备更新提醒 Set 用户名=@用户名,设备类型1=@设备类型1,设备类型2=@设备类型2  where  项目编号=@项目编号;"
        If objConnection.State = ConnectionState.Open Then
        Else
            objConnection.Open()
        End If
        objCommand.ExecuteNonQuery()
        objConnection.Close()
End Sub

———————————————————

    objCommand.Parameters.AddWithValue("@设备类型1",“1”)
    objCommand.Parameters.AddWithValue("@设备类型2", “1”)

这部分代码是几个函数共用的,且可能随着需求点变化,增加或减少,例如变为

    objCommand.Parameters.AddWithValue("@设备类型1", “1”)
    objCommand.Parameters.AddWithValue("@设备类型2", “1”)
    objCommand.Parameters.AddWithValue("@设备类型3", “1”)
    objCommand.Parameters.AddWithValue("@设备类型4", “1”)

有什么办法可以做到这点?

…………

尝试了在函数中添加 testit() ,不起作用

Private Sub testit()
    Dim objCommand As New SqlCommand()
    objCommand.Parameters.AddWithValue("@设备类型1", “1”)
    objCommand.Parameters.AddWithValue("@设备类型2", “1”)
    objCommand.Parameters.AddWithValue("@设备类型3", “1”)
    objCommand.Parameters.AddWithValue("@设备类型4", “1”)
End Sub

1个回答

Imports System.Data.SqlClient

poilkren
风起_翔 谢谢!我没表述清楚,问题已更新,麻烦您看下。
11 个月之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问