como evitar duplicar un campo lo estoy asiendo asi pero no me funciona
me dice logic error or missing database
Código Delphi
[-]procedure TMainform.BitBtn2Click(Sender: TObject);
var
cItem: TListItem;
begin
if (dblookupcombobox1.KeyValue = NULL) or (dblookupcombobox3.KeyValue = NULL) then
MessageDlg('Debe seleccionar todos los datos', mtWarning, [mbOk],0)
else
begin
Zquery1.Close;
zquery1.SQL.Text := 'SELECT * FROM AsignadosA where Sierras = dblookupcombobox1.KeyValue';
zquery1.Open;
if not zquery1.IsEmpty then
raise exception.Create('Registro Existe')else
begin
Zquery1.Close;
Zquery1.sql.text := 'insert into AsignadosA values (:Fecha,:Sierras,:Operario)';
ZQuery1.ParamByName('Fecha').AsDate := Datetimepicker1.Date;
ZQuery1.ParamByName('Sierras').AsInteger := dblookupcombobox1.KeyValue;
ZQuery1.ParamByName('Operario').AsString := dblookupcombobox3.KeyValue;
ZQuery1.ExecSQL;
zQuery1.SQL.Clear;
Zquery1.Close;
zquery1.SQL.Text := 'SELECT * FROM AsignadosA';
zquery1.Open;
Listview2.Clear;
while not zquery1.Eof do
begin
cItem := Listview2.Items.Add;
cItem.Caption := zQuery1.fieldbyname('Fecha').AsString;
cItem.SubItems.Add(zQuery1.fieldbyname('Sierras').AsString);
cItem.SubItems.Add(zQuery1.fieldbyname('Operario').AsString);
zquery1.next;
end;
dblookupcombobox1.KeyValue := NULL;
dblookupcombobox3.KeyValue := NULL;
end;
end;
end;
NOTA: es la continuacion de este hilo
http://www.clubdelphi.com/foros/showthread.php?t=83141 lo puse aca porque creo que es donde corresponde la consulta
saludos gracias!