ASP Y EXCEL

Hola Franz, no dices que error te esta dando.


"Franz" wrote in message
news:%
Mostrar la cita

hola chicos mirentoy trantando de adjuntar un arcghivo excel mediante una
pagina .asp y no se por que no me sale esta codigo , me sale errores q no
puedo examinar , espero que me puedan ayudar les agredeceria



<%

Path=Server.MapPath("libro1.xls")

Set ConexionBD = Server.CreateObject("ADODB.Connection")

ConexionBD.Open "DRIVER={Microsoft Excel DRIVER (*.xls)};DBQ=" & Path

Set rsVac = Server.CreateObject("ADODB.Recordset")

rsVac.Open "Select * From A1:C3 ", ConexionBD,3,3

rsVac.MoveFirst

Response.Write "<table>"

Response.Write "<th>" & rsVac.Fields.Item(0).Name & "</th>" & vbCrLf

Response.Write "<th>" & rsVac.Fields.Item(1).Name & "</th>" & vbCrLf

Response.Write "<th>" & rsVac.Fields.Item(2).Name & "</th>" & vbCrLf

Set ConexionDBSql = Server.CreateObject("ADODB.Connection")

ConexionDBSql.Open "DRIVER={SQL
Server};Server=PCINF12;SOURCE=lista;UID=sa;PWD="

Set sql = Server.CreateObject("ADODB.command")

sql.ActiveConnection = ConexionDBSql

Do While Not rsVac.EOF

Response.Write "<tr>" & vbCrLf

'Response.Write "<td>" & rsVac(0) & "</td>"

'Response.Write "<td>" & rsVac(1) & "</td>"

'Response.Write "<td>" & rsVac(2) & "</td>"


sql.CommandText = "INSERT INTO
ConexionDBSql.relacion(nombre,direccion,correo) VALUES (" & rsVac(0) & ","
&
rsVac(1) & "," & rsVac(2) & ")"

sql.execute

Response.Write "</tr>" & vbCrLf

rsVac.MoveNext

Loop

Response.Write "</table>"

ConexionBD.Close

ConexionDBSql.Close

Set ConexionBD = Nothing

Set ConexionDBSql = Nothing

%>

TENGO UN ARCHIVO EXCEL CON DOS REGISTROS PARA SOLAMENTE PROBAR
QUE SON ESTOS:

NOMBRE
DIRECION
CORREO

FRANZ ALEXANDER CHARPENTIER
CERCADO


PABLO ROMERO
MAGDALENA




ENTONCES CUANDO CARGO LA PAGINA ME SALE:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC SQL Server Driver][SQL Server]El nombre 'FRANZ' no es
válido en este contexto. Sólo se permiten constantes, expresiones o
variables. No se permiten nombres de columna.
/Prueba/subir_archivo.asp, línea 26

SOY PRINCIPIANTE EN ASP Y ME HAN DADO ESE PROYECTO LES AGRADECERIA AYUDARME

"Daniel H. Villa" escribió en el mensaje
news:uK%23%
Mostrar la cita

Hola Franz, no dices que error te esta dando.


"Franz" wrote in message
news:%
Mostrar la cita

hola chicos mirentoy trantando de adjuntar un arcghivo excel mediante una
pagina .asp y no se por que no me sale esta codigo , me sale errores q no
puedo examinar , espero que me puedan ayudar les agredeceria



<%

Path=Server.MapPath("libro1.xls")

Set ConexionBD = Server.CreateObject("ADODB.Connection")

ConexionBD.Open "DRIVER={Microsoft Excel DRIVER (*.xls)};DBQ=" & Path

Set rsVac = Server.CreateObject("ADODB.Recordset")

rsVac.Open "Select * From A1:C3 ", ConexionBD,3,3

rsVac.MoveFirst

Response.Write "<table>"

Response.Write "<th>" & rsVac.Fields.Item(0).Name & "</th>" & vbCrLf

Response.Write "<th>" & rsVac.Fields.Item(1).Name & "</th>" & vbCrLf

Response.Write "<th>" & rsVac.Fields.Item(2).Name & "</th>" & vbCrLf

Set ConexionDBSql = Server.CreateObject("ADODB.Connection")

ConexionDBSql.Open "DRIVER={SQL
Server};Server=PCINF12;SOURCE=lista;UID=sa;PWD="

