
18/06/2002, 13:12
|
| | Fecha de Ingreso: mayo-2002
Mensajes: 299
Antigüedad: 23 años Puntos: 0 | |
porque no funciona bien!!!! miren tengo este codigo y si inserta los valores correctamente
<%
Dim Set oConn = Server.CreateObject("ADODB.Connection")
set recordset1 = Server.CreateObject("ADODB.RecordSet")
oConn.Open "papeleria2"
login = request.form("usuario")
password = request.form("clave")
strSQL2 = "SELECT usuario from usuario "
Set objRS2 = oConn.Execute(strSQL2)
strSQL = "SELECT coordinacion from coordinacion "
Set objRS = oConn.Execute(strSQL)
strSQL4 = "INSERT INTO PREVIO_PEDIDO(id_usuario, id_coordinacion,fecha)"
strSQL4 = strSQL4&" select Usuario.id_usuario, coordinacion.id_coordinacion, '"&Request.Form("fecha")&&q uot;'"
strSQL4 = strSQL4&" from usuario, coordinacion where usuario.usuario ='"& Request.Form("nombre")&"'"
strSQL4 = strSQL4&" and coordinacion.coordinacion ='"& request.Form("dependencia")&"'& quot;
recordset1.open strsql4,oConn
%>
pero ahora necesito solo cambiar la instruccion strsql2
strSQL2 = "SELECT usuario from usuario "
Set objRS2 = oConn.Execute(strSQL2)
por esto
strSQL2 = "SELECT usuario from usuario where login = '"&login&"' "
Set objRS2 = oConn.Execute(strSQL2)
y si jala pero me marca el siguiente error a la hora de insertar los valores
ADODB.Field error '80020009'
El valor de BOF o EOF es True, o el actual registro ha sido eliminado; la operación solicitada por la aplicación requiere un registro actual.
?
que pasa puesto que si me muestra todo y por logica no puede ser un objeto vacio puesto que es una insercion de datos
que pasa no puedo avanzar me suena algo ilogico ademas de que marca ese error pues si inserta los datos pero pues se ve mal que muestre ese error
<table border=1>
<tr>
<td>
solo se que no se nada.
el que persevera alcanza. by sonneman</td>
</tr>
</table> |