Fórum Dúvida SQL (URGENTE!!) #205691
11/01/2004
0
Estou tentando colocar o seguinte código em minha aplicação:
query1.Close;
query1.SQL.Clear;
query1.SQL.Add(´insert into tbl_estoque(nome,qtd,tipo,preco) values(:nome,:qtd,:tipo,:preco)´);
query1.ParamByName(´nome´).AsString := dbe_nome.Text;
query1.ParamByName(´qtd´).AsFloat := strtofloat(dbe_qtd.Text);
query1.ParamByName(´tipo´).AsString := dbc_tipo.Text;
query1.ParamByName(´preco´).AsCurrency := dbe_prealuguel.text;
query1.ExecSQL;
está dando problema na hora de inseri preço... a tabela é uma paradox e o campo preço está configurado ´$´...
e conforme mostra acima o valor que estou tentando inserir que está no dbe_prealuguel.text é o seguinte ´R$2,00´..
alguém poderia me ajudar a resolver este problema??????/
query1.Close;
query1.SQL.Clear;
query1.SQL.Add(´insert into tbl_estoque(nome,qtd,tipo,preco) values(:nome,:qtd,:tipo,:preco)´);
query1.ParamByName(´nome´).AsString := dbe_nome.Text;
query1.ParamByName(´qtd´).AsFloat := strtofloat(dbe_qtd.Text);
query1.ParamByName(´tipo´).AsString := dbc_tipo.Text;
query1.ParamByName(´preco´).AsCurrency := dbe_prealuguel.text;
query1.ExecSQL;
está dando problema na hora de inseri preço... a tabela é uma paradox e o campo preço está configurado ´$´...
e conforme mostra acima o valor que estou tentando inserir que está no dbe_prealuguel.text é o seguinte ´R$2,00´..
alguém poderia me ajudar a resolver este problema??????/
Ztiago
Curtir tópico
+ 0
Responder
Posts
11/01/2004
Jax
Tente o seguinte:
var
S : string;
begin
S := AnsiUpperCase(dbe_prealuguel.text);//tudo em maiusculo
S := StringReplace(S, ´R$´, ´´, []);// remove os caracteres indesejaveis
S := trim(S);//remove os espaços antes e depois
--------
query1.ParamByName(´preco´).AsCurrency := StrToFloat(S);
query1.ExecSQL;
end;
Espero ter ajudado.
Abraços!
var
S : string;
begin
S := AnsiUpperCase(dbe_prealuguel.text);//tudo em maiusculo
S := StringReplace(S, ´R$´, ´´, []);// remove os caracteres indesejaveis
S := trim(S);//remove os espaços antes e depois
--------
query1.ParamByName(´preco´).AsCurrency := StrToFloat(S);
query1.ExecSQL;
end;
Espero ter ajudado.
Abraços!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)