¿Como consulto la existencia de un campo?

[luisgls]

Si quisiera saber si existe un campo con el nombre de una variable mascampos?
mascampos="hobbies"
if rsUser("&mascampos&") then

Tal como lo he puesto, me da el siguiente error:
No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido.

[Manoloweb]

if rsUser(mascampos) then



Creo que asi deberia funcionar, ya que el calificador de texto ya lo trae la variable ("hobbies")

Ahi me avisas si funciona.

Saludos

[Manoloweb]

Creo que lo que estas buscando es mas bien algo que te cheque si existe o no...

If (Not Isempty(rsUser(mascampos))


bla bla...


O algo asi...

[luisgls]

Casi funciona, pero nop :(, Si la columna existe te lo da por bueno, pero si no existe te aparece el siguiente error:

No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido.

[luisgls]

¿Nadie sabe como consultar la existencia de un campo???????

[bakanzipp]

controlando el error??

On error resume next
rsUser("mascampos")
if err.number<>0 then
response.write err.description 'ó
response.write "campo inexistente"
end if

[luisgls]

Lo he intentado de esta forma, sin embargo, siempre me da que existe esa columna

sql = "SELECT * from users WHERE username = '" & username & "' "
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUserOpen sql, conn, 3, 3
On error resume next

If (Not Isempty(rsUser(mascampos))) then
Response.Write("Existe esa columna")
elseif Err.Number<>0 then
Err.clear
Response.Write("No existe esa columna")
end if

[Nochero]

Al comparar cadenas con nulos o vacios no funcionan con IsEmpty,IsNull,="", etc., de ahi q siempre te tira q existe.
Utiliza mejor : if tal_cosa<>"" then

Pero para lo q necesitas prueba con lo siguiente :

existe = false
For Each field In rsUser.Fields
if field.Name=mascampos
existe = true
exit
end if
Next field

Response.Write existe

saludos!

[luisgls]

Hola, lo he intentado de esta forma, sin embargo me da el siguiente error:
Se esperaba un final de instrucción Next field


<%
Option Explicit
Dim mascampos, rsUser, sql, existe

mascampos = "pesca"
%>
<!--#include file="conn.asp"-->
<%
existe = false
sql = "SELECT * from users"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open sql, conn, 3, 3

For Each field In rsUser.Fields
if field.Name=rsUser(mascampos) then
existe = true
end if
Next field

Response.Write (existe)

%>

[luisgls]

¿quien me puede corregir el error, de mi anterior mensaje????

[korev]

Prueba con esto:

for each...

next ' a secas