none
AL INTENTAR CARGAR UNOS DATOS DE EXCEL A ACCES NO ME TOMA LOS CAMPOS DEL ACCES RRS feed

  • Pregunta

  • NECESITO CARGAR UNO CAMPOS DE EXCEL A ACCES PERO NO ME ESTA TOMANDO UNO DE LOS CAMPOS DE EXCEL EN EL ACCES QUE NECESITO COMO TEXTO LARGO AL CARGAR CON TransferSpreadsheet no me dejo cargar el formato del campo me quita datos en el momento lo estoy intentando desde el excel al acces el codigo que uso es este.

    Sub insertarresgistro()

    Dim cn As Object
    Dim datos As Object
    Dim consultaSql As String
    Rem Dim Nro As Long
    Dim Zonal, Municipio, Nro, Dependencia, Motivo, Tipo, Numero, Nombre, Regimen, MedioRadicacion, TipoPqr, Descripcion, Responsable, FecRadicacion, FecLimite, FecRespuesta, RequisitosdelCliente, login As String


    Zonal = Cells(1, 1)
    Municipio = Cells(1, 2)
    Nro = Cells(1, 3)
    Dependencia = Cells(1, 4)
    Motivo = Cells(1, 5)
    Tipo = Cells(1, 7)
    Numero = Cells(1, 8)
    Nombre = Cells(1, 9)
    Regimen = Cells(1, 10)
    MedioRadicacion = Cells(1, 11)
    TipoPqr = Cells(1, 12)
    Descripcion = Cells(1, 13)
    Responsable = Cells(1, 14)
    FecRadicacion = Cells(1, 15)
    FecLimite = Cells(1, 16)
    FecRespuesta = Cells(1, 17)
    RequisitosdelCliente = Cells(1, 18)


    Set cn = CreateObject("ADODB.connection")
    conexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
            "Data source=\\BTA_AUXDRCO2_P2\Daniela Mendivelso\Público\Nivel Central\PQRS\ARCHIVO DE PQR.accdb"

    consultaSql = "SELECT (Zonal),(Municipio),(Nro),(Dependencia),(Motivo),(Tipo),(Numero),(Nombre),(Regimen),(MedioRadicacion),(TipoPqr),(Descripcion),(Responsable),(FecRadicacion),(FecLimite),(FecRespuesta),(RequisitosdelCliente) from CARGUEPQRS"

    cn.Open conexion

    Set datos = cn.Execute(consultaSql)

    consultaSql = "Insert into CARGUEPQRS values (" & Zonal & "," & "'" & Municipio & "'" & "," & "'" & Nro & "'" & "," & "'" & Dependencia & "'" & "," & "'" & Motivo & "'" & "," & "'" & Tipo & "'" & "," & "'" & Numero & "'" & "," & "'" & Nombre & "'" & "," & "'" & Regimen & "'" & "," & "'" & MedioRadicacion & "'" & "," & "'" & TipoPqr & "'" & "," & "'" & Descripcion & "'" & "," & "'" & Responsable & "'" & "," & "'" & FecRadicacion & "'" & "," & "'" & FecLimite & "'" & "," & "'" & FecRespuesta & "'" & "," & "'" & RequisitosdelCliente & "')"

    Set datos = cn.Execute(consultaSql)

    MsgBox "Registro ingresado exitosamente!"


    End Sub

    pero me dice que no se han especificado valores para algunos de los parametros requeridos 

    de antemano agradesco

    • Cambiado Enrique M. Montejo viernes, 27 de abril de 2018 6:50 Programación con Microsoft Excel mediante Visual Basic para Aplicaciones.
    jueves, 26 de abril de 2018 19:58

Todas las respuestas

  • Hola

    Lo primero, no nos comentas desde donde ejecutas éste código, ni la versión de Office que usas.

    La declaración de variables, tendrás que hacerla declarando el tipo de cada una. Si no, se declararán como variant las que no tengan tipo declarando. Pero eso es el menor de tus problemas.

    ¿Has puesto un punto de interrupción, y has visto el valor que tienen cada una de tus variables?

    Los valores que tengan como destino un campo de tipo string (texto corto, etc...) tienen que estar encerrados entre comillas ¿lo has tenido en cuenta?

    Salu2,


    José Mª Fueyo

    viernes, 27 de abril de 2018 7:23