Tengo un problema en el siguiente código Código Delphi
Código Delphi
[-]JvOpenDialog.InitialDir := ExtractFileDir(Application.ExeName);
If JvOpenDialog.Execute then
begin
with dmDBExport.IBDataSet do
begin
SelectSQL.Clear; SelectSQL.LoadFromFile(JvOpenDialog.FileName); try
Open;
frmDBExport.Caption := 'Informe de la Consulta Personalizada ';
Label1.Caption := sTabla;
JvxCheckListBox1.Clear;
JvxCheckListBox2.Clear;
JvXPCheckbox1.Caption := 'Seleccionar Todo';
JvXPCheckbox1.Checked := False;
JvXPCheckbox2.Caption := 'Seleccionar Todo';
JvXPCheckbox1.Checked := False;
GroupBox2.Caption := 'Campos de la Tabla ' + sTabla;
for nIdx := 0 to FieldCount - 1 do
JvxCheckListBox1.Items.Add(dmDBExport.IBDataSet.Fields[nidx].AsString); SpeedButton.Enabled := JvxCheckListBox1.SelCount > 0;
except
on Exception do Exception.Create('La consulta no es válida. Revise el fichero ' + stabla);
end;
end;
La Cosa es que quiero cargar la lista de los campos resultantes de la consulta y lo que obtengo es el contenido de los mismos no su nombre.
P.D. Utilizo D2006 + Firebird 1.5 con Ibx.