ASP - no funciona move.Toy desesperao ya

 
Vista:

no funciona move.Toy desesperao ya

Publicado por erque (45 intervenciones) el 12/03/2004 18:56:06
Hola.

Tengo el problema de no poder controlar el movimiento en la base de datos con los tipicos movenext, moveprevious, etc. A continuación expongo como abro la base de datos ado a ver si alguien me puede decir donde está el error.
Dim objConn, objRst
Set objConn = Server.CreateObject("ADODB.Connection")
With objconn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & server.MapPath("clientes.mdb")
.Open
End With
Set objRst = Server.CreateObject("ADODB.Recordset")
objrst.open "SELECT * FROM Clientes", objConn,adLockOptimistic

Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:no funciona move.Toy desesperao ya

Publicado por FISICO (113 intervenciones) el 13/03/2004 13:20:22
Creo que tu error es que al hacer la consulta de SQL es que el registro posicionado es el ultimo checa com

movefirst
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:no funciona move.Toy desesperao ya

Publicado por erque (45 intervenciones) el 13/03/2004 15:06:42
Gracias por contestar. Me sigue sin funcionar. Tengo puesto lo siguiente para navegar por los registros, pero si pulso la opcion ">" no me pasa del registro 2 y si pulso primero ">>" se va al registro 5 que es el último, pero al pulsar sobre "<" se va al primero en lugar del ir al 4. Yo creo que el código lo pongo bien, debe ser la forma de abrir la base de datos.
select case Request.Form("Button1")
case "<<"
objrst.MoveFirst
case "<"
objrst.MovePrevious
if objrst.bof then
objrst.MoveFirst
end if
case ">"
objrst.MoveNext
if objrst.EOF then
objrst.MoveLast
end if
case ">>"
objrst.MoveLast
case "Salir"
objrst.close
set objrst=Nothing
objconn.close
set objconn=Nothing
response.redirect("default.asp")
end select
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:no funciona move.Toy desesperao ya

Publicado por FISICO (113 intervenciones) el 13/03/2004 16:13:42
Asi lo hago yo

Set Con = Server.CreateObject ("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("./BD/bd.mdb")

Set rsSmut = Server.CreateObject("ADODB.Recordset")
qry="Select * f"

rsSmut.Open qry, Con

y creo que tu error esta en ese case ya que el objconn al darle siguiente se refresca la pagina y ya no te funciona

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar