buscar en tabla lo que tengo en listbox, y guardar un dato en un campo

[ecfisa]

Empezado por Daniel10

...
Ahora esto es lo que no se como hacerlo…
Debo recorrer el listbox, tomo el primer item, hacer la búsqueda de ese item (seria buscar ese nombre en tabla1) en la tabla1, si lo encuentro tomo el contenido del edit1 y lo guardo en registro de esa persona, pero en el campo tipo_BT1, y continuo el recorrido del listbox.

……….. seria asi….. hago la búsqueda de lo que hay en el edit3 (hay un nombre) en la tabla1 si lo encuentra entonces guardaría el numero (edit1) en campo tipo_AT1. Y luego voy recorriendo listbox, haciendo la búsqueda de cada item (nombre, palabra) en la tabla1, si existe ese nombre o palabra entonces se guardaría ese numero (edit1) pero en el campo tipo_BT1 en el registro de ese nombre o palabra encontrado.

Espero que me comprendan lo que deseo hacer

Hola Daniel10.

Y yo espero haberte comprendido...

Fijate si esto hace lo que estas necesitando:

Código Delphi [-]
...
var
  tmp : string;
  i : Integer;
begin
  with Query1 do
  begin
    tmp := SQL.Text;
    Close;
    SQL.Text:= 'UPDATE TABLA1 SET TIPO_BT1 = :PARAM1 WHERE NOMBRET1 =:PARAM2';
    Prepare;
    for i:= 0 to ListBox1.Count-1 do
    begin
      ParamByName('PARAM1').AsString := Edit1.Text;
      ParamByName('PARAM2').AsString := ListBox1.Items[i];
      ExecSQL;
    end;
    Close;
    Unprepare;
    SQL.Text := tmp;
    Open;
  end;
end;

Saludos.

[Daniel10]

ante todo le doy gracias por su respuesta, voy probar este codigo, aunque ya tengo solucionaod mi inconveniente, lo hice con un ciclo for que recorra el listbox y vaya grabando en la bd.. igual probare este codigo y optare por el que mejor me quede..

saludos y gracias por su tiempo

[Daniel10]

Código Delphi [-]
for ContListBox:= 0 to listbox1.items.count - 1 do 
begin    
  query1.Close;     
  query1.SQL.Clear;     
  query1.SQL.Add('Update tabla1');     
  query1.SQL.Add('set tipo_AT1 = tipo_AT1 & ' + ',' + Edit1.text );     
  query1.SQL.Add('where nombreT1 = ' + quotedstr(listbox1.items[ContListBox]) ); 
  query1.ExecSQL;  
end