Hola!!!
Tengo un problema al momento de poner los codigos en los formularios de catalogos...
Tengo que hacer unos formularios que me conecten a una base de datos en mySQL, y tienen que guardar, actualizar y eliminar.... Solo que ni me actualiza ni me guarda, y creo que es porque tengo mal la secuencia de los campos de fechas... Hice todo lo humanamente posible, pero no encuentro el error... Alguien podria ayudarme???
Aqui pongo mi codigo, y si alguien sabe en que estoy errando, puede mostrarme mi error?
Mil gracias!!!
PRIVATE WVALOR,WVALOR2
wvalor="INSERT INTO Prestamos (Folio, Cod_libro, No_Credencial, Fech_prestamo, Fech_entrega, Entrego, Observaciones) VALUES "
wvalor2="('"+thisform.wfolio.value+"',"+;
str(thisform.wlibro.value)+","+;
str(thisform.wcredencial.value)+","+;
STR(month(thisform.wfechaprestamo.VALUE))+"."+;
str(day(thisform.wfechaprestamo.VALUE))+"."+;
str(year(thisform.wfechaprestamo.VALUE))+","+;
STR(month(thisform.wfechaentrega.VALUE))+"."+;
str(day(thisform.wfechaentrega.VALUE))+"."+;
str(year(thisform.wfechaentrega.VALUE))+",'"+;
thisform.wsino.value)+"','"+;
thisform.wobservaciones.Value+"')"
IF SQLEXEC(thisform.conexion,wvalor+wvalor2)<1
wvalor="UPDATE Prestamos SET Cod_libro="+;
str(thisform.wlibro.value)+","+;
"No_Credencial="+str(thisform.wcredencial.Value)+" ,"+;
"Fech_prestamo="+str(month(thisform.wfechaprestamo .VALUE))+"."+;
str(day(thisform.wfechaprestamo.VALUE))+"."+;
str(year(thisform.wfechaprestamo.VALUE))+","+;
"Fech_entrega="+str(month(thisform.wfechaentrega.V ALUE))+"."+;
str(day(thisform.wfechaentrega.VALUE))+"."+;
str(year(thisform.wfechaentrega.VALUE))+",'"+;
"Entrego="+str(thisform.wsino.Value)+"',"+;
"Observaciones='"+thisform.wobservaciones.Value+"' "
wvalor2=" WHERE Folio='"+thisform.wfolio.value+"'"
IF SQLEXEC(thisform.conexion,wvalor+wvalor2)<1
MESSAGEBOX("No se pudo actualizar el registro",16)
ENDIF
ELSE
MESSAGEBOX("Registro actualizado",16)
ENDIF
THISFORM.wfolio.SETFOCUS
