saber si la consulta fue exitosa

[cribelo]

Hola, tengo un problema
quiero saber si
RC.Open SQL,Conexion,3,4
que es la consulta q hago si es exitosa,
entonces si es exitosa muestro la tabla con los resultados
sino mostra un mensaje no se puedo hacer la consulta
se entiende??


gracias

[CHuLoSoY]

<%if RC.eof or RC.bof then

response.write("error")

else

CONSULTA

end if
%>

Sería algo así.

[cribelo]

no, che , no funca, porq como a RC.Open SQL,Conexion,3,4
lo hago por el else
cuando pregunto en el if RC.eof or RC.bof then
me tira error en esa linea porq RC no esta abierto

Tiene que haber otra forma
Gracias

[JuanRAPerez]

Iniciado por cribelo

no, che , no funca, porq como a RC.Open SQL,Conexion,3,4
lo hago por el else
cuando pregunto en el if RC.eof or RC.bof then
me tira error en esa linea porq RC no esta abierto

Tiene que haber otra forma
Gracias

pegas mas de tu codigo?

[cribelo]

Código:

 Set Conexion = Server.CreateObject("ADODB.Connection")
  drivercliente = "Driver={SQL Server};server=servernt;uid=sa;pwd=aa;database=videoclub"
  Conexion.Open drivercliente
SQL="SELECT * FROM  clientes"
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>Id Cliente</td>
    <td>Nombre</td>
    <td>Apellido</td>
  </tr>
<%
SET RC=server.CreateObject("ADODB.RecordSet")

if (RC.Open SQL,Conexion,3,4) then
response.write("error")
else
RC.Open SQL,Conexion,3,4

Response.Write(RC.Recordcount)

for i=0 to RC.Recordcount -1
Response.Write("<tr>")
    Response.Write("<td>")
	Response.Write RC.fields(0)
    Response.Write("</td>")
	Response.Write("<td>")
	Response.Write RC.fields(1)
    Response.Write("</td>")
	Response.Write("<td>")
	Response.Write RC.fields(2)
    Response.Write("</td>")
	Response.Write("</tr>")
RC.MoveNExt
Next

Conexion.Close
end if
%>


ese es todo el codigo
gracias

[JuanRAPerez]

bueno antes que nada nunca habia visto esto

if (RC.Open SQL,Conexion,3,4) then

dado que tenes que igualar a algo

algo asi como

if (RC.Open SQL,Conexion,3,4) = "true" then

pero como te digo realmente no se porque lo evaluas asi, incluso creo - y ojala alguien que sepa pueda responder mejor - no se puede.

pero bueno

porque mejor no haces esto:

SQL="SELECT * FROM clientes"
SET RC=server.CreateObject("ADODB.RecordSet")
RC.Open SQL,Conexion,3,4
if RC.eof or RC.bof then
'imprimi el error antes de la creacion de la tabla
response.write("error")
else
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>Id Cliente</td>
<td>Nombre</td>
<td>Apellido</td>
</tr>
<%
Response.Write(RC.Recordcount)

Suerte

[JuanRAPerez]

ojo el endif tiene que ir al final de la impresion de la tabla
lup!

[cribelo]

Iniciado por JuanRAPerez

bueno antes que nada nunca habia visto esto

if (RC.Open SQL,Conexion,3,4) then

dado que tenes que igualar a algo

algo asi como

if (RC.Open SQL,Conexion,3,4) = "true" then

pero como te digo realmente no se porque lo evaluas asi, incluso creo - y ojala alguien que sepa pueda responder mejor - no se puede.

pero bueno

porque mejor no haces esto:



Suerte

Es que si haces if (RC.Open SQL,Conexion,3,4) then

y por ejemplo el sql esta mal, ejemplo SELECT * From Clientesss (la tabla clientes no existe)

ya me titra error ahi

y no me deja mostrar el mensaje

y a parte lo del if esee no anda, yo quiero hacer algo asi, como se hace en php



otra cosa la linea
Response.Write RC.fields(1)

como hago para imprimir pero no por el fields sino por el nombre algo asi quisiera
RC.fields(NombreCliente)


graciasss

[JuanRAPerez]

ummmm

pues probastes lo que yo te rehice?

SQL="SELECT * FROM clientes"
SET RC=server.CreateObject("ADODB.RecordSet")
RC.Open SQL,Conexion,3,4
if RC.eof or RC.bof then
'imprimi el error antes de la creacion de la tabla
response.write("error")
else
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>Id Cliente</td>
<td>Nombre</td>
<td>Apellido</td>
</tr>
<%
Response.Write(RC.Recordcount)

lo de los nombres de los campo lo haces
response.write rc("NombreCampo")

lo otro dejame investigar.

almenos como te lo paso te aseguras qeu si no trae registros no te imprima la tabla

[JuanRAPerez]

ummmm creo que seria algo asi

On Error Resume Next
set rs = db.Execute(sQry)
If Err.Description <> "" Then
Response.Write "<B>Error de base de datos [1]: " + Err.Description + "</B>"
Else

SQL="SELECT * FROM clientes"
SET RC=server.CreateObject("ADODB.RecordSet")
On Error Resume Next
RC.Open SQL,Conexion,3,4
If Err.Description <> "" Then
Response.Write "<B>Error de base de datos [1]: " + Err.Description + "</B>"
'ojo tendrias que poner un endif mas por este else que viene
Else
if RC.eof or RC.bof then
'imprimi el error antes de la creacion de la tabla
response.write("error")
else
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>Id Cliente</td>
<td>Nombre</td>
<td>Apellido</td>
</tr>
<%
Response.Write(RC.Recordcount)

probalo.
suerte

[JuanRAPerez]

te funciono o encontrastes otra solucion?