Set sql = Server.CreateObject("ADODB.command")

sql.ActiveConnection = ConexionDBSql

Do While Not rsVac.EOF

Response.Write "<tr>" & vbCrLf

'Response.Write "<td>" & rsVac(0) & "</td>"

'Response.Write "<td>" & rsVac(1) & "</td>"

'Response.Write "<td>" & rsVac(2) & "</td>"


sql.CommandText = "INSERT INTO
ConexionDBSql.relacion(nombre,direccion,correo) VALUES (" & rsVac(0) &
"," &
rsVac(1) & "," & rsVac(2) & ")"

sql.execute

Response.Write "</tr>" & vbCrLf

rsVac.MoveNext

Loop

Response.Write "</table>"

ConexionBD.Close

ConexionDBSql.Close

Set ConexionBD = Nothing

Set ConexionDBSql = Nothing

%>

Mostrar la cita

TENGO UN ARCHIVO EXCEL CON DOS REGISTROS PARA SOLAMENTE PROBAR
QUE SON ESTOS:

NOMBRE
DIRECION
CORREO

FRANZ ALEXANDER CHARPENTIER
CERCADO


PABLO ROMERO
MAGDALENA




ENTONCES CUANDO CARGO LA PAGINA ME SALE:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC SQL Server Driver][SQL Server]El nombre 'FRANZ' no es
válido en este contexto. Sólo se permiten constantes, expresiones o
variables. No se permiten nombres de columna.
/Prueba/subir_archivo.asp, línea 26

SOY PRINCIPIANTE EN ASP Y ME HAN DADO ESE PROYECTO LES AGRADECERIA
AYUDARME

Mostrar la cita

Mostrar la cita

<%

Path=Server.MapPath("libro1.xls")

Set ConexionBD = Server.CreateObject("ADODB.Connection")

ConexionBD.Open "DRIVER={Microsoft Excel DRIVER (*.xls)};DBQ=" & Path

Set rsVac = Server.CreateObject("ADODB.Recordset")

rsVac.Open "Select * From A1:C3 ", ConexionBD,3,3

rsVac.MoveFirst

Response.Write "<table>"

Response.Write "<th>" & rsVac.Fields.Item(0).Name & "</th>" & vbCrLf

Response.Write "<th>" & rsVac.Fields.Item(1).Name & "</th>" & vbCrLf

Response.Write "<th>" & rsVac.Fields.Item(2).Name & "</th>" & vbCrLf

Set ConexionDBSql = Server.CreateObject("ADODB.Connection")

ConexionDBSql.Open "DRIVER={SQL
Server};Server=PCINF12;SOURCE=lista;UID=sa;PWD="

Set sql = Server.CreateObject("ADODB.command")

sql.ActiveConnection = ConexionDBSql

Do While Not rsVac.EOF

Response.Write "<tr>" & vbCrLf

'Response.Write "<td>" & rsVac(0) & "</td>"

'Response.Write "<td>" & rsVac(1) & "</td>"

'Response.Write "<td>" & rsVac(2) & "</td>"


sql.CommandText = "INSERT INTO
ConexionDBSql.relacion(nombre,direccion,correo) VALUES (" & rsVac(0) &
"," &
rsVac(1) & "," & rsVac(2) & ")"

sql.execute

Response.Write "</tr>" & vbCrLf

rsVac.MoveNext

Loop

Response.Write "</table>"

ConexionBD.Close

ConexionDBSql.Close

Set ConexionBD = Nothing

Set ConexionDBSql = Nothing

%>

hola, Franz !

1) comienza por visitar las siguientes paginas:
How To Query and Display Excel Data by Using ASP.NET, ADO.NET, and Visual Basic .NET
http://support.microsoft.com/defaul...US;Q311731
How To Automate Excel from Visual Basic .NET to Fill or to Obtain Data in a Range by Using Arrays
http://support.microsoft.com/defaul...US;Q302094

2) prueba modificando en la cadena de la consulta la instruccion con el Select +/- ...
de: -> rsVac.Open "Select * From A1:C3 ", ConexionBD, 3, 3
a: -> rsVac.Open "Select * From [A1:C3] ", ConexionBD, 3, 3

