FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
luegode la busqueda los DBedit estan bloqueados
hola a todos...
Estoy haciendo un programa que contiene 3 tablas t1, t2, t3 en las que inserto, modifico, elimino los registros de estas tablas mediante las instrucciones tabla.insert... tabla.edit...tabla.delete... y me funciona bien.. La consulta la estoy realizando mediante Tquery y tambien me funciona.. El problema viene cuando consulto un registro para luego eliminarlo o modificarlo, ya que luego que regresa la busqueda los DBedit estan como bloqueados.. y no permiten escritura.. a que se debe esto Este es el codigo de busqueda if editorcodigo <> nil then qrycodigo.Close; qrycodigo.ParamByName('Codigo').AsInteger := StrToInt(editorcodigo.text); Dscodigo.dataset := qrycodigo; qrycodigo.Open; el codigo del query es SELECT *FROM tb1, t2, t3 WHERE (tb1.c1 = t2.c2) AND (t2.c2 = t3.c2) AND (t2.c2 = :Codigo) El gestor es paradox Espero me haya podido explicar |
#2
|
||||
|
||||
Desde un Query que une varias tablas, en paradox, no se puede borrar, y mucho menos mantener la integridad referencial, por tanto:
- Te queda anotar el codigo o clave primaria de cada tabla, y despues borrarlo de las 3 tablas. Para el borrado, puedes hacer una consulta con: Y repetir el proceso para las 2 tablas. O bien hacer: Personalmente prefiero la primera, ya que no mueve el registro activo de esa tabla. Un saludo, y recuerda englobar entre [ delphi ] y [ /delphi ] tu código para que sea más legible. Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#3
|
|||
|
|||
funciona perfecto para borrar pero para incluir o modificar??
Hola!!!!
Muchas gracias me funciono perfecto para borrar pero si lo que quiero es incluir o modifica registros como tengo que hacer?? lo estoy haciendo de la siguiente manera Tb1.Insert; Tb1.FieldByName('c1').AsString := Clave; Tb1.FieldByName('c2').AsString := clave2; Tb1.FieldByName('c3'.AsString := clave3; Tb1.Post; Tb1.Next; Tb1.FlushBuffers; Tb1.Close; Quisiera hacer la inclusion y modificacion mediante Tquery |
#4
|
||||
|
||||
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
|
|
|