Aquatico
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 04/05/2006 09:57 hs
Como executar um select com um format num determinado campo numero ?
Exemplo:
FILTROSQL = "SELECT MB_COD,MB_DESC,MB_FATOR FROM MB010"
Como formatar o campo MB_FATOR nesta select de modo que so apareçam 2 casas decimais ?
Obs: Esta select é no vb6, a tabela é do sql server 2000, e o campo MB_FATOR é do tipo Float...
Obrigado
Paulo Ricardo
|
|
|
|
|
|
Alê35
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 04/05/2006 10:50 hs
Olá Paulo, bom dia. Você pode formatar o resultado de sua consulta através da função Format do VB: variavel_MB_FATOR = Format(rs!MB_FATOR, "#,##0.00") Você pode também obter o resultado de sua consulta já com duas casas na instrução SQL: FILTROSQL = "SELECT MB_COD,MB_DESC, STR(MB_FATOR,12,2) FROM MB010" onde o número 12 é o tamanho total retornado e 2 é o número de casas decimais. Espero ter colaborado! Um abraço, |
|
|
|
Aquatico
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 04/05/2006 14:09 hs
Usei a função que vc me mandou, mas no grid ainda continua não formatando, a função esta abaixo, o que devo fazer para resolver este problema ?
FILTROSQL = "SELECT SH_COD,SH_DESC,STR(SH_FATOR,12,2),CODIGO FROM SH010 WHERE"
EXPSQL = "[SH_COD] = '" & CboCodigo.Text & "'"
EXPSQL = EXPSQL & "ORDER BY SH_COD"
FILTROSQL = FILTROSQL & EXPSQL
dtsFiltro.ConnectionString = "Provider=SQLOLEDB.1;Password=96160635;Persist Security infotec=True;User ID=sa;Initial Catalog=" & VARBANCO & ";Data Source=" & VARSERVER
dtsFiltro.RecordSource = FILTROSQL
dtsFiltro.Refresh
Obrigado
Paulo Ricardo
|
|
|
|
Alê35
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 05/05/2006 10:22 hs
Olá Paulo, bom dia. Me desculpe, eu havia entendido que você necessitava apenas reduzir o número de casas decimais para 2 digitos. Use a função Convert() do SQL para obter o valor formatado: FILTROSQL = "SELECT SH_COD,SH_DESC, CONVERT(VARCHAR, SH_FATOR, 1) , CODIGO FROM ...
Esta instrução apresentará o seu valor com o formato Money. Boa sorte. |
|
|
|
Paulo Figueired
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 18/03/2011 08:21 hs
Preciso que na entrada do valor na caixa de texto do vb6, que a formatação esteja com 2 casas decimais.
Grato
|
|
|
|
|
|
Postada em 18/03/2011 13:49 hs
Paulo seria assim como ja foi informado acima:
Texto1.Text = Format(rs!MB_FATOR, "#,##0.00")
|
|
|
|