3) la (remota) posibilidad de lo anterior, es porque existen -al menos- 3 definiciones para una tabla de sistema (en lo tocante a hojas de excel):
a) un nombre definido a nivel de hoja p.e.: -> select * from [hoja1$!nombre_definido]
b) una hoja de calculo p.e.: -> select * from [hoja1$]
c) un rango en una hoja de calculo, que puede ser inclusive con o sin el nombre de la hoja (p.e.)
c.1) select * from [hoja1$!a1:b4]
c.2) select * from [a1:b4] (aqui se entiende que se usara la hoja(1) aun si no esta visible)

4) nota: el uso de corchetes [...] es valido SOLO cuando no existen espacios en la referencia que contienen
si existira la posibilidad de nombres con espacios (o solo numeros)... prueba con algo +/- como lo siguiente:
a) "select * from `" & <variable_hoja> & "$k2:k100`"
b) "select * from `" & <variable_hoja> & "$" & RangoDeDatos & "`"

es probable que existan otras causas/alternativas/... -?- asi que...
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ las consultas anteriores __
Mostrar la cita

TENGO UN ARCHIVO EXCEL CON DOS REGISTROS PARA SOLAMENTE PROBAR QUE SON ESTOS:
NOMBRE
DIRECION
CORREO
FRANZ ALEXANDER CHARPENTIER
CERCADO

PABLO ROMERO
MAGDALENA

ENTONCES CUANDO CARGO LA PAGINA ME SALE:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][ODBC SQL Server Driver][SQL Server]
El nombre 'FRANZ' no es valido en este contexto. Solo se permiten constantes, expresiones o variables.
No se permiten nombres de columna. /Prueba/subir_archivo.asp, linea 26
SOY PRINCIPIANTE EN ASP Y ME HAN DADO ESE PROYECTO LES AGRADECERIA AYUDARME

Mostrar la cita

Daniel H. Villa escribio en el mensaje ...
Hola Franz, no dices que error te esta dando.

Mostrar la cita

Franz escribio en el mensaje ...
hola chicos mirentoy trantando de adjuntar un arcghivo excel mediante una pagina .asp y no se por que no me sale esta codigo
me sale errores q no puedo examinar , espero que me puedan ayudar les agredeceria

<%
Path=Server.MapPath("libro1.xls")
Set ConexionBD = Server.CreateObject("ADODB.Connection")
ConexionBD.Open "DRIVER={Microsoft Excel DRIVER (*.xls)};DBQ=" & Path
Set rsVac = Server.CreateObject("ADODB.Recordset")
rsVac.Open "Select * From A1:C3 ", ConexionBD,3,3
rsVac.MoveFirst
Response.Write "<table>"
Response.Write "<th>" & rsVac.Fields.Item(0).Name & "</th>" & vbCrLf
Response.Write "<th>" & rsVac.Fields.Item(1).Name & "</th>" & vbCrLf
Response.Write "<th>" & rsVac.Fields.Item(2).Name & "</th>" & vbCrLf
Set ConexionDBSql = Server.CreateObject("ADODB.Connection")
ConexionDBSql.Open "DRIVER={SQL Server};Server=PCINF12;SOURCE=lista;UID=sa;PWD="
Set sql = Server.CreateObject("ADODB.command")
sql.ActiveConnection = ConexionDBSql
Do While Not rsVac.EOF
Response.Write "<tr>" & vbCrLf
'Response.Write "<td>" & rsVac(0) & "</td>"
'Response.Write "<td>" & rsVac(1) & "</td>"
'Response.Write "<td>" & rsVac(2) & "</td>"
sql.CommandText = "INSERT INTO
ConexionDBSql.relacion(nombre,direccion,correo) VALUES (" & rsVac(0) & "," & rsVac(1) & "," & rsVac(2) & ")"
sql.execute
Response.Write "</tr>" & vbCrLf
rsVac.MoveNext
Loop
Response.Write "</table>"
ConexionBD.Close
ConexionDBSql.Close
Set ConexionBD = Nothing
Set ConexionDBSql = Nothing
%>

Hola, que hay?
además de lo que comenta Héctor, creo que también puedes probar con
esta modificación que expongo.
de:-> Path=Server.MapPath("libro1.xls")
a: -> Path=Server.MapPath("\libro1.xls")

Un saludo,
jose