Amigos estou com um problema, tenho um codigo para salvar usando o SQL, vejam:
CadTip.CursorLocation = adUseServer
CadTip.Open "Select * From CadLocal where Codigo =" & Text1.Text & "", BTipo, adOpenKeyset, adLockOptimistic, adCmdText
CadTip("Descricao") = Trim(Text2.Text)
CadTip("Valor") = format$(Text3.Text,"0.00")
CadTip.Update
essa forma eu uso pra salvar num banco de dados ACCESS, mas por exemplo, se for valores em moeda ( 2,00 ) ele muda pra ( 20,00 ) se eu abrir novamente esse registro e mandar salvar ele joga pra ( 200,00 ) e assim sucessivamente....
um colega disse que é o SQL, outro disse que é o ACCESS, outro me deu esse codigo para corrigir vejam:
Public Function GlobFuncTrocaVirgulaPonto(ByVal Valor As Currency) As String
'FUNCAO UTILIZADA PARA RETIRAR OS PONTOS DOS VALORES DO TIPO MOEDA na HORA DE GRAVAR NO BANCO
'USANDO INSTRUCOES SQL (INSTRUCOES SQL NAO RECONHECEM NUMEROS NAO INTEIROS COM PONTO(.) EX.: 1.5
Dim ValString As String
ValString = Valor
Dim I As Integer
For I = 1 To Len(ValString)
If Mid(ValString, I, 1) = "," Then
Mid(ValString, I, 1) = "."
End If
Next I
GlobFuncTrocaVirgulaPonto = ValString
End Function
Eu uso VB6, ACCESS...
Quando é data ele esta mudando tambem, por exmplo: se é 01/12/2005 ele ta salvando 12/01/2005, esta invertendo o dia com o mes...
Mas nao funcionou, alguem saberia no certo qual seria o motivo desse erro, e como poço acabar com ele....
No aguardo, agradeço!!!
