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
''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
0
