Foros del Web » Programando para Internet » ASP Clásico »

Ayuda con RS

Estas en el tema de Ayuda con RS en el foro de ASP Clásico en Foros del Web. Hola tengo este código: Código PHP: set rs = Server . CreateObject ( "ADODB.Recordset" ) set rs2 = Server . CreateObject ( "ADODB.Recordset" ) set rs3 = Server ...
  #1 (permalink)  
Antiguo 11/11/2003, 04:17
 
Fecha de Ingreso: julio-2003
Mensajes: 116
Antigüedad: 21 años, 10 meses
Puntos: 0
Ayuda con RS

Hola tengo este código:
Código PHP:
set rs=Server.CreateObject("ADODB.Recordset")
set rs2=Server.CreateObject("ADODB.Recordset")
set rs3=Server.CreateObject("ADODB.Recordset")
set conn=Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" Server.MapPath("\databases\db1.mdb")
cliente=UCASE(request.form("tCliente"))
fecha_act=request.form("hfFecha")
fecha_sum=request.form("tFecha2")
'fecha_act=CDate(fecha_act)
fecha_sum=CDate(fecha_sum)
albaran=UCASE(request.form("hf"))

SQL2="Insert into [pedidos-principal] ([fecha de la grabación],[fecha de suministro],cliente,[número de albarán],[preparado por]) values ('"&fecha_act&"','"&fecha_sum&"','"&cliente&"','"&albaran&"','
Miguel')"
set rs2=conn.execute(SQL2)
SQL3="Select * from [pedidos-principal] where [número de albarán]='"&albaran&""
set rs3=conn.execute(SQL3)
pedido=rs3("
pedido número")
response.write "
<br>Fecha actual"&fecha_act
response.write "
<br>Fecha de suministro"&fecha_sum
response.write "
<br>Pedido número"&pedido 
y el siguiente error:
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.

¿Por qué no me coge el valor de rs3("pedido número") si al insertar anteriormente datos en la tabla pedidos-principal (SQL2) se genera automáticamente el campo pedido número?
El campo pedido número es autonumérico, por si tiene algo que ver, que supongo que sí.
Espero vuestra ayuda. Thx.
  #2 (permalink)  
Antiguo 11/11/2003, 12:03
Avatar de lexus  
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 23 años, 4 meses
Puntos: 4
Código:
set rs=Server.CreateObject("ADODB.Recordset")
set rs2=Server.CreateObject("ADODB.Recordset")
set rs3=Server.CreateObject("ADODB.Recordset")
set conn=Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("databasesdb1.mdb")
cliente=UCASE(request.form("tCliente"))
fecha_act=request.form("hfFecha")
fecha_sum=request.form("tFecha2")
'fecha_act=CDate(fecha_act)
fecha_sum=CDate(fecha_sum)
albaran=UCASE(request.form("hf"))

SQL2="Insert into [pedidos-principal] ([fecha de la grabación],[fecha de suministro],cliente,[número de albarán],[preparado por]) values ('"&fecha_act&"','"&fecha_sum&"','"&cliente&"','"&albaran&"','Miguel')"
set rs2=conn.execute(SQL2)
SQL3="Select * from [pedidos-principal] where [número de albarán]='"&albaran&"'"
set rs3=conn.execute(SQL3)
' esto para verificar qeu si exista el dato en la base de datos
If not rs3.eof then 
pedido=rs3("pedido número")
response.write "<br>Fecha actual: "&fecha_act
response.write "<br>Fecha de suministro: "&fecha_sum
response.write "<br>Pedido número: "&pedido
else
response.write "no hay dato"
end if 
espero te sirva
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com
  #3 (permalink)  
Antiguo 12/11/2003, 06:17
 
Fecha de Ingreso: julio-2003
Mensajes: 116
Antigüedad: 21 años, 10 meses
Puntos: 0
Gracias por tu ayuda, pero sabes la gilipollez que era? Que el campo albarán era de 10 caracteres, y yo cuando generaba un número podía llegar a 11 caracteres, y por eso me daba ese error. Gracias por tu ayuda.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 16:09.