Ver Mensaje Individual
  #1  
Antiguo 15-03-2012
Zucra Zucra is offline
Miembro
NULL
 
Registrado: nov 2011
Posts: 19
Reputación: 0
Zucra Va por buen camino
No logro llenar la ComboBox (TIBQuery Interbase)

Hola, bueno mi pregunta es la siguiente, tengo un ComboBox que quiero llenar con los datos de una tabla de la base de datos que esta hecha en InterBase para eso utilizo un TIBQuery, creo que tengo todo bien hecho, pero cuando ejecuto el programa, no me muestra nada en el combobox, aca les dejo el codigo a ver si me pueden decir en que le estoy errando.

Código Delphi [-]

//aca es donde llenaria el ComboBox

procedure TFormClientes.ModClienteClick(Sender: TObject); //ModCliente es mi ComboBox
begin
    cajaCuenta.SelClienteNombre.Close;      //SelClienteNombre es el TIBQuery
    cajaCuenta.SelClienteNombre.ParamByName('nombre').AsString:=ModCliente.Text;
    cajaCuenta.SelClienteNombre.Open;
    NC.Text:=cajaCuenta.SelClienteNombre.Fields[1].AsString;
    DC.text:=cajaCuenta.SelClienteNombre.Fields[2].AsString;
    TC.text:=cajaCuenta.SelClienteNombre.Fields[3].AsString;
    MC.text:=cajaCuenta.SelClienteNombre.Fields[4].AsString;
end;


//Y aca el TIBQuery visto como texto

object SelClienteNombre: TIBQuery
    Database = Caja.Base
    Transaction = Caja.IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'Select * From Cliente where nombre = :nombre')
    Left = 320
    Top = 216
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'nombre'
        ParamType = ptUnknown
      end>
  end

Espero que puedan ayudarme, y si necesitan mas datos, estare por aca para ponerlos

Gracias

Última edición por Zucra fecha: 15-03-2012 a las 14:05:29.
Responder Con Cita