Eliminar de bd seleccionado de listview

[jonydread]

amigos estoy tratando de eliminar de mi base de datos el item seleccionado de listview
estoy tratando asi y me salen errores, en san google no he encontrado nada
mi codigo

Código Delphi [-]
procedure TForm1.BitBtn2Click(Sender: TObject);
begin

Zquery1.sql.text := 'delete from datos values (:fecha, :area,:tipo, :detalle,:id)';
ZQuery1.Locate('fecha' , 'listview1.Selected.Caption', [loCaseInsensitive, loPartialKey] );
ZQuery1.Locate('area' , 'listview1.Selected.SubItems[1]', [loCaseInsensitive, loPartialKey] );
ZQuery1.Locate('tipo' , 'listview1.Selected.SubItems[1]', [loCaseInsensitive, loPartialKey] );
ZQuery1.Locate('detalle' , 'listview1.Selected.SubItems[1]', [loCaseInsensitive, loPartialKey] );
ZQuery1.ExecSQL;
zQuery1.SQL.Clear;
  end;

saludos!

[Casimiro Notevi]

Esa no es la sintaxis para "delete":

Código SQL [-]
DELETE FROM Table1
WHERE Some_Column = Some_Value

[jonydread]

tienes toda la razon funciona, como recupero el valor de la columna? lo he hecho asi y de otras formas pero no me funciona

Código Delphi [-]
procedure TForm1.BitBtn2Click(Sender: TObject);
var
valor1: string;
begin
valor1:=listview1.Selected.SubItems[1] ;
Zquery1.sql.text := 'delete from Datos WHERE area = "valor1" ';

ZQuery1.ExecSQL;
zQuery1.SQL.Clear;
  end;

[Casimiro Notevi]

No recuerdo de memoria exactamente el método, haz una búsqueda por "listview", encontrarás montones de temas similares y podrás resolverlo.

[jonydread]

ahora lo realizo asi

Código Delphi [-]
procedure TForm1.BitBtn2Click(Sender: TObject);

begin
Zquery1.sql.text := 'delete from Datos WHERE tipo = :tipo';
ZQuery1.ParamByName('tipo').Value := Listview1.Selected.SubItems[2];
ZQuery1.ExecSQL;
zQuery1.SQL.Clear;
  end;

segun este post

la base de datos la cargo a mi listview mediante formcreate, puedo eliminar de la listview pero lo que requiero es borrar de la base de datos, existe alguna otra forma, pensando que a futuro hare la listview a virtual(cuando aprenda para hacerlo).

saludos

[jonydread]

amigos aun no lo logro trato asi

Código Delphi [-]
procedure TForm1.BitBtn2Click(Sender: TObject);

begin
zquery1.SQL.Text := 'SELECT * FROM Datos';
zquery1.Open;
while not zquery1.Eof do
begin
Zquery1.sql.text := 'delete  from Datos WHERE tipo = :tipo';
zQuery1.fieldbyname('tipo').AsString := listview1.Selected.SubItems[2];
ZQuery1.ExecSQL;
zQuery1.SQL.Clear;
end;
  end;

me dice Zquery1: Field 'tipo' not found
alguna idea??

[Casimiro Notevi]

Empezado por jonydread

me dice Zquery1: Field 'tipo' not found
alguna idea??

No existe el campo.

Será difícil ayudarte si no explicas más, no podemos ver tu ordenador

[jonydread]

ise una prueba si estaba recogiendo bien el dato mediande un showmessage y hay estaba mi problema no lo estaba recogiendo bien
use parambyname

Código Delphi [-]
procedure TForm1.BitBtn2Click(Sender: TObject);

begin
zquery1.SQL.Text := 'SELECT * FROM Datos';
zquery1.Open;
while not zquery1.Eof do
begin
Zquery1.sql.text := 'delete  from Datos WHERE tipo = :tipo';
zQuery1.parambyname('tipo').AsString := listview1.Selected.SubItems[1];
ZQuery1.ExecSQL;
zQuery1.SQL.Clear;
end;
  end;

saludos y gracias!!

[ecfisa]

Hola jonydread.

Es innecesario recorrer la tabla, este código:

Código Delphi [-]
...
begin
  Zquery1.Close;
  Zquery1.SQL.Text := 'DELETE FROM DATOS WHERE TIPO = :PTIPO';
  Zquery1.ParamByName('PTIPO').AsString :=  listview1.Selected.SubItems[1];
  Zquery1.ExecSQL;
end;

borra todos los registros de la tabla DATOS cuyos campos TIPO tengan un valor igual al contenido en listview1.Selected.SubItems[1].

Saludos.

[jonydread]

gracias optimizare eso

Saludos