SoloCodigo

Programación General => Delphi => Mensaje iniciado por: VeRaCrUzAnItO-10- en Domingo 6 de Noviembre de 2005, 04:16

Título: Consultas A Un Bd En Delphi+acces
Publicado por: VeRaCrUzAnItO-10- en Domingo 6 de Noviembre de 2005, 04:16
Hola,

Alguien sabe como acer una consulta en delphi+access? :huh:

He intentado de tres formas:

*suiedit11.text:= DataModule1.Empresas['rfc'];
* suiedit12.Text:=datamodule1.Qempresas.Fields[1].AsString;
*suiedit12.Text:=datamodule1.Qempresas;

Les agradeceria su ayuda o alguna referencia!!, gracias.
Título: Re: Consultas A Un Bd En Delphi+acces
Publicado por: Ayla en Martes 8 de Noviembre de 2005, 09:38
Hola.

Mira a ver si tienes todos los componentes enlazados correctamente.

Comprueba si tienes activada o abierta la tabla,query y demás.

Y por ejemplo, con esto:

Código: Text
  1. suiedit11.text:= DataModule1.Empresas.FieldByName('rfc').AsString;
  2.  

Te debe funcionar.


Espero que te sirva. Un saludo.
Título: Re: Consultas A Un Bd En Delphi+acces
Publicado por: VeRaCrUzAnItO-10- en Miércoles 9 de Noviembre de 2005, 05:39
Muchas, muchas gracias!.

Oye otra pregunta, quiero mostrar en un memoel resultado de 5 busquedas ,pero una borra a la otra y solo aparece la ultima de las 5, como le hago para que el memo ponga las 5 consultas y no se borra la una  a la otra, mi codigo es este:

     
Código: Text
  1. datamodule1.QAgreEmpleo.SQL.Text:='select * from agr_empleos';
  2.       datamodule1.QAgreEmpleo.Open;
  3.       suimemo3.Text:=datamodule1.QAgreEmpleo['descripcion'];
  4.       suimemo3.Text:=datamodule1.QAgreEmpleo['localidad'];
  5.       {richedit1.Text:=datamodule1.QAgreEmpleo['especifique'];
  6.       richedit1.Text:=datamodule1.QAgreEmpleo['giro'];
  7.       richedit1.Text:=datamodule1.QAgreEmpleo['modalidad'];
  8.       richedit1.Text:=datamodule1.QAgreEmpleo['salario'];
  9.       richedit1.Text:=dataModule1.QAgreEmpleo['inicio']; }
  10.       datamodule1.QAgreEmpleo.Close;
  11.  

Saludos
Título: Re: Consultas A Un Bd En Delphi+acces
Publicado por: Ayla en Miércoles 9 de Noviembre de 2005, 13:45
Hola.

Asi creo que te funcionaria:

Código: Text
  1. richedit1.Text:=datamodule1.QAgreEmpleo['especifique'] + ' ' +
  2.                                   datamodule1.QAgreEmpleo['giro'] +  '  ' +
  3.                                   datamodule1.QAgreEmpleo['modalidad'] + ' ' +
  4.                                   datamodule1.QAgreEmpleo['salario'] + '  ' +
  5.                                   dataModule1.QAgreEmpleo['inicio'];
  6.  
  7.  

Espero que te sirva.

Saludos.