de listbox a tabla

[*Caro*]

Hola, debes hacerlo como te indica MartinS, solo añadiendo, también puedes acceder al Item del ListBox de esta forma:

Código Delphi [-]
dmdatos.ATMATERIASDESCRIPCION.AsString:=  listbox2.Items[a];
 //y puedes utilizar With
for a := 0 to listbox2.count -1 do 
  begin 
    With dmdatos do
      begin
        ATMATERIAS.Append;
        ATMATERIASMATERIAID.AsString:=edit1.Text;
        ATMATERIASDESCRIPCION.AsString:=  listbox2.Items[a];
        ATMATERIAS.Post;
      begin
  end;

Saluditos

[donpedro]

muchas gracias martinS, y caro.... funciona a la perfeccion.. ahora estoy tratando de hacer: por ejemplo: si le asigno 5 materias a un grado y grabo,, pero se me olvido agregar otra.. como hago para que solo me grabe la nueva que voy a incluir. no se si me di a entender....
lo que estoy tratando es de crear un boton que me modifique la tabla utilizando el siguiente codigo:

Código Delphi [-]
//esto va dentro del boton modificar
with dmdatos do
begin
atmaterias.Locate('materiaid',edit1.Text,[]);
atmaterias.Edit;
end;

entonces en el boton grabar comparo si la tabla esta en insert o en edit,,, pero el programa explota y dice que no se ha podido encontrar el hilo.

lo que quiero es que la que ya estan grabadas me las deje intacta y que solo grabe la nueva que se incluyo.

como me pueden ayudar..gracias

[MartinS]

Hola donpedro: Antes que nada no se que tipo de base de datos estas usando y mucho menos su estructura. Ahora bien, en algun lugar lei que ya estas cerca de finalizar tus estudios de informatica por lo tanto "solo expondre" la idea de lo que YO haria:

1.- Usaria una ventana similar a la carga de datos pero lo que deberias hacer es levantar del curso las materias y colocarlas en el listbox

Código Delphi [-]
     MateriasDeCurso.First
     While not MateriasDeCurso.Eof do
     Begin
        If campoCodigoMateriaDeCurso = BuscadoPorEdit then
        Begin
            ListBox2.items.Add(MateriaCodigoyDetalle);
        end;
        MateriasDeCurso.Next;
     end;

2.- Hace las incorporaciones nuevas y van a ir agregandose al final del listbox2
3.- Grabar... Pero no tan facil
Debes recorrer el listbox y fijarte cual es la que agregaste, si quieres puedes usar el metodo locate de modo que si lo encuentra pasa al siguiente elemento del listbox y si no lo graba.-

Ahh! el locate puede dar un valor booleano, es decir puedes usarlo así:

Código Delphi [-]
   If Not MateriasDeCurso.Locate(LoQueBuscas) then
           GraboNuevo
        else
           SiguienteDeLaLista

Nuevamente: Estoy dando ideas a ciegas, No conozco ni la base ni la estructura y puede ser que tambien debas hacer muchas mas comprobaciones antes de guardar, por ejemplo si cambia las materias ya guardadas o le cambian el nombre, etc. etc...
En definitiva y tal vez sea demasiado bruto pero hay que hacer muchas cosas en papel (Analisis, posibilidades, diagramas) antes de escribir el codigo, algo que seguramente tu ya lo sabes

Bueno cualquier cosa estamos aquí.

Saludos.-

[donpedro]

muchas gracias martinS, pido excusa por no especificar la base de datos,, estoy utilizando mysql.....estare probando tu logica,,, luego compartire el resultado...

[MartinS]

Empezado por donpedro

muchas gracias martinS, pido excusa por no especificar la base de datos,, estoy utilizando mysql.....estare probando tu logica,,, luego compartire el resultado...

Si, eso queremos, los resultados... ... y si no sale!?, volveremos

Saludos.-

[donpedro]

Empezado por MartinS

Si, eso queremos, los resultados... ... y si no sale!?, volveremos

Saludos.-

esta resuelto, gracias martinS, hice una prueba y funciono con tu logica, ahora lo que voy hacer es cargar las materias ya grabadas al listbox....comparto el codigo que verifica si la materia esta registrada y si no esta la graba... para lo que dijiste sobre si eliminan una materia o cambian el nombre de una,, creare unos controles para eso.. no se si utilizar triggers pero ya ver lo que hare.. de todos modos gracias..... comparto el codigo:

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var x:integer;
begin
with dmdatos do
begin
for x := 0 to Listbox2.Count - 1 do

if not atmaterias.Locate('descripcion',listbox2.Items.Strings[x],[]) then
begin
ATMATERIAS.Append;
ATMATERIASMATERIAID.AsString:=edit1.Text;
ATMATERIASDESCRIPCION.AsString:=listbox2.Items[x];
  atmaterias.Post;
end;
end;
end;

[donpedro]

hola de nuevo, estoy mejorando la pantalla y estoy frenado en algo: en la nueva pantalla estoy utilizando un dbgrid y un listbox (con base de datos mysql). estoy pasando registros de un dbgrid al listbox como se muestra en la siguiente figura.


lo que quiero es que cuando mueva una materia del dbgrid al listbox dicha materia se quite del dbgrid. me explico,, si por ejemplo muevo la materia matematica que se compare si algun registro del dbgrid es igual a los del listbox y si es asi que lo quite del dbgrid para asi poder ver las materias que no he agregado... espero que hallan entendido. trate con el siguiente codigo el cual esta en el mismo boton donde muevo los items.

Código Delphi [-]
procedure TFASIGPORGRADOS.BitBtn11Click(Sender: TObject);
  VAR A:INTEGER;
begin



LISTBOX1.Items.Add(DMDATOS.AQMATERIASDESCRIPCION.AsString);//con este linea muevo del dbgrid al listbox

//aqui quiero comparar los registros del dbgrid con los del listbox
for A := 0 to ListBOX1.ITEMS.Count - 1 do
  BEGIN
    WITH DMDATOS DO
    BEGIN
      AQMATERIAS.Active:=FALSE;
      AQMATERIAS.Close;
      AQMATERIAS.SQL.Clear;
      AQMATERIAS.SQL.Add('SELECT * FROM MATERIA WHERE DESCRIPCION NOT LIKE'+''''+'%'+LISTBOX1.Items.Strings[A]+'%'+'''');
      AQMATERIAS.ExecSQL;
      AQMATERIAS.ACTIVE:=TRUE;

    END;

  END;

         end;

cuando ejecuto ese codigo y selecciono por ejemplo matematica y lo paso al listbox dicha materia se quita del dbgrid, pero si elijo otra por ejemplo lengua española se me agrega al listbox se me borra del dbgrid pero matematica vuelve y aparece en el dbgrid..

espero que me hallan entendido,, espero respuesta y muchas gracias de antemano...

[ecfisa]

Hola donpedro.

Si no entendí mal tu consulta, no sería una modificación, en realidad es agregar un nuevo dato que corresponde a determinado curso.
En ListBox2 se van añadiendo las materias correspondientes al curso, por lo que antes de guardar el nuevo dato agregado, este deberá encontrarse en la última posición de este componente.

Entonces creo que tendrías que hacer:

Código Delphi [-]
procedure TForm1.btnModificarClick(Sender: TObject);
begin
  ATMATERIAS.Append;
  ATMATERIASMATERIAID.AsString:=  Edit1.Text;
  ATMATERIASDESCRIPCION.AsString:=  ListBox2.Items[ListBox2.Items.Count-1];
  ATMATERIAS.Post;
end;

Saludos.