Cita:
Empezado por douglas
buenas chicos, aqui miren sigo molestandolos y molestandolos, pero bueno espero que almenos todas mis dudas las aproveche otras personas que foreen, al igual que las aprovecho yo, disculpen la molestia, pero hago lo siguiente, supuestamente para ver si la fecha ya existen en esa tabla, si ya existe que tire un mensaje diciendo que no puede almacenar, y si no existe que almacene, pero no funciona, y no me tira ningun mensaje, perdon chicos, pero me quede crudo con las ideas, les dejo aqui el codigo para que los inspeccionen:
|
normal que no te funcione , vaya cacao maravillao has montao en esa busqueda.
primero
deberias hacer un query filtrando de la forma
Query2.SQL.Text:='select fecha from ciber where fecha=:f';
Query2.parambyname('f').datatype:=ftdatetime;
Query2.parambyname('f').value:=StrtoDatetime(A);
Query2.open;
if query2.recordcount>0 then Showmessage('Error , la fecha ya existe');
Query2.close;
luego , donde pones table1.append , aqui deberia ir un table1.post , ya que no tiene sentido lo que estas haciendo. las comprobaciones hay que hacerlas antes de guardar datos (post) , el append es para añadir un nuevo registro en blanco.
lo que debes hacer es ,
1º table1.append o table1.edit
2º establecer los valores que quieras en los campos o controles enlazados a los campos de la tabla.
3º antes de hacer table1.post , buscar con el query la fecha , si la encuentras no hacer post y sacar mensaje , sino , puedes hacer post y guardar los cambios.
Saludos.