Problemas para pasar datos de Excel a Mdb - VB-MUNDO

DIVEMASTER2002 · #1 (**permalink**) 13-08-2006, 04:20:01

Uso este codigo para pasar los datos de una planilla Excel a Mdb.

Código:

'Sentencia de Datos a Productos -----------------------------------------

    Do
        strSQL = ""
        cComa = ""
        ' Ir al proximo Valor
        Col = 1
OtraColumna:
         new_value = Trim$(excel_sheet.Cells(Row, Col))
        If Len(new_value) <> 0 Then
            strSQL = strSQL & cComa & "'" & new_value & "'"
            Col = Col + 1
            cComa = ", "
            GoTo OtraColumna
        End If
        
        ' Ve si esta en blanco
        If Len(new_value) = 0 And Col = 1 Then Exit Do

        'Pegar valores en Base de Datos
        db.Execute "INSERT INTO Productos VALUES (" & strSQL & ")"

        Row = Row + 1
    Loop

    ' Cerrar Base de Datos
    db.Close
    Set db = Nothing

Tengo dos problemas, el primero es que cuando en alguna de las filas del excel esta el signo ', me da error y si no le pongo " on error goto ....... " me graba los datos pero esa fila no y no se por que?, creo que es por la validacion de datos, String, Variant...., pero no puedo resolverlo, alguna sugerencia?, y el segundo problema es que me graba apartir del registro 24 de la planilla excel, o sea, todos los registros de la fila 1 a la 23, no los graba en la base de datos y no se por que......mil gracias!!!!!

acalanto · #2 (**permalink**) 13-08-2006, 07:18:42

Antes de crear el valor del campo a insertar elimina cualquier carácter de comilla simple porque de lo contrario la construcción de cadena de campo (Que se encuentra limitada por comillas simples) puede ser errónea.

Desconozco la razón por la que solamente te procesa a partir de la fila 24, tendrás que rastrear la aplicación depurando para ver el valor de la variable Row en cada momento. Fíjate que no inicias esta variable y a lo mejor puede contener un valor inicial que no estás controlando adecuadamente.

J.M.Movilla · #3 (**permalink**) 13-08-2006, 11:10:29

Para eliminar las comillas simples de las celdas, detrás de la línea new_value = Trim$(excel_sheet.Cells(Row, Col)), escribes:

Código:

Do
    n = InStr(New_Value, "'")
    If n <> 0 Then
        New_Value = Left(New_Value, n - 1) & "´" & Mid(New_Value, n + 1)
    Else
        Exit Do
    End If
Loop

Y respecto a que te deje fuera las primeras líneas sólo puede ser debido a la razón que te indica Acalanto, que no tienes inicializada la variable Row

DIVEMASTER2002 · #4 (**permalink**) 13-08-2006, 20:35:00

Gracias Movilla por tu ayuda, pero he descubierto algo que me desconcierta o que en realidad desconosco bien el por que.

El codigo de pasar los datos de Excel a MDB funciona perfecto!!!, pasa todos los registros, pero me di cuenta que el Vsflexgrid de C1, me muestra a partir del registro 25, lo se por que cuando corro la aplicación y despues abro con Access el archivo, aparecen todos los registros ordenados de manera ascendente, pero en el Grid, solo apartir del Nro. 25. Estuve mirando pero no se si el problema esta en el Adodc1 o en el Vsflexgrid de C1, alguna ves le paso?, mil gracias a Acalanto y a ti por su Ayuda.

Gracias!!

acalanto · #5 (**permalink**) 13-08-2006, 21:03:00

Entonces el error lo debes tener en la consulta que lanzas en el VFlexGrid.

Si abres con la base de datos y están todos los registros que has traspasado, no tiene sentido pensar que el componente 'se meriende' los primeros 24.

Revisa la consulta...

DIVEMASTER2002 · #6 (**permalink**) 13-08-2006, 22:52:45

Cita:

Empezado por acalanto

Entonces el error lo debes tener en la consulta que lanzas en el VFlexGrid.

Si abres con la base de datos y están todos los registros que has traspasado, no tiene sentido pensar que el componente 'se meriende' los primeros 24.

Revisa la consulta...

Te pido disculpas, luego de enviar el msje. me di cuanta que con la instrucción SELECT...... podia resolver todo este problema, mil gracias de todas formas por tu tiempo.

Solo algo mas, puedo relizar sumas de manera horizontal en el Vsflexgrid?, estuve mirando pero solo pude hacerlo de manera vertical, pero no pude de manera horizontal, por ejemple Columna A + Columna B = Resultado en Columna C.

Gracias!!!!

J.M.Movilla · #7 (**permalink**) 13-08-2006, 23:33:29

Hace pocos días pasé un código para resolver el problema que planteas. En esencia consiste en que generes en la instrucción SELECT un nuevo campo con el resultado de la suma de los campos correspondientes a esas columnas que deseas sumar:

Código:

"Select Campo_A, Campo_B, Campo_A + Campo_B As Resultado... From Productos"

Y en la grilla añades una columna para el campo "Resultado"