Visual Basic.NET - Insertat registro a base de datos Access 2013 desde visual basic 2013

Pos: 117

Val: 22

Insertat registro a base de datos Access 2013 desde visual basic 2013

Publicado por JOSE ANGEL (13 intervenciones) el 26/03/2019 22:51:31

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

Estas son mis variables de conexión

Public Conex As ADODB.Connection

Public rst As ADODB.Recordset

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()

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

Contestando a tu pregunta Phil Rob
El rst es del tipo Recordset.
El mensaje que sale es que hay un error en el insert "ERROR EN EL INSERT INTO STATEMENT"

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Insertat registro a base de datos Access 2013 desde visual basic 2013

Publicado por omar (31 intervenciones) el 26/03/2019 23:01:11

Checa que tipo de datos creaste en tu base de datos y checa que en tu cadena insert sea segun el tipo de campo numerico , texto, o fecha

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 1

Val: 3.353

Insertat registro a base de datos Access 2013 desde visual basic 2013

Publicado por Phil Rob (1554 intervenciones) el 26/03/2019 23:20:13

Hola,

Esta es seguro, hay un error de sintaxis SQL en el comando INSERT ...
Tiene que lo ver en STRING para corregir : Dim Comando As String = "INSERT ...", entonces puede ver totos los caracteres, tambien ver el uso de los apostrofos y comillas ...

Creo que tu pregunta es para el foro Visual Basic pero no para el foro Viusal Basic.NET.
No trabajo mas con ADODB, en .NET, trabajamos con OleDB.
Despuès 2005, he olvidado los RecordSet.

...

Valora esta respuesta

Comentar

Pos: 117

Val: 22

Insertat registro a base de datos Access 2013 desde visual basic 2013

Publicado por JOSE ANGEL (13 intervenciones) el 27/03/2019 15:16:03

Hola, revise mi tabla a la cual inserto los siguientes datos, mis campos son: ID_Historia INT, Tipo_Insumo VARCHAR, Proveedor VARCHAR, NumPasadas INT, Colo VARCHARr, Viscosidad VARCHAR, Material VARCHAR, Clave VARCHAR, Min VARCHAR, Std VARCHAR, Maximo VARCHAR ,Estacion INT.
AUN ME SIGUE SALIENDO QUE TENGO UN ERROR DE SINTAXIS EN EL INSERT

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

Valora esta respuesta

Comentar

Pos: 1

Val: 3.353

Insertat registro a base de datos Access 2013 desde visual basic 2013

Publicado por Phil Rob (1554 intervenciones) el 27/03/2019 15:48:26

Reemplaza (Copiar / Pegar) tu SQL por :

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)

y decime como esta funcione entonces.
Si es bien, entonces explicaré.

Valora esta respuesta

Comentar

Pos: 117

Val: 22

Insertat registro a base de datos Access 2013 desde visual basic 2013

Publicado por JOSE ANGEL (13 intervenciones) el 27/03/2019 18:46:34

YA ME QUEDO, SOLO CAMBIE LOS NOMBRES DE LOS CAMPOS DE MI TABLA LOS CUALES FUERON MIN POR MINIMO, STD POR ESTANDAR Y LOGRE QUE SE GUARDARAN, NO SE SI SEA PORQUE EN VISUAL LAS TOMO COMO PALABRAS RESERVADAS.

Valora esta respuesta

Comentar

Pos: 1

Val: 3.353

Insertat registro a base de datos Access 2013 desde visual basic 2013

Publicado por Phil Rob (1554 intervenciones) el 27/03/2019 19:42:49

Disculpa ... no comprendo tu comentario.

¿Es mi frase "Insert" del mensaje anterior correcta?

Si no, envia la base de datos (parcialmente) y lo trabojaré.

Valora esta respuesta

Comentar

Pos: 117

Val: 22

Insertat registro a base de datos Access 2013 desde visual basic 2013

Publicado por JOSE ANGEL HIPOLITO MERCADO (13 intervenciones) el 27/03/2019 19:54:11

¿Es mi frase "Insert" del mensaje anterior correcta?

Solo en el '" & cont & "' le quite un par de comillas quedando así:

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)

Valora esta respuesta

Comentar

Pos: 1

Val: 3.353

Insertat registro a base de datos Access 2013 desde visual basic 2013

Publicado por Phil Rob (1554 intervenciones) el 27/03/2019 20:15:58

No respondes a mi pregunta.
¿has probar mi frase?

Hay error sintaxis si no hay apostrofo con los variables numericos : ID_Historia y NumPasadas.
Para Estacion, el valor es escribido como es, es un caractere.
Mi frase del mensaje anterior estabas corrigido.

Si error continua, entonces tu tiene error en una de los variables "Varchar", par ejemplo, comillas o apostrofo en el texto.

Valora esta respuesta

Comentar

Pos: 117

Val: 22

Insertat registro a base de datos Access 2013 desde visual basic 2013

Publicado por JOSE ANGEL (13 intervenciones) el 27/03/2019 21:51:42

PROBE TU INSERT, SI FUNCIONA, YA SE GUARDAN LOS DATOS, ASÍ ME QUEDO.

For i = 0 To FcoloR11.GCOLORP.RowCount - 1

Try

        rst.Open("INSERT INTO CCOLOR (ID_Historia, Tipo_Insumo, Proveedor, NumPasadas, Colores, Viscosidad, Material, Clave, Minimo, Estandar, Maximo ,Estacion)  VALUES ( " & cont & ", '" & FcoloR11.tinta.Text & "', '" & FcoloR11.Proveedor.Text & "', " & FcoloR11.PasadasF1.Text & " , '" & FcoloR11.Color.Text & "', '" & FcoloR11.Visc.Text & "', '" & FcoloR11.GCOLORP.Rows(i).Cells(0).Value & "', '" & FcoloR11.GCOLORP.Rows(i).Cells(1).Value & "', '" & FcoloR11.GCOLORP.Rows(i).Cells(2).Value & "', '" & FcoloR11.GCOLORP.Rows(i).Cells(3).Value & "', '" & FcoloR11.GCOLORP.Rows(i).Cells(4).Value & "', 1) ", Conex)

    Catch ex As Exception

        MessageBox.Show(ex.Message)

    End Try

Valora esta respuesta

Comentar

Pos: 1

Val: 3.353

Insertat registro a base de datos Access 2013 desde visual basic 2013

Publicado por Phil Rob (1554 intervenciones) el 27/03/2019 22:54:23

Asi, si "YA SE GUARDAN LOS DATOS", este es bien.

Pero creo que escribir . '" & cont & "' es necesario.

Buena nocha,

Valora esta respuesta

Comentar

Pos: 117

Val: 22

Insertat registro a base de datos Access 2013 desde visual basic 2013

Publicado por JOSE ANGEL (13 intervenciones) el 27/03/2019 22:59:00

GRACIAS POR LA ASESORÍA, SALUDOS

Valora esta respuesta

Comentar

Como llamar a un formulario

INSERTAR DATOS DESDE VISUAL