Foros del Web » Programando para Internet » ASP Clásico »

Manipular de error (0x80040E37)

Estas en el tema de Manipular de error (0x80040E37) en el foro de ASP Clásico en Foros del Web. hola gente, buenas a todos otra vez yo en este maravilloso e increible foro! como podran ver esta vez estoy luchando con un asp que ...
  #1 (permalink)  
Antiguo 15/08/2012, 11:10
 
Fecha de Ingreso: marzo-2008
Mensajes: 82
Antigüedad: 16 años, 1 mes
Puntos: 0
Manipular de error (0x80040E37)

hola gente, buenas a todos otra vez yo en este maravilloso e increible foro!
como podran ver esta vez estoy luchando con un asp que trabaja con una base de datos sql server
estoy intentando realizar query para manejar este error que es cuando la tabla no existe en la base de datos
pero no logro dar en la tecla, el tema es que tengo la siguiente consulta:

Set rs2 = Server.CreateObject ("ADODB.RecordSet")
'Sq = " Select TelePhoneNumber, LEFT(TelePhoneNumber,2) FROM " & session("name_Table")
Sq = " Select left(TelePhoneNumber,2) as TeleF FROM " & session("name_Table")
Rs2.Open Sq, cnn

a partir de esa consulta es donde empieza a tirar el error
alguno tiene idea como solucioanarlo

se me ocurre con If (Rs2.eof) Then pero no me da resultado porque me parece que tendria que usar esta otra consulta sino me equivoco, puede ser?
el tema que no me sirve este query.

Set Rs3 = Server.CreateObject ("ADODB.RecordSet")
SQL = "SELECT * FROM INFORMATION_SCHEMA.TABLES "
SQL = SQL & " WHERE table_type='BASE TABLE' and TABLE_NAME LIKE 'Sample%'"
Rs3.Open SQL, cnn

desde ya y como siempre muchas gracias por la ayuda mis amigos.
  #2 (permalink)  
Antiguo 17/08/2012, 12:41
 
Fecha de Ingreso: marzo-2008
Mensajes: 82
Antigüedad: 16 años, 1 mes
Puntos: 0
Respuesta: Manipular de error (0x80040E37)

solucionado.
Hice una consulta a la base de datos para que primero haga la busqueda de la tabla, si la tabla existe pasa tal cosa si la tabla no existe me envia a una pagina de error.
Gracias.

<%
IF Request.Form("OK") = "OK" THEN
session("name_Table") = "Sample" & Request.form("name_Table")
'SESSION("RESPUESTA") = session("name_Table")
Else
session("name_Table") = "SamplePrueda"
END IF

Set Rs3 = Server.CreateObject ("ADODB.RecordSet")
SQL = " SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES"
SQL = SQL & " where TABLE_NAME= " & "'" & session("name_Table") & "'"
Rs3.Open SQL, cnn

if Rs3.eof then
'invalid password and redirect to login page
Response.redirect("error.html")
else
SESSION("RESPUESTA") = Rs3("TABLE_NAME")
%>

Etiquetas: asp, manipular, server
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 00:49.