SELECT FORMAT([Field1],'DD/MM/YYYY') AS DT, FORMAT([Field2],'#,##0.00') AS VLR, .... FROM TABELA

 

ALEXANDRE COSTA

ARTSOFTSYSTEMS

Bom dia Ivo,

 

Estranho o q vc esta me dizendo, hein ?! Não funciona no SQL ? Esta função FORMAT é uma instrução SQL !!! De qualquer maneira dentro do VB funciona, ex :

 

   Dim strSQLChange As String
   Dim strCnn As String
   Dim cnn1 As ADODB.Connection
   Dim cmdChange As ADODB.Command
   Dim rsTabela As ADODB.Recordset

   ' Define QUERY para executar o 'command text' (LINHA DE COMANDO DA TABELA).
  
   strSQLChange = "SELECT FORMAT([Field1],'DD/MM/YYYY') AS DT, FORMAT([Field2],'#,##0.00') AS VLR, .... FROM TABELA"
  

   ' Abrindo Conexão.
     strCnn = "Provider=sqloledb;" & _
     "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
   Set cnn1 = New ADODB.Connection
   cnn1.Open strCnn

   ' Criando Command Object.
   Set cmdChange = New ADODB.Command
   Set cmdChange.ActiveConnection = cnn1
   cmdChange.CommandText = strSQLChange
  
   'Open RecordSet - ( Tabela ).
   Set rsTabela = New ADODB.Recordset
   rsTabela.Open "TABELA", cnn1, , , adCmdTable

PRONTO !!!! NESTE EXEMPLO A SELECT FORMATA DATA E VALOR !!!

 

ALEXANDRE COSTA

ARTSOFTSYSTEMS

pode ser assim?

 

Create Table #Valores (
   NumeroPC Integer,
   CodigoProduto Integer,
   Quantidade Float
   )

Set NoCount On
Insert Into #Valores (NumeroPC, CodigoProduto, Quantidade) Values (1,1,2.356)
Insert Into #Valores (NumeroPC, CodigoProduto, Quantidade) Values (1,2,8.421)
Insert Into #Valores (NumeroPC, CodigoProduto, Quantidade) Values (1,3,1.987)
Insert Into #Valores (NumeroPC, CodigoProduto, Quantidade) Values (2,1,6.443)
Insert Into #Valores (NumeroPC, CodigoProduto, Quantidade) Values (2,3,3.225)

Select
 NumeroPC,
 CodigoProduto,
 Cast((Floor(Quantidade * 100) /100) As Money) As Quantidade
From #Valores

Drop Table #Valores

valeu martini deu certo

e muito obrigado artsoft pela ajuda valeu mesmo amigos

Ivo