showgood.aspx.vb

这是一个商务管理体系

        "述 = @描述, 备注 = @备注 WHERE (id = @Original_id) AND (价格 = @Original_价格) AND (名称 = @O" & _
        "riginal_名称) AND (备注 = @Original_备注 OR @Original_备注 IS NULL AND 备注 IS NULL) AND (" & _
        "库存数量 = @Original_库存数量) AND (描述 = @Original_描述 OR @Original_描述 IS NULL AND 描述 IS " & _
        "NULL) AND (种类 = @Original_种类) AND (规格 = @Original_规格); SELECT id, 名称, 种类, 规格, 库存" & _
        "数量, 价格, 描述, 备注 FROM 商品信息 WHERE (id = @id)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.Int, 4, "id"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@名称", System.Data.SqlDbType.VarChar, 20, "名称"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@种类", System.Data.SqlDbType.VarChar, 10, "种类"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@规格", System.Data.SqlDbType.VarChar, 20, "规格"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@库存数量", System.Data.SqlDbType.Int, 4, "库存数量"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@价格", System.Data.SqlDbType.Money, 8, "价格"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@描述", System.Data.SqlDbType.VarChar, 50, "描述"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@备注", System.Data.SqlDbType.VarChar, 50, "备注"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_id", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "id", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_价格", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "价格", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_名称", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "名称", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_备注", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "备注", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_库存数量", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "库存数量", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_描述", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "描述", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_种类", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "种类", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_规格", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "规格", System.Data.DataRowVersion.Original, Nothing))

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        '得到商品的id
        sid = Request.QueryString("sid")
        '生成标题
        Label1.Text = "物品详细信息（ID=" + sid + "）"
        'myrow是DataReader
        Dim myrow As SqlClient.SqlDataReader
        'nsql是SQL语句
        Dim nsql As String = "Select * from 商品信息  where id=" + sid
        'ncomm是SQL命令
        Dim ncomm As New SqlClient.SqlCommand()
        '打开数据库
        SqlConnection1.Open()
        '指定连接属性
        ncomm.Connection = SqlConnection1
        ncomm.CommandText = nsql
        '读出指定商品记录
        myrow = ncomm.ExecuteReader
        myrow.Read()
        '填充Textbox
        TextBox1.Text = myrow.Item(0)
        TextBox2.Text = myrow.Item(1)
        TextBox3.Text = myrow.Item(2)
        TextBox5.Text = myrow.Item(3)
        TextBox6.Text = myrow.Item(4)
        TextBox7.Text = myrow.Item(5)
        TextBox8.Text = myrow.Item(6)
        TextBox9.Text = myrow.Item(8)
        '关闭DataReader和数据库连接
        myrow.Close()
        SqlConnection1.Close()
        '打开图片程序段
        '调用ADO方法，Adoconn是ADO数据库连接，m是数据流，rs是记录
        Dim adoConn As ADODB.Connection = New ADODB.Connection()
        Dim m As New ADODB.Stream()
        Dim rs As ADODB.Recordset = New ADODB.Recordset()
        '释放Image占用的资源
        Image1.Dispose()
        Image1 = Nothing
        '打开数据库
        adoConn.Open("dsn=Shangwu;uid=sa;pwd=lovess;")
        '选择记录
        rs.Open("SELECT * FROM 商品信息 where id=" + sid, adoConn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
        '指定数据流方式
        m.Type = ADODB.StreamTypeEnum.adTypeBinary
        '打开数据流并且写入图片信息
        m.Open()
        m.Write(rs.Fields("图片").Value)
        '数据流内容存盘,注意一定要存在开设www服务的目录下面
        m.SaveToFile("E:\inetpub\wwwroot\Shangwu\ff.bmp", ADODB.SaveOptionsEnum.adSaveCreateOverWrite)
        '关闭记录和连接
        rs.Close()
        adoConn.Close()
    End Sub

    '购买按钮事件
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '转向cart.aspx
        Response.Redirect("cart.aspx?sid=" + sid)
    End Sub
End Class