Visual Basic.NET - INSERTAR DATOS DESDE VISUAL

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

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

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 Then
            Exit Sub
        End If
        cont = i
        validarcampos()
    Next
 
    If cadena = "Nuevo" Then
 
        rst.Open("Select max (Id_HCNP)+1  as total from HCNP", cnn)
        If Not rst.EOF Then
            cont = 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
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 Phil Rob
Val: 2.160
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

INSERTAR DATOS DESDE VISUAL

Publicado por Phil Rob (531 intervenciones) el 26/03/2019 20:50:56
Hola,

Dos preguntas :
¿que es el tipo del objcto rst?
¿como es significado el error?

...
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