none
Tengo un error de sintaxis en la instrucción INSERT INTO. ¿Qué puedo hacer? RRS feed

  • Pregunta

  • Este es el codigo:

    Private Sub cmdGuardar_Click()
        
        Dim Conn As New ADODB.Connection
        Dim CProductos As New ADODB.Command
        Dim TMovimientos As New ADODB.Command
        Dim AInventario As New ADODB.Command
        Dim DBPath As String, vConectar As String
        Dim ConsultaP As String, ConsultaM As String
        Dim ConsultaA As String
        Dim vStockF As Double
        Dim vOrigen As String
        
        DBPath = ThisWorkbook.FullName
        
        vConectar = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBPath & ";Extended Properties=Excel 12.0;"
        Conn.Open vConectar 'Abrir la conexión
        
        ConsultaP = "INSERT INTO [Entradas$](Factura, " & "Fecha, CodProducto, Cantidad)" & " Values (" & TxtFactura.Value & "," & "'" & TxtFecha.Value & "'," & "'" & ComboProducto.Value & "'," & "" & TxtCantidad & ")"
        
        vStockF = Existencia + CDbl(Val(TxtCantidad.Value))
        
        vOrigen = "Ent-" & TxtFactura.Value
        
        ConsultaM = "INSERT INTO [ControlMovimientos$](CodProducto, " & "Existencias, Entradas, Stock,Fecha,Origen)" & " Values (" & ComboProducto.Value & "," & "" & Existencia & "," & "'" & TxtCantidad.Value & "'," & "" & vStockF & "," & "'" & TxtFecha.Value & "'," & "'" & vOrigen & "')"
        
        ConsultaA = "UPDATE [Productos$] SET " & "Existencia = " & vStockF & "" & " Where CodigoPro =" & ComboProducto.Value & ""
        
        CProductos.ActiveConnection = Conn
        TMovimientos.ActiveConnection = Conn
        AInventario.ActiveConnection = Conn
        
        CProductos.CommandText = ConsultaP
        TMovimientos.CommandText = ConsultaM
        AInventario.CommandText = ConsultaA
        
        CProductos.Execute
        
        TMovimientos.Execute
        
        AInventario.Execute
        
        Set CProductos = Nothing
        Set TMovimientos = Nothing
        
        Conn.Close
        Set Conn = Nothing
        Call BloquearCajas(True)
        Call LimpiarCajas
        
        Call BloquearBotones(True, False)
        End Sub

    lunes, 21 de septiembre de 2020 21:53

Todas las respuestas

  • Hola Marvin Lagos, 

      

    Gracias por levantar tu consulta en los foros de MSDN. Entendimos su pregunta y vamos a darle seguimiento para buscar la mejor repuesta pertinente al caso.  

    Gracias por usar los foros de MSDN.   

     

     Andres Aguilar

     ____________________________ 

      

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde.

    Si tiene algún cumplido o reclamo sobre el soporte de MSDN sientase en la libertad de contactar  MSDNFSF@microsoft.com. 

    martes, 22 de septiembre de 2020 0:21
    Moderador
  • Hola Marvin Lagos, 

    en cual de los 2 inserts? puedes hacer un insert corto de prueba para ver que todo este funcionando correctamente y de ahí ir aumentando.

    Gracias por usar los foros de MSDN.   

     

     Andres Aguilar

     ____________________________ 

    martes, 22 de septiembre de 2020 14:40
    Moderador
  • pues al primer insert pareciera faltarle el .Value en el campo TxtCantidad

    martes, 22 de septiembre de 2020 15:54
  • Gracias
    martes, 22 de septiembre de 2020 16:30