SqlParameter对象的应用

  Dim para1() As SqlParameter = {New SqlParameter("@ISBN", SqlDbType.NChar, 18), New SqlParameter("@bookname", SqlDbType.NVarChar, 50), New SqlParameter("@categoryId", SqlDbType.NChar, 15), New SqlParameter("@jinjia", SqlDbType.Money), New SqlParameter("@price", SqlDbType.Money), New SqlParameter("@kucun", SqlDbType.Int), New SqlParameter("@picture", SqlDbType.NVarChar, 50), New SqlParameter("@jianjie", SqlDbType.NVarChar, 50), New SqlParameter("@zuozhe", SqlDbType.NChar, 10), New SqlParameter("@chubanshe", SqlDbType.NChar, 50), New SqlParameter("@chubantime", SqlDbType.DateTime)}‘定义SqlParameter对象

 

 

 para1(0).Value = TextBox1.Text
        para1(1).Value = TextBox2.Text
        para1(2).Value = TextBox3.Text
        para1(3).Value = TextBox4.Text
        para1(4).Value = TextBox5.Text
        para1(5).Value = TextBox6.Text
        para1(6).Value = TextBox7.Text
        para1(7).Value = TextBox8.Text
        para1(8).Value = TextBox9.Text
        para1(9).Value = TextBox10.Text
        para1(10).Value = TextBox11.Text
        Label13.Text = sdb.Exec_procedure("sql语句", para1)

 

 

 Public Function Exec_sql(ByVal strsql As String, ByVal para() As SqlParameter) As String
        conn.Close()
        conn.Open()
        Dim cmd As OdbcCommand = New OdbcCommand(strsql, conn)
        For Each p As SqlParameter In para
            cmd.Parameters.Add(p)
        Next
        Try
            cmd.ExecuteNonQuery()
            Return "成功"
        Catch ex As Exception
            Return "失败"
        End Try

    End Function