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