Visual Basic - ayuda con picture box

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 22
Ha aumentado su posición en 397 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ayuda con picture box

Publicado por pablo (24 intervenciones) el 19/09/2017 20:24:22
Buenas tardes

les hago una consulta , me pidieron en un programa que tengo que se puedan agregar imagenes y ahi esta el problema, logre agregar las imagenes a la base en acces, pero ahora solo me permite agregar un solo producto y al cargar el segundo tira el siguiente erro: "los cambios realizados en la tabla no se realizaron correctamentes porque crearina valores duplicados en el indice, clave principal etc "

este es el codigo que use para el agreado de imagens, si se les ocuure algo les agradeceria .Saludos

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Dim ms As New IO.MemoryStream
PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
Dim i() As Byte = ms.GetBuffer
 
 
cmd.CommandType = CommandType.Text
cmd.Connection = conexionstock
 
sql = "INSERT INTO STOCK (ID,PRODUCTO,CANTIDAD,PRECIOSINIVA,PRECIOFINAL,IVA,PRECIOCONIVA,MARCA,PROVEEDOR,IMAGEN) "
sql += "VALUES (@ID,@PRODUCTO,@CANTIDAD,@PRECIOSINIVA,@PRECIOFINAL,@IVA,@PRECIOCONIVA,@MARCA,@PROVEEDOR,@IMAGEN)"
 
cmd.CommandText = sql
 
 
With cmd
    .Parameters.Add("@ID", OleDb.OleDbType.VarChar).Value = TextBox9.Text
    .Parameters.Add("@PRODUCTO", OleDb.OleDbType.VarChar).Value = TextBox1.Text
    .Parameters.Add("@CANTIDAD", OleDb.OleDbType.VarChar).Value = TextBox2.Text
    .Parameters.Add("@PRECIOSINIVA", OleDb.OleDbType.VarChar).Value = TextBox3.Text
    .Parameters.Add("@PRECIOFINAL", OleDb.OleDbType.VarChar).Value = TextBox5.Text
    .Parameters.Add("@IVA", OleDb.OleDbType.VarChar).Value = TextBox4.Text
    .Parameters.Add("@PRECIOCONIVA", OleDb.OleDbType.VarChar).Value = TextBox8.Text
    .Parameters.Add("@MARCA", OleDb.OleDbType.VarChar).Value = TextBox6.Text
    .Parameters.Add("@PROVEEDOR", OleDb.OleDbType.VarChar).Value = TextBox7.Text
    .Parameters.Add("@IMAGEN", OleDb.OleDbType.VarBinary).Value = ms.GetBuffer
 
End With
Try
    cmd.ExecuteNonQuery() '
    MsgBox("REGISTRO GUARDADO", MsgBoxStyle.Information, "Ingreso Correcto")
 
Catch ex As Exception
    MsgBox(ex.ToString)
 
    If ex.ToString.Contains("VALORES DUPLICADOS") Then
        MsgBox("EL REGISTRO YA EXISTE")
    Else
        MsgBox(ex.ToString)
 
    End If
End Try
 
Me.TextBox1.Text = ""
Me.TextBox9.Text = ""
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
Me.TextBox5.Text = ""
Me.TextBox8.Text = ""
Me.TextBox4.Text = ""
Me.TextBox6.Text = ""
Me.TextBox7.Text = ""
Me.PictureBox1.Image = Nothing
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.728
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ayuda con picture box

Publicado por Andres Leonardo (1525 intervenciones) el 19/09/2017 23:20:25
es por uqe estas relacionando una imagen al producto si lo adicionas la clave ya existiria.. deberias crear un autonumerico a fin de que rompa la clave

el tema no es programacion es el diseño de la base


SAludos
Andres
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 22
Ha aumentado su posición en 397 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ayuda con picture box

Publicado por pablo (24 intervenciones) el 20/09/2017 00:17:53
Muchas gracias.

El tema es que ahora me duplica los datos, al hacer el primer ingreso de datos, se limpian los campos , hago el siguiente ingreso y me guarda lo mismo que la primera vez. Perdon por molestar tanto.racias

Desde ya muchas g
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 22
Ha aumentado su posición en 397 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ayuda con picture box

Publicado por pablo (24 intervenciones) el 21/09/2017 22:46:16
Solucionado, muchas gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar