|
Gusanita, me paso lo mismo que a vos. Genere este codigo, pero sigo sin poder cargar mi combo...
procedure TfNuevoSocio.FormCreate(Sender: TObject);
var
q : TSQLQuery;
s : TDatasource;
begin
try
q := TConexion.getQuery;
q.SQL.Text := Concat(' Select codigoProvincia, Provincia '#13,
' From Provincias ');
s := tdatasource.Create(self);
s.DataSet := q;
q.Open;
cbProvincia.ListSource := s;
cbProvincia.ListField := 'Provincia';
cbProvincia.KeyField := 'codigoProvincia';
finally
FreeAndNil(q);
end;
end;
|