INSERTAR DATOS DESDE VISUAL
Publicado por JOSE ANGEL (13 intervenciones) el 26/03/2019 20:02:30
HOLA BUEN DÍA, ESTOY REALIZANDO UN PROYECTO CON VISUAL Y ACCESS 2013 AMBAS.
MI PROBLEMA RECAE EN LO SIGUIENTE; AL GUARDAR ESTE INSERT ME MARCA UN ERROR Y NO LO GUARDA. ME PUEDEN APOYAR DICIENDOME DONDE ESTA MI ERROR, GRACIAS
MI PROBLEMA RECAE EN LO SIGUIENTE; AL GUARDAR ESTE INSERT ME MARCA UN ERROR Y NO LO GUARDA. ME PUEDEN APOYAR DICIENDOME DONDE ESTA MI ERROR, GRACIAS
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
Private Sub GuardarToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GuardarToolStripMenuItem.Click
cont = 0 : cont1 = 0
For i = 0 To 3 If cont1 = 1 ThenExit Sub
End If
cont = ivalidarcampos()
Next
If cadena = "Nuevo" Then
rst.Open("Select max (Id_HCNP)+1 as total from HCNP", cnn)
If Not rst.EOF Thencont = rst("total").Value
End If
rst.Close()
rst.Open("Insert into HCNP (Id_HCNP, FECHA, PRODUCTO, MOLDURA, PROYECTO, CLIENTE, PAIS, PROCPREVIO, CALIDAD, ESTATUS, FINICIO, FTERM, NUMCONTROL, REQTONO, REFERENCIA, PZASREQTONO, REQRESISTENCIA, PZASRESISTENCIA, OBSERVACIONES, pedita, fedicion,pvalida,fvalida) values (" & cont & ", #" & IIf(cadena = "Nuevo", Now.Year & "/" & Now.Month & "/" & Now.Day, FalsePart:=Fecha.Text) & "#, '" & Producto.Text & "', " & Moldura.Text & ", '" & Proyecto.Text & "', '" & Cliente.Text & "', '" & Pais.Text & "', '" & ProcesoPrevio.Text & "', '" & Calidad.Text & "', '" & Estatus.Text & "', #" & FInicio.Text & "#, #" & FTerm.Text & "#, '" & NumControl.Text & "', '" & reqtono.Text & "', '" & referencia.Text & "', '" & pzasreqtono.Text & "', '" & reqresistencia.Text & "', '" & pzasreqResistencia.Text & "', '" & ObsGrales.Text & "', " & Acceso.TextBox1.Text & ", now(), 60079218,now())", cnn)
''Guarda datos de formulacion de color
For i = 0 To FcoloR11.gColor1.RowCount - 1
Try
rst.Open("INSERT INTO CCOLOR (ID_Historia, Tipo_Insumo, Proveedor, NumPasadas, Color, Viscosidad, Material, Clave, Min, Std, Maximo ,Estacion) VALUES ( " & cont & ", '" & FcoloR11.tinta.Text & "', '" & FcoloR11.Proveedor.Text & "', " & FcoloR11.PasadasF1.Text & " , '" & FcoloR11.Color.Text & "', '" & FcoloR11.Visc.Text & "', '" & FcoloR11.gColor1.Rows(i).Cells(0).Value & "', '" & FcoloR11.gColor1.Rows(i).Cells(1).Value & "', '" & FcoloR11.gColor1.Rows(i).Cells(2).Value & "', '" & FcoloR11.gColor1.Rows(i).Cells(3).Value & "', '" & FcoloR11.gColor1.Rows(i).Cells(4).Value & "', 1) ", cnn)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
'MsgBox(FcoloR11.GCOLORP.Rows(i).Cells(4).Value)
Next
If Impresiones.Text = 2 Then
For i = 0 To FcoloR12.gColor1.RowCount - 1
rst.Open("INSERT INTO CCOLOR (ID_Historia, Tipo_Insumo, Proveedor, NumPasadas, Color, Viscosidad, Material, Clave, Min, Std, Maximo ,Estacion) VALUES ( " & cont & ", '" & FcoloR12.tinta.Text & "','" & FcoloR12.Proveedor.Text & "', " & FcoloR12.PasadasF1.Text & " , '" & FcoloR12.Color.Text & "', '" & FcoloR12.Visc.Text & "', '" & FcoloR12.gColor1.Rows(i).Cells(0).Value & "', '" & FcoloR12.gColor1.Rows(i).Cells(1).Value & "', '" & FcoloR12.gColor1.Rows(i).Cells(2).Value & "', '" & FcoloR12.gColor1.Rows(i).Cells(3).Value & "', '" & FcoloR12.gColor1.Rows(i).Cells(4).Value & "', 2)", cnn)
Next
End If
If Impresiones.Text = 3 Then
For i = 0 To FcoloR13.gColor1.RowCount - 1
rst.Open("INSERT INTO CCOLOR (ID_Historia, Tipo_Insumo, Proveedor, NumPasadas, Color, Viscosidad, Material, Clave, Min, Std, Maximo ,Estacion) VALUES ( " & cont & ", '" & FcoloR13.tinta.Text & "','" & FcoloR13.Proveedor.Text & "', " & FcoloR13.PasadasF1.Text & " , '" & FcoloR13.Color.Text & "', '" & FcoloR13.Visc.Text & "', '" & FcoloR13.gColor1.Rows(i).Cells(0).Value & "', '" & FcoloR13.gColor1.Rows(i).Cells(1).Value & "', '" & FcoloR13.gColor1.Rows(i).Cells(2).Value & "', '" & FcoloR13.gColor1.Rows(i).Cells(3).Value & "', '" & FcoloR13.gColor1.Rows(i).Cells(4).Value & "', 3)", cnn)
Next
End If
Valora esta pregunta
0
