[Resolvido]Converter campo Moeda para salvar em Mysql

Olá amigos, estou travado em uma questão.

Tenho uma tabela no Mysql e outra no back end, quero sincronizar os dados do Mysql para o Access e vice e versa.

Tenho um campo no Mysql no tipo Decimal 10,2 preciso salvar meu campo tipo Moeda para esse campo mas da tipos incompatíveis, eis parte do código:

Talvez uma função com Replace resolveria colocando ponto no lugar da vírgula.

Private Sub btSalvar_Click()

On Error GoTo Trato

Dim v1 As Double
Dim v2 As Double
Dim strData As Date

strData = Format(Me.DataPagto, "yyyy-mm-dd")

v1 = Me.cxDespesa
v2 = Me.cxReceita

TENTA:
rsmy.Find "campo_concatenado ='" & campo_concatenado & "'", , , 1
'Se o registro existir altera
If Not rsmy.EOF Then 'se encontrou
rsmy!DataLancamento = Me.DataPagto
rsmy!HistoricoLancamento = Me.cxHistorico
rsmy!IgrejaNome = Me.NomeIgreja
rsmy!ValorDespesa = v1 'Nesses campos são o problema, no Access é moeda, no Mysql é Decimal, dá tipos incompatíveis
rsmy!ValorReceita = v2
rsmy!TipoLancamento = Me.QuadroTipo
rsmy!CodTipo = Me.cxCodTipo
rsmy!NuTalao = Me.cxTalao
rsmy!TipoOficial = Me.QuadroOficial
rsmy!Depto = Me.cboDepto
rsmy!NuCadastral = Me.cxNuIgreja
rsmy!campo_concatenado = Me.campo_concatenado
rsmy.Update
MsgBox "As alterações foram salvas com sucesso!", vbInformation, "OK"
Else
'Se o registro não existir salva
rsmy.AddNew
rsmy!DataLancamento = Me.DataPagto
rsmy!HistoricoLancamento = Me.cxHistorico
rsmy!IgrejaNome = Me.NomeIgreja
rsmy!ValorDespesa = v1
rsmy!ValorReceita = v2
rsmy!TipoLancamento = Me.QuadroTipo
rsmy!CodTipo = Me.cxCodTipo
rsmy!NuTalao = Me.cxTalao
rsmy!TipoOficial = Me.QuadroOficial
rsmy!Depto = Me.cboDepto
rsmy!NuCadastral = Me.cxNuIgreja
Me.campo_concatenado = Me.DataPagto & " " & Me.NomeIgreja
rsmy!campo_concatenado = Me.campo_concatenado
rsmy.Update
MsgBox "Registro salvo com sucesso!", vbInformation, "OK"
End If
'rsmy.Close 'fecha o recorset
'cnmy.Close 'fecha o banco de dados
Sai:
Exit Sub

Trato:
Select Case err.Number
Case 3704
Call MySQL_Server 'Carrega parametros do servidor
cnmy.Open "Driver={MySQL ODBC 5.1 Driver};Server=" & MyslqServidor & ";Database=" & MyslqDatabase & ";User=" & MyslqUsuario & "; Password=" & MyslqSenha & ";Option=3;"
rsmy.CursorLocation = adUseClient
If strIgrejaPermissao = "*" Then
rsmy.Open "Select * from mytblCaixaDeptos order by tblCaixaDeptos.NuCadastral;", cnmy, adOpenDynamic, adLockOptimistic
Else
Filtro = strIgrejaPermissao
rsmy.Open "Select * from mytblCaixaDeptos where NuCadastral=" & Filtro & ";", cnmy, adOpenDynamic, adLockOptimistic
End If
GoTo TENTA:
Case Else
MsgBox err.Number & " " & err.Description & err.HelpContext
'rsmy.Close 'fecha o recorset
'cnmy.Close 'fecha o banco de dados
Resume Sai

Se eu salvar como VarChar (Texto), depois é simples converter exemplo 1000.35 em 1.000,35?

boas
já tentou usar campo numerico, formatado moeda, ou padrão.
usando o formato padrao, poderá sempre adicionar o simbolo moeda.
tenha em conta essa possibilidade.

cumps
acao

o problema nem é o simbolo, mas é que no Mysql o formato decimal é com . ou seja Mil reais fica assim 1000.00
na hora de salvar preciso talves converter de 1.000,00 para 1000.00 e na hora de importar converter de 1000.00 para 1.000,00

Olá

tente:

rsmy!ValorDespesa = Cdec(v1)

Sucesso!

Não deu, qual formato utilizo na variavel v1 e v2, double ou currency? Acho que devo tirar a virgula e passar para (.)

Alguma função fácil para isso?

boas

Double 8 # -1,79769313486232E308 a -4,94065645841247E-324;
4,94065645841247E-324 a 1,79769313486232E308
Currency 8 @ -922.337.203.685.477,5808 a 922.337.203.685.477,5807

penso que será melhor currency

funçao de conversao «Ccur»


edit: estive a testar e nao vi qualquer problema em o valor ser decimal.

tenta colocar aspas simples e aspas duplas no valor.

Preciso de uma função que na hora de salvar no Mysql salve tirando a virgula e coloque ponto e ao salvar do mysql para access mude o formato para moeda.

Estou pesquisando, se alguem puder ajudar agradeço.

Ninguem salva esse tipo de campo no mysql?

boas
tem que fazer assim:

Dim vNumerodecimal As Currency
vNumerodecimal = CCur(vNumeroMysql)
'depois para inserir em campo moeda access:
sql = ("INSERT INTO teste (Numerodecimal) values ('" & vNumerodecimal & "');")

isto nao interessa se o valor vem de mysql, sqlserver ou até da china, a conversao resolve o problema.

cumps
acao

Vou tentar, depois lhe aviso amigo, por hora obrigado!!!

Resolvido.

Prezado Gilberto Rocha, Bom Dia!

Estou com o mesmo problema referido por você qual foi a solução?

Bom dia,

Avelino João

podes usar, como dito antes: rsmy!ValorDespesa = Cdec(v1)

ou simplesmente utilizar o replace

rsmy!ValorDespesa = Replace(v1,",",".")

Jungli Boa Tarde.
Obrigado pela ajuda está Resolvido.