![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
si la puse completa ahora mirala
|
#2
|
|||
|
|||
[delphi]
//Busca Registros en la Base de Dato por Codigo y Pais Temp.close; Temp.SQL.Text := 'Select codigo, fecha, Pais From Pais '; if edcodbuscar.Text <> '' then begin Temp.SQL.Add(' where codigo = '+EdCodBuscar.Text); Temp.Active := True; If Temp.Fields[0].AsString <> edcodbuscar.Text then begin Showmessage(' Registro No Existe '); end else EdCodBuscar.text:= Temp.Fields[0].AsString; EDfechaBuscar.text:= Temp.Fields[1].AsString; EDPaisBuscar.Text:= Temp.Fields[2].AsString; end else if EDPaisbuscar.Text <> '' then begin Temp.SQL.Add(' where Pais = '+EDPaisBuscar.Text); Temp.Active := True; if Temp.RecordCount= 0 Then ShowMessage('Registro No Existe'); EdCodBuscar.Text:= Temp.Fields[0].AsString; EdFechaBuscar.Text:= Temp.Fields[1].AsString; EDPaisBuscar.Text:= Temp.Fields[2].AsString; [delphi] |
#3
|
|||
|
|||
[delphi]
//Busca Registros en la Base de Dato por Codigo y Pais Temp.close; Temp.SQL.Text := 'Select codigo, fecha, Pais From Pais '; if edcodbuscar.Text <> '' then begin Temp.SQL.Add(' where codigo = '+EdCodBuscar.Text); Temp.Active := True; If Temp.Fields[0].AsString <> edcodbuscar.Text then begin Showmessage(' Registro No Existe '); end else EdCodBuscar.text:= Temp.Fields[0].AsString; EDfechaBuscar.text:= Temp.Fields[1].AsString; EDPaisBuscar.Text:= Temp.Fields[2].AsString; end else if EDPaisbuscar.Text <> '' then begin Temp.SQL.Add(' where Pais = '+EDPaisBuscar.Text); Temp.Active := True; if Temp.RecordCount= 0 Then ShowMessage('Registro No Existe'); EdCodBuscar.Text:= Temp.Fields[0].AsString; EdFechaBuscar.Text:= Temp.Fields[1].AsString; EDPaisBuscar.Text:= Temp.Fields[2].AsString; [\delphi] |
#4
|
|||
|
|||
|
#5
|
|||
|
|||
revisa el ultimo que te envie ecfisa
|
#6
|
||||
|
||||
Hola Agustin.
Probá de este modo:
Saludos. ![]() Última edición por ecfisa fecha: 09-10-2010 a las 01:53:05. |
#7
|
|||
|
|||
ecfisa mi hermano funciono perfectamente bien gracias
pero una pregunta mas como uso el "like" eso se utiliza para completa las palabras en la busqueda verdad o no Ejemplo yo tengo un nombre por decir Agustin en la base dato si pongo agu me lo busca asi es como funciona o si no podrias explicarmercalo por favor |
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
registro no existe | agustin173 | Varios | 19 | 15-06-2010 23:56:14 |
saber que no existe registro de ese campo | Petolansa | SQL | 4 | 31-07-2008 01:42:10 |
Como decirle a Delphi que existe un registro | gasparsi | MySQL | 5 | 30-05-2008 11:56:47 |
Verificando si un registro existe | Angel Fernández | Firebird e Interbase | 9 | 26-03-2008 18:45:21 |
No me encuentra un registro que existe, puse mal el where? | Eden | SQL | 2 | 13-02-2006 07:30:49 |
![]() |
|