ADO.NET Insert command function

最新推荐文章于 2019-04-10 12:00:59 发布

zhangxiao86

最新推荐文章于 2019-04-10 12:00:59 发布

阅读量412

点赞数

CC 4.0 BY-SA版权

分类专栏： 4pm work summary SQL/LINQ 文章标签： function insert command string integer input

本文链接：https://blog.youkuaiyun.com/zhangxiao86/article/details/7585941

4pm work summary 同时被 2 个专栏收录

42 篇文章

订阅专栏

SQL/LINQ

13 篇文章

订阅专栏

本文介绍了一个用于非新建房产项目的宣传册信息插入功能的实现细节。该功能通过 SQL 命令将房产列表ID、规格、位置等信息存入数据库，并确保了数据的有效性和完整性。

    '===========================================================
    '===========================================================
    ' Function: gInsertPropBrochure_others
    ' Purpose: Optional Insert for Non-newDevelopment Property
    '============================================================
    Public Shared Function gInsertPropBrochure_others(ByVal iList As Integer, _
                                               ByVal sSpecification As String, _
                                               ByVal sLocation As String, _
                                               ByVal sAmenities As String, _
                                               ByVal sParking As String, _
                                               ByVal sManagement As String, _
                                               ByVal sService As String) As Integer
        'Open connection
        Dim objConn As SqlConnection = openDBConnection()

        Dim strSQL As String = "INSERT INTO PropBrochure (idList, Specification, Location, Amenities, Parking, Management, Services) VALUES(@idList, @Specification, @Location, @Amenities, @Parking, @Management, @Services)"
        Dim objCmd As SqlCommand = New SqlCommand(strSQL, objConn)

        'Input Params
        objCmd.Parameters.Add("@idList", SqlDbType.Int).Value = iList
        objCmd.Parameters.Add("@Specification", SqlDbType.VarChar, 2000).Value = sSpecification
        objCmd.Parameters.Add("@Location", SqlDbType.VarChar, 1000).Value = sLocation
        objCmd.Parameters.Add("@Amenities", SqlDbType.VarChar, 2000).Value = sAmenities
        objCmd.Parameters.Add("@Parking", SqlDbType.VarChar, 1000).Value = sParking
        objCmd.Parameters.Add("@Management", SqlDbType.VarChar, 1000).Value = sManagement
        objCmd.Parameters.Add("@Services", SqlDbType.VarChar, 100).Value = sService

        objCmd.ExecuteNonQuery()
        'Clean up
        objCmd.Dispose()
        closeDBConnection(objConn)

        Return 0
    End Function