Interbase 6 (Problema com sql)
Tenho um form qua acessa um banco de dados chamado PRODUTOS. Mais precisamente acessa a tabela PRECOS neste banco de dados. Atraves dos componentes:
IbDatabase, IbTransaction, IbDataset, e DataSource.
Os dados são mostrados através de um DbGrid.
A tabela tem os seguintes campos:
código, produto, preço.
No form tenho dois edits um para o CODIGO e outro para PRECO, no caso:
EdCodigo e EdPreco.
Meu Problema é o seguinte:
Preciso que quando eu clique em um botão, o preço que estiver no EdPreco seja transferido para minha tabela PRODUTOS no registro correspondente ao numero que estiver no Edcodigo.
Não sei como colocar a instrução Sql para isso funcionar.
Espero ter sido claro.
Alguém poderia me ajudar? Estou muito precisando fazer isso.
Desde já agradeço.
IbDatabase, IbTransaction, IbDataset, e DataSource.
Os dados são mostrados através de um DbGrid.
A tabela tem os seguintes campos:
código, produto, preço.
No form tenho dois edits um para o CODIGO e outro para PRECO, no caso:
EdCodigo e EdPreco.
Meu Problema é o seguinte:
Preciso que quando eu clique em um botão, o preço que estiver no EdPreco seja transferido para minha tabela PRODUTOS no registro correspondente ao numero que estiver no Edcodigo.
Não sei como colocar a instrução Sql para isso funcionar.
Espero ter sido claro.
Alguém poderia me ajudar? Estou muito precisando fazer isso.
Desde já agradeço.
Latrodectrus
Curtidas 0
Respostas
Jycn
27/05/2003
Olá.
Não sei se é a forma mais correta, mas.
Utilize um componente TIBQuery e faça o seguinte:
With IbQuery1 do Begin
Close;
Sql.Text:=´´;
Sql.Text:=´UPDATE PRODUTOS SET PRECO=:PRECO WHERE CODIGO=:CODIGO´;
ParamByName(´preco´).AsFloat:=StrToFloat(EdtPreco.Text);
ParamByName(´codigo´).AsString:=EdtCodigo.Text;
ExecSql;
End;
Jycn
Não sei se é a forma mais correta, mas.
Utilize um componente TIBQuery e faça o seguinte:
With IbQuery1 do Begin
Close;
Sql.Text:=´´;
Sql.Text:=´UPDATE PRODUTOS SET PRECO=:PRECO WHERE CODIGO=:CODIGO´;
ParamByName(´preco´).AsFloat:=StrToFloat(EdtPreco.Text);
ParamByName(´codigo´).AsString:=EdtCodigo.Text;
ExecSql;
End;
Jycn
GOSTEI 0