Scribd
Upload
28 views1 page

Modificar

The document declares variables to store an image from a PictureBox, convert it to a byte array, and pass it as a parameter to a stored procedure called "modificar" along with text from TextBoxes. It executes the stored procedure to update a database table and refreshes a DataGridView with updated data.

Uploaded by

Dante Hernandez Espinoza
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
28 views1 page

Modificar

The document declares variables to store an image from a PictureBox, convert it to a byte array, and pass it as a parameter to a stored procedure called "modificar" along with text from TextBoxes. It executes the stored procedure to update a database table and refreshes a DataGridView with updated data.

Uploaded by

Dante Hernandez Espinoza
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 1

Try

Dim ms As New MemoryStream


PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
Dim arrImage() As Byte = ms.GetBuffer
Dim cm4 As New SqlCommand
cm4.CommandType = CommandType.StoredProcedure
cm4.CommandText = "modificar"
cm4.Connection = cn
Dim prr1 As New SqlParameter("@codcat", SqlDbType.Char)
Dim prr2 As New SqlParameter("@nomcat", SqlDbType.VarChar)
Dim prr3 As New SqlParameter("@descat", SqlDbType.VarChar)
Dim prr4 As New SqlParameter("@censura",
SqlDbType.VarChar)
Dim prr5 As New SqlParameter("@imagencat",
SqlDbType.Image)

prr1.Value = TextBox1.Text
prr2.Value = TextBox2.Text
prr3.Value = TextBox3.Text
prr4.Value = TextBox4.Text
prr5.Value = arrImage

cm4.Parameters.Add(prr1)
cm4.Parameters.Add(prr2)
cm4.Parameters.Add(prr3)
cm4.Parameters.Add(prr4)
cm4.Parameters.Add(prr5)

cm4.ExecuteNonQuery()
'DataGridView1.DataSource = Nothing
dt.Clear()
Dim da1 As New SqlDataAdapter("select * from categoria",
cn)
Dim dt1 As New DataTable
da1.Fill(dt1)
Me.DataGridView1.DataSource = dt1
Catch ex As Exception
MsgBox(ex.Message)
Finally

End Try

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy