Ver Mensaje Individual
  #16  
Antiguo 06-04-2012
donpedro donpedro is offline
Miembro
 
Registrado: nov 2009
Posts: 102
Reputación: 0
donpedro cantidad desconocida en este momento
Cita:
Empezado por MartinS Ver Mensaje
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;
Responder Con Cita