Public Function UpdateDepartment(ByVal departmentId As String, ByVal departmentName As String, ByVal departmentDescription As String)
Dim connection As New SqlConnection(connectionString)
Dim command As New SqlCommand("UpdateDepartment", connection)
command.CommandType = CommandType.StoredProcedure
command.Parameters.Add("@DepartmentID", SqlDbType.Int, 4)
command.Parameters("@DepartmentID").Value = departmentId
command.Parameters.Add("@DepartmentName", SqlDbType.VarChar, 50)
command.Parameters("@DepartmentName").Value = departmentName
command.Parameters.Add("@DepartmentDescription", SqlDbType.VarChar, 200)
command.Parameters("@DepartmentDescription").Value = departmentDescription
connection.Open()
command.ExecuteNonQuery()
connection.Close()
End Function
dim strConn as string="你的数据库连接字符串"
dim sqlConn as new sqlconnection(strconn)
dim sqlCom as new sqlcommand("存储过程名",sqlconn)
sqlcom.commandtype=commandtype.storedprocedure
command.parameters.add("@存储过程参数1",参数类型).value="要设置的值"
......
command.parameters.add("@存储过程参数n",参数类型).value="要设置的值"
dim sqlReader as sqldatareader=sqlcom.executereader
if sqlreader.read then
' 获取返回的值
end if
' 略,自己看书或msdn