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
DRAGON AGE™: INQUISITION – Matadragones
 

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.


Preguntas similares

 

Busqueda sugerida :