de listbox a tabla

[donpedro]

hola, estoy realizando un sistema para colegios y tengo un modulo donde asigno las materias a cada grado. tengo un edit que me acepta el codigo del grado que voy a utilizar, y tengo un listbox1 con todas las materias que estan registradas. tengo otro listbox2 donde voy a pasar las materias del listbox1 que ese grado va a utilizar. ejemplo:


lo que deseo es grabar los datos del listbox2 en una tabla obteniendo el codigo del grado y grabarlo que que quede por ejemplo:

materiaid ! descripcion
-----------!-----------------
5 ! ciencias naturales
5 ! ciencias sociales
5 ! conducta
5 ! educ. artistica

estoy usando el siguiente codigo pero no me funciona:::

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
begin
dmdatos.ATMATERIAS.Append;
for a := 0 to listbox2.count -1  do
  dmdatos.ATMATERIASMATERIAID.AsString:=edit1.Text;
  dmdatos.ATMATERIASDESCRIPCION.AsString:=listbox2.Items.Text;
                          dmdatos.ATMATERIAS.Post;

necesito ver sus opiniones,,, espero que me hallan entendido,,, y gracias....

[[newtron]]

Hola, no dices qué problema es el que te da pero en principio deberías de cambiar el "append" de sitio y ponerlo debajo del "for".

Saludos

[donpedro]

hola newtron, el problema es que solamente me graba el primer items del listbox, y lo que quiero es que grabe el primero luego siga con los demas agregandole a cada uno el codigo del grado que esta en el edit.

[jafera]

Hola, prueba así

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);var a:integer;
begin  
for a := 0 to listbox2.count -1  do  
begin
             dmdatos.ATMATERIAS.Append;  // cambia de posición tal como dice newtron
             dmdatos.ATMATERIASMATERIAID.AsString:=edit1.Text;
             dmdatos.ATMATERIASDESCRIPCION.AsString:=listbox2.Items.Text;
             dmdatos.ATMATERIAS.Post;
             dmdatos.ATMATERIAS.Next;   // añade
end;

Saludos

[donpedro]

hola jafera, le hice los cambios pero aun asi solo me graba el primer item del listbox,, parece que el for no lo esta recorriendo

[jafera]

Perdón, habia cogido el código de un uso mio que lo hago desde una tabla, tu lo que tienes que hacer es un next al item del listbox2

listsbox2.Items.Next;

procedure TForm1.Button1Click(Sender: TObject);var a:integer;
begin
for a := 0 to listbox2.count -1 do
begin
dmdatos.ATMATERIAS.Append; // cambia de posición tal como dice newtron
dmdatos.ATMATERIASMATERIAID.AsString:=edit1.Text;
dmdatos.ATMATERIASDESCRIPCION.AsString:=listbox2.Items.Text;
dmdatos.ATMATERIAS.Post;
listbox2.Items.Next; // añade
dmdatos.ATMATERIAS.Next; // quita
end;


A ver así

Saludos

[donpedro]

hola a todos, volviendo al tema... agregue los listbox1 y listbox2 donde en el listbox2 cargo todas las materias y en el listbox1 asigno las materias que va a utilizar un grado o un curso. anteriormente como materia asignada estaba guardando en la tabla el nombre de la materia, pero se daba el caso como comento martinS, que si se cambiaba o modificaba una materia esta no se iba a modificar en la tabla de materias asignadas. por tal motivo decidi en vez de guardar el nombre de la materia, guardar el id de la materia.


antes cuando grababa el nombre de la materia podia utilizar este codigo para comparar las materias de la tabla materias que no estan en la tabla materias asignadas y asi cuando le de a grabar solo me guarde la materia que no esta.

Código Delphi [-]
with dmdatos do
begin
if not aqmaterias.locate('descripcion',listbox1.items.strings[x],[]) then
...
...
end;

pero ahora al guardar el id de la materia tengo que hacer consultas para saber que materia es,y luego cuando incluya otra materia saber que id tiene para comparar ese id y ver si no se encuentra en materias asignadas para poder grabarla lo que pido es que me ayuden a realizar esas consultas,, he intentado pero no me ha dado resultado.... espero haberme explicado.....

muchos preguntaran porque grabar el id,,, bueno si hago algun cambio en una de las materias en la otra tabla cuando seleccione la materia por medio del id va a salir actualizada............

gracias de antemano

[Casimiro Notevi]

Por favor, cumple con nuestra guía de estilo, no crees otro hilo para continuar este mismo, gracias.
He pegado el otro mensaje a este, además veo que es lo mismo, que lo has copiado.
Y el título descriptivo también es muy descriptivo: 'consultas'
Gracias por tu colaboración.