Fórum Interbase 6 (Problema com sql) #36917
27/05/2003
0
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
Curtir tópico
+ 0
Responder
Posts
27/05/2003
Jycn
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)