Hola espero que todos esten muy bien,tengo un grave problema no se leer informacion pasos a paso a campo a campo de un archivo excel(xls)para mandarlo a una base de datos. El archivo xls tiene el siguiente formato:
Doc.compr. Pos. Proveedor Material
5100010315 00010 2000441 T0197Z4
5100010315 00020 2000441 T01A8Z4
5100010315 00030 2000441 T01B5Z4
5100010315 00040 2000441 T01A2Z4
5100010972 00010 2000441 V1901V1
5100011822 00010 2000441 T3522Z4
con este codigo lo leo pero de verdad que no se como leerlo paso a paso (campo a campo ), para poder enviarlo a la base de datos.
Si hay alguien que me pueda ayudar porfa se lo agradezco mucho.
please!!!!!!!!!!!!!!! :)
@LANGUAGE="VBSCRIPT" CODEPAGE="1252"
'Las variables del archivo adovbs.inc
Const adOpenStatic = 3
Const adLockPessimistic = 2
'Nos conectamos a la hoja de datos del Excel
Set db = Server.CreateObject("ADODB.Connection")
Dim conexion
conexion = "Driver={Microsoft Excel Driver (*.xls)};DBQ=C:\Documents and Settings\lrada1\Escritorio\orden.xls;"
db.open conexion
'Recordset correspondiente a un rango de datos
set rs = Server.CreateObject("ADODB.Recordset")
SQLStr = "select*from ordenes"
rs.open SQLStr, conexion, adOpenStatic, adLockPessimistic, adCmdText
'Número de columnas de la tabla
columnas = rs.Fields.Count
Response.Write("")
'Mostramos el tiulo de la tabla.
For I = 0 To columnas - 1
Response.Write " " & rs.Fields.Item(I).Name & " "
Next
Response.Write("
")
'Mostramos los datos
Do While Not rs.EOF
Response.Write(" ")
For I = 0 To columnas - 1
Response.Write (" " & rs.Fields.Item(I).Value & " ")
Next
Response.Write "
"
rs.MoveNext
Loop
Response.Write(" ")
'Eliminamos el recordset
rs.Close
Set rs = Nothing
'Eliminamos la bd
db.Close
Set db = Nothing
