Problema al leer Excel desde Asp, omite campos alfanuméricos.

PabloManuel · #1 (**permalink**) 07/06/2013, 10:15

Hola, tengo que leer una excel desde asp, sea 2007 ó 2003
Creía tener controlado las 2003, pero no. Me omite los valores alfanuméricos.

Este es el código:

Código ASP:

Ver original<html>
    <head>
        <title>Recoge valores de celdas Excel</title>
    </head>
    
    <body style="font-family: Arial; font-size: 9pt">
    
        <% 
        
        dim ConnectDBQ,rs,dbc
        
        Set dbc = Server.CreateObject("ADODB.Connection")
        ConnectDBQ="DRIVER={Microsoft Excel Driver (*.xls)}; DBQ=" & server.mappath("ASP2.xls")     
        dbc.Open ConnectDBQ
        
        Set rs=Server.CreateObject("ADODB.RecordSet")
        rs.open "select * from [Hoja1$]",dbc,3,3
        
 
        %>
        <table Border='1px'>
        <tr>
        <%
 
        For I = 0 To 3
            response.write "<td>" & rs.Fields.Item(I).Name & "</td>"
        Next
        
        %>
        </tr>
        <%
        
        do while not rs.eof
            %>
            <tr>
            <%
            For I = 0 To 3
                response.write "<td>" & rs.fields(I).value & "</td>"
            Next
            %>
            </tr>
            <%
            
            rs.movenext
        loop
        
        rs.close
        %>
        </table>
    </body>
</html>

Más simple que un búcaro, te crea una tabla con la excel que sube.

Esto es lo que contiene la excel:

campo 1 campo 2 campo 3 campo 4
A 2 3 4
5 6 7 8
9 10 Y 12
13 14 15 16
17 18 19 20
J H 987 O

Y esto es lo que devuelve la página:

campo 1 campo 2 campo 3 campo 4
2 3 4
5 6 7 8
9 10 12
13 14 15 16
17 18 19 20
987

¡¡¡ Los valores alfanumériocos me los saca Empty, por qué!!!!

PabloManuel · #2 (**permalink**) 07/06/2013, 10:17

Esta es la tabla que devuelve:

Código HTML:

Ver original<table Border='1px'>
        <tr>
        <td>campo 1</td><td>campo 2</td><td>campo 3</td><td>campo 4</td>
        </tr>
        
            <tr>
            <td></td><td>2</td><td>3</td><td>4</td>
            </tr>
            
            <tr>
            <td>5</td><td>6</td><td>7</td><td>8</td>
            </tr>
            
            <tr>
            <td>9</td><td>10</td><td></td><td>12</td>
            </tr>
            
            <tr>
            <td>13</td><td>14</td><td>15</td><td>16</td>
            </tr>
            
            <tr>
            <td>17</td><td>18</td><td>19</td><td>20</td>
            </tr>
            
            <tr>
            <td></td><td></td><td>987</td><td></td>
            </tr>
            
        </table>

PabloManuel · #3 (**permalink**) 07/06/2013, 10:18

En el caso de los valores no numéricos es como si el campo/celda estuviera vacía ¿¿¿¿ Por qué ????

PabloManuel · #4 (**permalink**) 07/06/2013, 11:21

SOLUCIONADO
El problema estaba en la cadena de conexión. Pongo el código válido:

Código ASP:

Ver original<html>
    <head>
        <title>Recoge valores de celdas Excel</title>
    </head>
    
    <body style="font-family: Arial; font-size: 9pt">
    
        <% 
        
        dim ConnectDBQ,rs,dbc
        
        Set dbc = Server.CreateObject("ADODB.Connection")
        
        'Cadenas de conexión que mejor no usar:
        'ConnectDBQ="DRIVER={Microsoft Excel Driver (*.xls)}; DBQ=" & server.mappath("ASP2.xls")    
        'ConnectDBQ= "DRIVER={Microsoft Excel Driver (*.xls)}; IMEX=1; HDR=no; Excel 8.0; DBQ=" & Server.MapPath("ASP2.xls") & "; "     
        
        'Vale tanto para Xls como Xlsx
        ConnectDBQ = _
            "Provider=Microsoft.ACE.OLEDB.12.0;" & _
            "Extended Properties='Excel 12.0 Xml;HDR=yes;IMEX=1';" & _
            "Data Source=" & Server.MapPath("ASP.xls")
        
 
        dbc.Open ConnectDBQ
        
        Set rs=Server.CreateObject("ADODB.RecordSet")
        rs.open "select * from [Hoja1$]",dbc,3,3
        
 
        %>
        <table Border='1px'>
        <tr>
        <%
 
        For I = 0 To 3
            response.write "<td>" & rs.Fields.Item(I).Name & "</td>"
        Next
        
        %>
        </tr>
        <%
        
        do while not rs.eof
            %>
            <tr>
            <%
            For I = 0 To 3
                response.write "<td>" & rs.fields(I).value & "</td>"
            Next
            %>
            </tr>
            <%
            
            rs.movenext
        loop
        
        rs.close
        %>
        </table>
    </body>
</html>