que falla?

:)) precisamente... eres tu quien tiene que decirnos cual es el error...

Sashka
MS MVP Access

"Default_Per" escribió en el mensaje
news:

con esto no puedo actualizar mi base de datos??? Que le falta o cual es el
error?
<%
cod=Request.Form("txtcod")
com=Request.Form("txtapell")
con=Request.Form("txtnombr")
cal=Request.Form("txtfechnac")
cap=Request.Form("txtfechin")
cat=Request.Form("txtdni")
cak=Request.Form("txttelf")
cakt=Request.Form("txtdircc")

Set cn=Server.CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB; Server=(local);Database½Empleado;uid=sa"
sql="Update EMPLEADO set Apellido='" & com & "', Nombre='"
sql=sql & con & "', Fecha_Nac='" & cal & "',Fecha_Inicio_Lab='" & cap &
"',DNI='" & cat & "',Telefono='" & cak & "',Direccion='" & cakt & "' where
Codigo=' "
sql=sql & cod & "'"
cn.Execute(sql)
set cn=Nothing
Response.Redirect("Administrador.asp")
%>

Que error te da?

Por otro lado, en esta linea deberias quitarle los parentesis... >>>>>
cn.Execute(sql)

Tambien verifica que la cadena SQL que creas contenga los datos que
pretendes

"Default_Per" wrote in message
news:

con esto no puedo actualizar mi base de datos??? Que le falta o cual es el
error?
<%
cod=Request.Form("txtcod")
com=Request.Form("txtapell")
con=Request.Form("txtnombr")
cal=Request.Form("txtfechnac")
cap=Request.Form("txtfechin")
cat=Request.Form("txtdni")
cak=Request.Form("txttelf")
cakt=Request.Form("txtdircc")

Set cn=Server.CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB; Server=(local);Database½Empleado;uid=sa"
sql="Update EMPLEADO set Apellido='" & com & "', Nombre='"
sql=sql & con & "', Fecha_Nac='" & cal & "',Fecha_Inicio_Lab='" & cap &
"',DNI='" & cat & "',Telefono='" & cak & "',Direccion='" & cakt & "' where
Codigo=' "
sql=sql & cod & "'"
cn.Execute(sql)
set cn=Nothing
Response.Redirect("Administrador.asp")
%>

como dije antes se supone que esta parte actualiza mi tabla empleado de mi
base de datos BDEMPLEADO, pero no lo hace.

No lo hace, pero no te dice nada???? no hay error??? o tienes por allí un on
error resume next.. si lo tienes comentalo...
Si no hay error es que no está encontrando el registro que se debe
actualizar... entonces en lugar del excute has un response.write del sql y
verofica que envias bien la condicion.

Sashka
MS MVP Access

"Default_Per" escribió en el mensaje
news:

como dije antes se supone que esta parte actualiza mi tabla empleado de mi
base de datos BDEMPLEADO, pero no lo hace.

Hola
En primer lugar, para ver si pasas realmente todos los datos, te aconsejo
usar algo como esto:

<%
For Each item In Request.QueryString("Q")
Response.Write item & "<BR>"
Next
%>

Por otro lado, te recomiendo manejar el tema de errores asi:

if error <> 0 then
Response.Write "1- Descripcion: "& Err.Description &"<br>."
Response.Write "2- Numero "& Err.Number &"<br>."
Response.Write "3- Source "& Err.Source &"<br>."
Response.Write "4- Helpfile "& Err.Helpfile &"<br>."
Response.Write "5- HelpContext "& Err.HelpContext &"<br>."
Response.Write "<center><a
href='javascript:history.back();'>Atras</a></center>"

Asi puedes saber donde está el error.

FF
www.francofigun.com.ar
www.microsofties.com.ar
MSN:
UIN: 314408886
Yahoo MSN:

"Default_Per" wrote in message
news:

con esto no puedo actualizar mi base de datos??? Que le falta o cual es el
error?
<%
cod=Request.Form("txtcod")
com=Request.Form("txtapell")
con=Request.Form("txtnombr")
cal=Request.Form("txtfechnac")
cap=Request.Form("txtfechin")
cat=Request.Form("txtdni")
cak=Request.Form("txttelf")
cakt=Request.Form("txtdircc")

Set cn=Server.CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB; Server=(local);Database½Empleado;uid=sa"
sql="Update EMPLEADO set Apellido='" & com & "', Nombre='"
sql=sql & con & "', Fecha_Nac='" & cal & "',Fecha_Inicio_Lab='" & cap &
"',DNI='" & cat & "',Telefono='" & cak & "',Direccion='" & cakt & "' where
Codigo=' "
sql=sql & cod & "'"
cn.Execute(sql)
set cn=Nothing
Response.Redirect("Administrador.asp")
%>