JPALBOX
23 de Julio del 2002

como se modificaria este codigo si quiero q despues de haber ejecutado la insercion me salga un mensaje de OK o bien si no se ejecuto pq alguna de sus condiciones no se cumplio q salga un mensaje de error. Gracias Ahi pongo el codigo.

nsocio = Request.Form("nsocio")
usuario = Request.Form("usuario")
password = Request.Form("password")
nombre = Request.Form("nombre")
apellidos = Request.Form("apellidos")

'Abre la conexion con la base de datos a traves de una conexion ODBC
Set con = Server.CreateObject("ADODB.Connection")
'Como vamos a utilizar la variable rs del tipo recordset para recorrer los registros con EOF
Set rs = Server.CreateObject("ADODB.Recordset")
con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("jpalboxdbusuarios.mdb"))


sql = "UPDATE Personal SET password ='" & password & "', usuario='" & usuario & "' WHERE nsocio='" & nsocio &"' and nombre = '" & nombre &"' and apellidos ='" & apellidos &"'"
con.Execute(sql)


'Libera memoria
con.Close
Set con = Nothing

David
23 de Julio del 2002

El método execute, además del CommandText, tiene un argumento RecordsAffected que devuelve el número de registros afectados por la instrucción sql. Si este argumento toma el valor 0 es que la consulta no se ha ejecutado correctamente. Para capturarlo, añade lo siguiente (la variable sReg almacena el número de registros afectados):

con.Execute(sql, sReg)
if sReg=0 then
Response.Write 'Mensage de error
else
Response.Write 'Mensage de acierto
end if