donde esta el error???

[UREÑA]

hola amigos!! lo que quiero hacer es lo siguiente:

tengo una tabla de materias, cada materia tiene su id que consta de 3 caracteres ejemplo. 001
tengo otra tabla que se llama Alu-Mat en la cual tengo un campo que se llama cursadas en cual se agrega el id de la materia que se curso ejemplo: 001002003 conforme se cursa una materia se le agregan 3 digitos que son el id de la materia al campo de cursadas

bueno lo que yo quiero es comparar el campo de cursadas con un id de la materia seleccionada en un combo y que me muestre el id del alumno(matricula) que no ha cursado esa materia

este es el codigo que tengo

espero haberme explicado gracias

Código SQL [-]
begin

  frm_DataModule.qry_AluMat_APM.Close;
  frm_DataModule.qry_AluMat_APM.SQL.Clear;
  frm_DataModule.qry_AluMat_APM.SQL.Add('SELECT ALUMNO.MATRICULA, ALU_MAT.CURSADAS FROM (ALUMNO INNER JOIN CALIFICACION ON ALUMNO.MATRICULA = CALIFICACION.MATRICULA) INNER JOIN ALU_MAT ON ALUMNO.MATRICULA = ALU_MAT.MATRICULA ');
  frm_DataModule.qry_AluMat_APM.SQL.Add('WHERE (((ALUMNO.AREA_ACADEMICA)='+VarToStr(combo_AA.keyvalue)+') AND ((CALIFICACION.ID_PERIODO) = '+QuotedStr(VarToStr(combo_Periodo.keyvalue))+'))');
  frm_DataModule.qry_AluMat_APM.SQL.Text;
  frm_DataModule.qry_AluMat_APM.Open;

  if frm_DataModule.qry_AluMat_APM.RecordCount <> 0 then
    begin
      incrementa := 0;
      while not (frm_DataModule.qry_AluMat_APM.eof) do
       begin
        cadena := frm_DataModule.qry_AluMat_APM.Fields[1].AsString;
        compara := Length(trim(cadena ));
        y := 1;
        incrementa := 0;
          for x := 0 to compara do
          begin
            cuatro := copy( cadena,y, 3 );
            y := y + 3;
            incrementa := incrementa +1;

            if cuatro = VarToStr(combo_Materia.KeyValue) then
            begin
              inc(z);
            end;

            if ((incrementa - 1 = compara) and (z = 1)) then
            begin
            ListBox1.Items.Add(frm_DataModule.qry_AluMat_APM.Fields[0].AsString);
            frm_DataModule.qry_AluMat_APM.next ;
            end ;
          end; //for end

       end; //while end

    end ;

end;

[[Caral]]

Hola
La verdad tal vez o lo mas seguro es que no entiendo el problema, por que para mi el problema esta en la manera de hacerlo, creo que se complica mas de lo necesario, siendo realmente simple.
Tengo entendido que hay:
Materias:
001
002
etc...
Alumnos.
A
B
C
etc...
Bueno un alumno puede cursar varias materias
A001003
B002003
C001
Si es asi, como lo entiendo, entonces por que actualizar el campo cursos con todas la materias, es preferible incluir en cursos en vez de actualizar, una vez cursada la materia, se borra y ya.
Saludos

[UREÑA]

muy buena idea Caral voy a intentarlo gracias!!

yo te aviso haber como me fue una vez mas gracias!!

[ContraVeneno]

Perdón que insista, pero mi punto de vista es que es mil veces mejor tener una tabla donde se guarde el ID del alumno y el ID de la materia cursada.

Un simple join a esa tabla te dirá que alumnos han cursado que materias.

edito---------
y te ahorrarías mucho de lo que estas tratando de hacer ahora.

[UREÑA]

ya hice lo que me dijiste caral

pero me da un problema con el delete es que no me borra los tres caracteres que le pido?? que estoy haciendo mal o que me falta??

Código SQL [-]
  if frm_DataModule.qry_AluMat_APM.RecordCount <> 0 then
    begin
      while not (frm_DataModule.qry_AluMat_APM.eof) do
        begin
          cadena := frm_DataModule.qry_AluMat_APM.Fields[1].AsString;
          compara := Length(trim(cadena ));
          y := 1;
        
          for x := 0 to compara do
          begin
            tres := copy( cadena,y, 3 );
            y := y + 3;
            
            if tres = VarToStr(combo_Materia.KeyValue) then
            begin
              inc(z);
              Delete(cadena, y-3, 3);
               ListBox1.Items.Add(frm_DataModule.qry_AluMat_APM.Fields[0].AsString);
              frm_DataModule.qry_AluMat_APM.next ;

            if z = 1  then

              frm_DataModule.qry_AluMat_APM.next ;
           end;



          end;

       end; //while end

[UREÑA]

hola ContraVeneno

si tengo una tabla como la que tu dices se llama alumat
en ella tengo la matricula del alumno y un campo que se llama cursadas en cursadas tengo todos los id de las materias lo que quiero es borrar el id de la materia que se le va a asignar al alumno
anteriormente lo estaba haciendo al reves queria añadir los tres caracteres del id de la materia al campo de cursadas pero Caral me dio una mejor idea y es la que es desarrollando

gracias por sus criticas me ayudan mucho