Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Ayuda con el codigo

21/12/2003 - 20:17 por Sergio Forever | Informe spam
Ayuda Hacer una pregunta
Buenas.Estoy aprendiendo a programar en ASP y me gustaria saber porque me da
el siguiente error:
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01B6)
El objeto no acepta esta propiedad o método: 'MoveFirst'
/conexion/TMPkbukjq9e8t.asp, línea 29

Estaba probando y de un libro copie un ejemplo que trabajaba con ODBC y yo
lo he modificado para que trabaje con Universal Data Link y no se si tendrá
algo que ver aunque pienso que no.

Os dejo mi codigo haber si me decís porque me casca.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% option explicit %>
<!-- #INCLUDE File="ADOVBS.inc" -->
<html>
<head>
<title>Pruebas</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<% const dbCon="FILE NAME=G:\Inetpub\wwwroot\conexion\pruebas.udl"
dim Conex
dim obCmd
dim sql
dim obRec
set Conex=Server.CreateObject("ADODB.Connection")
set obCmd=Server.CreateObject("ADODB.Command")
Conex.open dbCon
obCmd.ActiveConnection=Conex
obCmd.CommandType=adCmdText
sql="SELECT DISTINCT oficio, apellido FROM emple GROUP BY oficio,apellido"
obCmd.CommandText=sql
obRec=obCmd.Execute()%>
<center>
<table border="1">
<tr>
<th>Oficio</th>
<th>Apellido</th>
</tr>
<% obRec.MoveFirst
while not obRec.Eof %>
<tr>
<td><%=obRec(0) %></td>
<td><%=obRec(1) %></td>
</tr>
<%obRec.MoveNext()
wend
obRec.Close()
Conex.Close()%>
</table>
</center>

</body>
</html>


Gracias por vuestra ayuda!!Salu2.
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Miguel González
22/12/2003 - 10:54 | Informe spam
Prueba "setear" el recordset:

Set obRec=obCmd.Execute()

De todas formas, yo utilizaría algo más simple:

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "FILE NAME=G:\Inetpub\wwwroot\conexion\pruebas.udl""
Set rs = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT ... "
rs.Open strSql, conn, 3, 3
rs.MoveFirst
Do While Not rs.EOF
' AQUI LOS REGISTROS
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

Aunque nunca he utilizado el UDL. Supongo que funcionará.

Saludos!
Miguel

"Sergio Forever" escribió en el mensaje news:upmFb.258280$
Buenas.Estoy aprendiendo a programar en ASP y me gustaria saber porque me da
el siguiente error:
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01B6)
El objeto no acepta esta propiedad o método: 'MoveFirst'
/conexion/TMPkbukjq9e8t.asp, línea 29

Estaba probando y de un libro copie un ejemplo que trabajaba con ODBC y yo
lo he modificado para que trabaje con Universal Data Link y no se si tendrá
algo que ver aunque pienso que no.

Os dejo mi codigo haber si me decís porque me casca.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% option explicit %>
<!-- #INCLUDE File="ADOVBS.inc" -->
<html>
<head>
<title>Pruebas</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<% const dbCon="FILE NAME=G:\Inetpub\wwwroot\conexion\pruebas.udl"
dim Conex
dim obCmd
dim sql
dim obRec
set Conex=Server.CreateObject("ADODB.Connection")
set obCmd=Server.CreateObject("ADODB.Command")
Conex.open dbCon
obCmd.ActiveConnection=Conex
obCmd.CommandType=adCmdText
sql="SELECT DISTINCT oficio, apellido FROM emple GROUP BY oficio,apellido"
obCmd.CommandText=sql
obRec=obCmd.Execute()%>
<center>
<table border="1">
<tr>
<th>Oficio</th>
<th>Apellido</th>
</tr>
<% obRec.MoveFirst
while not obRec.Eof %>
<tr>
<td><%=obRec(0) %></td>
<td><%=obRec(1) %></td>
</tr>
<%obRec.MoveNext()
wend
obRec.Close()
Conex.Close()%>
</table>
</center>

</body>
</html>


Gracias por vuestra ayuda!!Salu2.


Respuesta Responder a este mensaje
#2 Juan Carlos Pulido Suarez
22/12/2003 - 21:53 | Informe spam
Hola a todos, acabo de ingresar al grupo espero poder ayudar bastante.

La clave de tu problema esta en que la propiedad MoveFirst lo que hace
devolver el cursor que apunta al recordSet (el cursos necesita ir y volver),
para lo cual miguel te escribio en una parte esto: rs.Open strSql, conn, 3,
3
el primer "3" es el tipo de curso que debes utilizar, tambien pudes con el
"1".

Esto del cursor es algo extenso a ver si despues lo explicamos.

Juan Carlos Pulido suarez
ALEPHART
Bogotá - Colombia


"Miguel González" escribió en el mensaje
news:#
Prueba "setear" el recordset:

Set obRec=obCmd.Execute()

De todas formas, yo utilizaría algo más simple:

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "FILE NAME=G:\Inetpub\wwwroot\conexion\pruebas.udl""
Set rs = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT ... "
rs.Open strSql, conn, 3, 3
rs.MoveFirst
Do While Not rs.EOF
' AQUI LOS REGISTROS
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

Aunque nunca he utilizado el UDL. Supongo que funcionará.

Saludos!
Miguel

"Sergio Forever" escribió en el mensaje
news:upmFb.258280$
Buenas.Estoy aprendiendo a programar en ASP y me gustaria saber porque me


da
el siguiente error:
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01B6)
El objeto no acepta esta propiedad o método: 'MoveFirst'
/conexion/TMPkbukjq9e8t.asp, línea 29

Estaba probando y de un libro copie un ejemplo que trabajaba con ODBC y yo
lo he modificado para que trabaje con Universal Data Link y no se si


tendrá
algo que ver aunque pienso que no.

Os dejo mi codigo haber si me decís porque me casca.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% option explicit %>
<!-- #INCLUDE File="ADOVBS.inc" -->
<html>
<head>
<title>Pruebas</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<% const dbCon="FILE NAME=G:\Inetpub\wwwroot\conexion\pruebas.udl"
dim Conex
dim obCmd
dim sql
dim obRec
set Conex=Server.CreateObject("ADODB.Connection")
set obCmd=Server.CreateObject("ADODB.Command")
Conex.open dbCon
obCmd.ActiveConnection=Conex
obCmd.CommandType=adCmdText
sql="SELECT DISTINCT oficio, apellido FROM emple GROUP BY oficio,apellido"
obCmd.CommandText=sql
obRec=obCmd.Execute()%>
<center>
<table border="1">
<tr>
<th>Oficio</th>
<th>Apellido</th>
</tr>
<% obRec.MoveFirst
while not obRec.Eof %>
<tr>
<td><%=obRec(0) %></td>
<td><%=obRec(1) %></td>
</tr>
<%obRec.MoveNext()
wend
obRec.Close()
Conex.Close()%>
</table>
</center>

</body>
</html>


Gracias por vuestra ayuda!!Salu2.


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida