Visual Basic.NET - EDITAR REGISTROS

 
Vista:
sin imagen de perfil
Val: 10
Ha disminuido su posición en 59 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

EDITAR REGISTROS

Publicado por JOSE ANGEL (13 intervenciones) el 28/03/2019 22:23:58
ASESORIA PARA ACTUALIZAR REGISTRO: TENGO PROBLEMA PARA ACTUALIZAR REGISTROS, ESTE ES MI CÓDIGO

''empieza a actualizar por modulos

''Guarda datos de formulacion de color
1
2
3
4
5
6
7
8
9
10
11
12
13
14
For i = 0 To FcoloR11.GCOLORP.RowCount - 1
    rst.Open("UPDATE CCOLOR SET ID_Historia = " & Id.Text & ", Tipo_Insumo = '" & FcoloR11.tinta.Text & "', Proveedor = '" & FcoloR11.Proveedor.Text & "', NumPasadas = " & FcoloR11.PasadasF1.Text & ", Colores = '" & FcoloR11.Color.Text & "', Viscosidad = '" & FcoloR11.Visc.Text & "', Material = '" & FcoloR11.GCOLORP.Rows(i).Cells(0).Value & "', Clave = '" & FcoloR11.GCOLORP.Rows(i).Cells(1).Value & "', Minimo = '" & FcoloR11.GCOLORP.Rows(i).Cells(2).Value & "', Estandar = '" & FcoloR11.GCOLORP.Rows(i).Cells(3).Value & "', Maximo = '" & FcoloR11.GCOLORP.Rows(i).Cells(4).Value & "', Estacion = " & Impresiones.Text & " WHERE ID_HISTORIA = " & Id.Text & " ", Conex)
Next
 
If Impresiones.Text = 2 Then
    For i = 0 To FcoloR12.GCOLORP.RowCount - 1
        rst.Open("UPDATE CCOLOR SET ID_Historia = " & Id.Text & ", Tipo_Insumo = '" & FcoloR12.tinta.Text & "', Proveedor = '" & FcoloR12.Proveedor.Text & "', NumPasadas = " & FcoloR12.PasadasF1.Text & ", Colores = '" & FcoloR12.Color.Text & "', Viscosidad = '" & FcoloR12.Visc.Text & "', Material = '" & FcoloR12.GCOLORP.Rows(i).Cells(0).Value & "', Clave = '" & FcoloR12.GCOLORP.Rows(i).Cells(1).Value & "', Minimo = '" & FcoloR12.GCOLORP.Rows(i).Cells(2).Value & "', Estandar = '" & FcoloR12.GCOLORP.Rows(i).Cells(3).Value & "', Maximo = '" & FcoloR12.GCOLORP.Rows(i).Cells(4).Value & "', Estacion = " & Impresiones.Text & " WHERE ID_HISTORIA = " & Id.Text & " ", Conex)
    Next
End If
If Impresiones.Text = 3 Then
    For i = 0 To FcoloR13.GCOLORP.RowCount - 1
        rst.Open("UPDATE CCOLOR SET ID_Historia = " & Id.Text & ", Tipo_Insumo = '" & FcoloR13.tinta.Text & "', Proveedor = '" & FcoloR13.Proveedor.Text & "', NumPasadas = " & FcoloR13.PasadasF1.Text & ", Colores = '" & FcoloR13.Color.Text & "', Viscosidad = '" & FcoloR13.Visc.Text & "', Material = '" & FcoloR13.GCOLORP.Rows(i).Cells(0).Value & "', Clave = '" & FcoloR13.GCOLORP.Rows(i).Cells(1).Value & "', Minimo = '" & FcoloR13.GCOLORP.Rows(i).Cells(2).Value & "', Estandar = '" & FcoloR13.GCOLORP.Rows(i).Cells(3).Value & "', Maximo = '" & FcoloR13.GCOLORP.Rows(i).Cells(4).Value & "', Estacion = " & Impresiones.Text & " WHERE ID_HISTORIA = " & Id.Text & " ", Conex)
    Next
End If
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
sin imagen de perfil
Val: 130
Ha disminuido 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

EDITAR REGISTROS

Publicado por Agustin (27 intervenciones) el 29/03/2019 03:47:14
4248033

Ya enserio, borra todo ese desastre y usa un modelo estatico y separacion por capas como cualquier ciudadano decente.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Leonardo Daniel A.
Val: 71
Ha disminuido su posición en 2 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

EDITAR REGISTROS

Publicado por Leonardo Daniel A. (33 intervenciones) el 29/03/2019 04:53:28
jajajajaaj pues si.... habiendo tantos tutoriales en la web
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