SoloCodigo

Hola amigos, otra vez...aqui..esto es interminable!!

Esta vez la duda q me surge, es la siguiente:

Tengo una tabla DEUDAS, en la q hay un importe por cada apunte, y yo calculo una cosa, para q cada importe de esa deuda se le reste una cantidad.
Pero no me recorre toda la tabla, pq solo me lo hace en el primero...

el codigo es este:

    qrApuntes->SQL->Clear();
    qrApuntes->Close();
    qrApuntes->SQL->Add("SELECT importe");
    qrApuntes->SQL->Add("FROM deudas");
    qrApuntes->SQL->Add("WHERE idMatricula=:idmatri");
    qrApuntes->ParamByName("idmatri")->AsInteger=id;//lo saco en otra arriba
    qrApuntes->Open();
    importe=qrApuntes->FieldByName("importe")->AsFloat;
    while(!qrApuntes->Eof)
    {
   // qrApuntes->SQL->Clear();
    //qrApuntes->Close();
    qrApuntes->SQL->Add("UPDATE deudas");
    qrApuntes->SQL->Add("SET importe=:im");
    qrApuntes->SQL->Add("WHERE idMatricula=:idmatri");
    qrApuntes->ParamByName("idmatri")->AsString =id;
    qrApuntes->ParamByName("im")->AsFloat=(importe - resta);
    qrApuntes->ExecSQL();
    qrApuntes->Next();
    }


como lo puedeo hacer..muchas gracias

Hola..

Expongo mi problema, a ver si alguien puede ayudarme:

Tengo un Tedit en el q controlo la entrada de DNI..no pueden ser letras...etc etc..
Aqui lo dejo por si a alguien le sirve:

void __fastcall TTalumnos::EbajadnialumnoKeyPress(TObject *Sender,
      char &Key)
{
if ((Key < '0' || Key > '9') && Key !=8)
 {
        Key=0;
        MessageDlg("Dni Incorrecto",mtError,TMsgDlgButtons()<<mbOK,0);
 }
}

Lo que no se como hacer es lo siguiente: yo quiero q cuando le doy a la tecla enter me haga lo q tengo en Tedit->exit, o sea cuando ya acabas de meter todos los digitos...pero cuando pulso la tecla enter, me dice DNI incorrecto, pq claro, no permito esa tecla..

¿alguien puede ayudarme?

Hola, tengo un problema con un TComboBox, resulta que tengo una tabla en mi base de datos, se llama alumno(nombre, dni,...,sexo), cuando inserto un nuevo alumno, me lo hace perfectamente asi:
 qrGeneral->SQL->Clear();
 qrGeneral->Close();
 qrGeneral->SQL->Add("INSERT INTO alumnos(DNI,nombre,sexo)");
 qrGeneral->SQL->Add("VALUES(:dni,:nombre,:sexo)");
 qrGeneral->ParamByName("dni")->AsString = Ednialtaalumno->Text;
 qrGeneral->ParamByName("nombre")->AsString = Ealtanombrealumno->Text;
 qrGeneral->ParamByName("sexo")->AsString = CBaltasexo->Text;
 qrGeneral->ParamByName("dire")->AsString =Ealtadireccionalumno->Text;
  qrGeneral->ExecSQL();
}

Pero al intentar sacar esos datos a mi formulario, me sale el TcomboBox en blanco o el item por defecto.

Lo hago asi:

 qrGeneral->SQL->Clear();
 qrGeneral->Close();
 qrGeneral->SQL->Add("SELECT *");
 qrGeneral->SQL->Add("FROM alumnos");
 qrGeneral->SQL->Add("WHERE DNI=:tipo");
 qrGeneral->ParamByName("tipo")->AsString=Ednialtaalumno->Text;
 qrGeneral->Open();
 Ealtanombrealumno->Text=qrGeneral->FieldByName("nombre")->AsString;
 CBaltasexo->Items->Add(qrGeneral->FieldByName("sexo")->AsString);
 
Y no me sale.
En mi base de datos tengo sexo como tipo text, he probado a ponerlo como tipo enum, pero tampoco

¿alguien me puede ayudar??

Muchas gracias