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....