jasrgeo
27-02-2008, 01:15:25
Hola amigos del foro antes que nada buen dia, soy nuevo en esto de programar en delphi, asi he recurrido a los expertos haber si me pueden orientar un poco.
ya he logrado insertar, borrar y actualizar un registro, pero me ha surgido un granduda en un programita que estoy realizando como practica. por cierto es un agenda.
Este es mi codigo de insersion de registros hasta aqui todo bien :)
procedure TForm3.btnguardarClick(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Add('INSERT INTO `agenda`.`contactos`(`id_contacto`,`nom_contacto`,`apellidopat_contacto`,`apellidomat_contacto`,`eda d_contacto`,`tel_contacto`,`email_contacto`)VALUES (NULL , '''+cnombre.text+''','''+capaterno.Text+''','''+camaterno.Text+''','''+cedad.Text+''','''+ctelefono. Text+''','''+cemail.Text+''')');
Query1.ExecSQL;
//Borrar las cajas de texto
cnombre.Clear;
capaterno.Clear;
camaterno.Clear;
cedad.Clear;
ctelefono.Clear;
cemail.Clear;
end;
El problema es que se me ocurrio hacer un modulillo de busqueda de contactos, tengo una idea de como hacer la consulta de busqueda que es esta:
procedure TForm3.btnbuscarClick(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Add('SELECT * FROM contactos WHERE `nom_contacto` LIKE '''+cbuscar.Text+'''');
Query1.ExecSQL;
//Lo que no tengo ni idea es como recuperar el registro y mostrarlos en los campos.
los campos son:
cnombre.text
capaterno.text
camaterno.text
ctelefono.text
cemail.text
Query1.Open;
end;
Espero y me este dando a entender lo que quiero es recuperar los datos de la consulta y mostrarlos en los tedit.
ya he logrado insertar, borrar y actualizar un registro, pero me ha surgido un granduda en un programita que estoy realizando como practica. por cierto es un agenda.
Este es mi codigo de insersion de registros hasta aqui todo bien :)
procedure TForm3.btnguardarClick(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Add('INSERT INTO `agenda`.`contactos`(`id_contacto`,`nom_contacto`,`apellidopat_contacto`,`apellidomat_contacto`,`eda d_contacto`,`tel_contacto`,`email_contacto`)VALUES (NULL , '''+cnombre.text+''','''+capaterno.Text+''','''+camaterno.Text+''','''+cedad.Text+''','''+ctelefono. Text+''','''+cemail.Text+''')');
Query1.ExecSQL;
//Borrar las cajas de texto
cnombre.Clear;
capaterno.Clear;
camaterno.Clear;
cedad.Clear;
ctelefono.Clear;
cemail.Clear;
end;
El problema es que se me ocurrio hacer un modulillo de busqueda de contactos, tengo una idea de como hacer la consulta de busqueda que es esta:
procedure TForm3.btnbuscarClick(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Add('SELECT * FROM contactos WHERE `nom_contacto` LIKE '''+cbuscar.Text+'''');
Query1.ExecSQL;
//Lo que no tengo ni idea es como recuperar el registro y mostrarlos en los campos.
los campos son:
cnombre.text
capaterno.text
camaterno.text
ctelefono.text
cemail.text
Query1.Open;
end;
Espero y me este dando a entender lo que quiero es recuperar los datos de la consulta y mostrarlos en los tedit.