amigos o que esta acontecendo é , quando eu coloco para atualizar o campo quantidade por um numero que eu defino no código , por exemplo
procedure Tlogado.bot_fecha_vendaClick(Sender: TObject);
begin
if caixa.Cells[0,0] = '' then
begin
showmessage('Nenhum produto cadastrado na nota');
end else
begin
with consulta_venda do
begin
while caixa.Cells[0,0] <> '' do
begin
close;
sql.Clear;
sql.Add('update estoque set quantidade = "2"');
sql.Add('WHERE codigo = "2"');
ExecSQL;
caixa.Cells[0,0] := ''
end;
end;
end;
end;
end.
eu defini que vai alterar o campo pra "2" ai funciona....
mais se eu colocar um parambyname da erro.
exemplo,se eu colocar um parambyname:
Código:
procedure Tlogado.bot_fecha_vendaClick(Sender: TObject);
begin
if caixa.Cells[0,0] = '' then
begin
showmessage('Nenhum produto cadastrado na nota');
end else
begin
with consulta_venda do
begin
while caixa.Cells[0,0] <> '' do
begin
close;
sql.Clear;
sql.Add('update estoque set quantidade : cc');
sql.Add('WHERE codigo = "2"');
parambyname('cc').Value := caixa_vendida.Text;
ExecSQL;
caixa.Cells[0,0] := ''
end;
end;
end;
end;
end.
o erro que da é:
Eu uso banco de dados paradox.....nome da tabela estoque
campos:
id;codigo;produto;quantidade;categoria
gostaria da ajuda de vocês para resolução de tal poblema que já me percegue a mais de 2 semanas
Pergunta
Fernando_Ramos
amigos o que esta acontecendo é , quando eu coloco para atualizar o campo quantidade por um numero que eu defino no código , por exemplo
procedure Tlogado.bot_fecha_vendaClick(Sender: TObject); begin if caixa.Cells[0,0] = '' then begin showmessage('Nenhum produto cadastrado na nota'); end else begin with consulta_venda do begin while caixa.Cells[0,0] <> '' do begin close; sql.Clear; sql.Add('update estoque set quantidade = "2"'); sql.Add('WHERE codigo = "2"'); ExecSQL; caixa.Cells[0,0] := '' end; end; end; end; end.eu defini que vai alterar o campo pra "2" ai funciona.... mais se eu colocar um parambyname da erro. exemplo,se eu colocar um parambyname: Código:procedure Tlogado.bot_fecha_vendaClick(Sender: TObject); begin if caixa.Cells[0,0] = '' then begin showmessage('Nenhum produto cadastrado na nota'); end else begin with consulta_venda do begin while caixa.Cells[0,0] <> '' do begin close; sql.Clear; sql.Add('update estoque set quantidade : cc'); sql.Add('WHERE codigo = "2"'); parambyname('cc').Value := caixa_vendida.Text; ExecSQL; caixa.Cells[0,0] := '' end; end; end; end; end.o erro que da é:
Eu uso banco de dados paradox.....nome da tabela estoque
campos:
id;codigo;produto;quantidade;categoria
gostaria da ajuda de vocês para resolução de tal poblema que já me percegue a mais de 2 semanas
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados