pasar de un dbgrid a un listbox

[Goyo]

Caral:

Te comento que el error era que en el DataSource tenia DM.DsPersonas y no erá así, en la propiedad DataBaseName puse el alias correspondencia1 (asi se llama el alias del sistema de correspondencia, y si funcionó.....

gracias por tu ayuda, por fin logre que se agreguen los datos del DBgrid a un ComboBox al igual que a un Memo, solo que ahora cada vez que pulso el boton agregar, me elimina el que ya estaba insertado en el ComboBox, como hacerlo para que se vayan agregando al ComboBox las personas, sin que borre la que ya esta agregada... pongo el codigo para veas como quedo:

Código Delphi [-]
procedure TFormCaptura.BitBtnAgregarClick(Sender: TObject);
begin
   AQTemp.SQL.Text := 'Select Titular From Personas Where id_personas = '+DBEdit6.Text;
   AQTemp.Open;
   ComboBox1.Items.Text := AQTemp.Fields[0].AsString;
   memo1.Text:= AQTemp.Fields[0].AsString;
end;

tambien lo puse en un Memo1 para checar el problema, y creo que es mejor, porque de ahi se ven las personas que ya estan en la lista.

saludos...

[[Caral]]

Hola Goyo
Me alegro que te sirva
Recuerda siempre la sentencia que usas.
Si usas text, pues es eso texto o poner en.
Si usas ADD, Pues que hace, añade.
Si cabias la sentencia por esto, te añadira lo que quieres al combobox.

Código Delphi [-]
procedure TFormCaptura.BitBtnAgregarClick(Sender: TObject);
begin
   AQTemp.SQL.Text := 'Select Titular From Personas Where id_personas = '+DBEdit6.Text;
   AQTemp.Open;
   ComboBox1.Items.ADD (AQTemp.Fields[0].AsString);
   memo1.Text:= AQTemp.Fields[0].AsString;
end;

Fijate bien en los cambios, asi aprendemos los dos.
Saludos

[yusnerqui]

Código Delphi [-]
procedure TFormCaptura.BitBtnAgregarClick(Sender: TObject);
begin
   AQTemp.SQL.Text := 'Select Titular From Personas Where id_personas = '+DBEdit6.Text;
   AQTemp.Open;
   ComboBox1.Items.add(AQTemp.Fields[0].AsString);
   memo1.lines.Add(AQTemp.Fields[0].AsString);
end;

Saludos.

[yusnerqui]

Yo lo que no entiendo realmente es por qué hacer otra consulta, si he entendido bien los datos se muestran en un dbgrid, es decir ya hay un componente TDataset apuntando a esa tabala de la base de datos, pues yo simplemente pondría:

Código Delphi [-]
 //Suponiendo que el dataset que "alimenta" al debgrid se llame DSPersonas
  ComboBox1.Items.add(DSPersonas.FieldByName('Titular').AsString);
  memo1.lines.Add(DSPersonas.FieldByName('Titular').AsString);

Saludos