Items de Combobox con Tabla Paradox

[lKinGl]

Salud2 amigos foristas.

quisiera saber como llenar un combobox con los datos del campo de una tabla en paradox

estoy intentando y llevo este código


Table1.First;
while Table1.Eof do
begin
combobox1.Items.Add(Table1.FieldValues['medida']);
end;


la conexion es esta


table1.databasename:=ExtractFilePath(application.ExeName)+'Data';
table1.TableName:='medidas';
table1.open;


Gracias adelantadas :(

[marcoszorrilla]

Table1.First;
while Table1.Eof do
begin
combobox1.Items.Add(Table1.FieldValues['medida']);
Table1.Next;
end;

No obstante si utilizas un DblookUpComboBox te ahorrarías todo el código.

Un Saludo.

[lKinGl]

marcoszorrilla muchisimas gracias por responder pero tu solucion no me ha funcionado no se por que se comporta igual que como yo lo tenia, tengo windows vista sp1 tendrá eso algo que ver?

se aceptan otras soluciones

y no apliqué el DblookUpComboBox por que no se como se usa :(

ahora lo tengo así


form1.Table2.First;
while form1.Table2.Eof do
begin
combobox1.Items.Add(form1.Table2.FieldValues['medida']);
form1.Table2.Next;
end;

[lKinGl]

porfa necesito saber :S:S:S gracias adelantadas

[lKinGl]

waaaaaa no consigo lograrlo :S

[egostar]

porfa necesito saber :S:S:S gracias adelantadas

waaaaaa no consigo lograrlo :S

Pero, te da algun error, o que es lo que pasa, sin información es dificil ayudar.

Salud OS

[lKinGl]

no da error, ni nada, es como si pusieras un combobox en un formulario sin codificar asi de simple :S

este es mi codigo


form1.Table2.First;
while form1.Table2.Eof do
begin
combobox1.Items.Add(form1.Table2.FieldValues['medida']);
form1.Table2.Next;
end;

[egostar]

Ah vaya, ya veo el problema


form1.Table2.First;
while not form1.Table2.Eof do begin
combobox1.Items.Add(form1.Table2.FieldByName('medida').AsString);
form1.Table2.Next;
end;


Pequeño detalle, el barrido de la base solo la estas haciendo cuando es fin de archivo :D y debe ser al contrario, cuando NO sea fin de archivo.......

Edito, otro detalle que veo es el FieldValues, yo usaría FieldByName('medida').AsString

Salud OS

[lKinGl]

jajajaja dios mio que pena :( gracias por tu ayuda amigo

[Marwuinh]

Podrias indicar como quedo al final lo que hiciste

[lKinGl]

Podrias indicar como quedo al final lo que hiciste


Salu2 Marwuinh, mira yo lo hago de esta forma coloco 1ero que nada 1 componente Timer1 ok doy doble click y ahi coloco este código:


if ComboBox#.Text='Seleccione' then
begin
ComboBox#.Clear;
ComboBox#.Text:='Seleccione ';
Table#.First;
while not Table#.Eof do
begin
combobox#.Items.Add(Table#.FieldValues['campo_clave']);
Table#.Next;
end;
end;
exit;


eso es todo, hazlo y nos cuentas como te fué salu2

[Marwuinh]

Si hice lo que me dijste y realmente funciona, gracias

[lKinGl]

me alegro haberte ayudado amigo...