FORMATANDO MYSQL

DAVIDNUNES 11/10/2010 18:49:23
#354878
Boa noite pessoal,estou com um problema ao executar o codigo para atualizar tablela mysql

sSql = [Ô]UPDATE Duplicatas SET [Ô]
sSql = sSql & [Ô]ValorPago = [ô][Ô] & CDbl(Format(txt_ValorPago.Text, [Ô]###.##[Ô])) & [Ô][ô] ,[Ô]
sSql = sSql & [Ô]Status = [ô][Ô] & Trim([Ô]Pago[Ô]) & [Ô][ô],[Ô]
sSql = sSql & [Ô]Tipo = [ô][Ô] & Trim(cbo_FormaPagamento.Text) & [Ô][ô],[Ô]
sSql = sSql & [Ô]DataPagamento = [ô][Ô] & Format$(txt_DataPagamento.Text, [Ô]yyyy/dd/mm[Ô]) & [Ô][ô],[Ô]
sSql = sSql & [Ô]ContaBancaria = [ô][Ô] & Trim(cbo_Banco.Text) & [Ô][ô][Ô]
sSql = sSql & [Ô] WHERE Codigo= [ô][Ô] & txt_Codigo.Text & [Ô][ô][Ô]

cnn.Execute sSql

a opcao do VALORPAGO quando no textbox vem ex: 12,50 ele esta pegando o codigo e transformando para 12 nao mantem o 12,50 e o campo ValorPago e float 10,2 se alguem souber o que esta acontecendo serei muito grato.
MOREIRA 11/10/2010 18:59:13
#354879 Resposta escolhida
Citação:

:
Boa noite pessoal,estou com um problema ao executar o codigo para atualizar tablela mysql

sSql = [Ô]UPDATE Duplicatas SET [Ô]
sSql = sSql & [Ô]ValorPago = [ô][Ô] & CDbl(Format(txt_ValorPago.Text, [Ô]###.##[Ô])) & [Ô][ô] ,[Ô]
sSql = sSql & [Ô]Status = [ô][Ô] & Trim([Ô]Pago[Ô]) & [Ô][ô],[Ô]
sSql = sSql & [Ô]Tipo = [ô][Ô] & Trim(cbo_FormaPagamento.Text) & [Ô][ô],[Ô]
sSql = sSql & [Ô]DataPagamento = [ô][Ô] & Format$(txt_DataPagamento.Text, [Ô]yyyy/dd/mm[Ô]) & [Ô][ô],[Ô]
sSql = sSql & [Ô]ContaBancaria = [ô][Ô] & Trim(cbo_Banco.Text) & [Ô][ô][Ô]
sSql = sSql & [Ô] WHERE Codigo= [ô][Ô] & txt_Codigo.Text & [Ô][ô][Ô]

cnn.Execute sSql

a opcao do VALORPAGO quando no textbox vem ex: 12,50 ele esta pegando o codigo e transformando para 12 nao mantem o 12,50 e o campo ValorPago e float 10,2 se alguem souber o que esta acontecendo serei muito grato.




Tente esse...

Sql = Sql & [Ô]Salario=[Ô] & Replace(CDbl(TxtSalario.Text), [Ô],[Ô], [Ô].[Ô]) & [Ô][ô],[Ô]
DAVIDNUNES 13/10/2010 00:19:48
#354955
Moreira funcionou certinho agora estou com outro problema as datas nao estao salvando segue codigo



sSql = [Ô]UPDATE Duplicatas SET [Ô]
sSql = sSql & [Ô]ValorPago= [ô][Ô] & Replace(CDbl(txt_ValorPago.Text), [Ô],[Ô], [Ô].[Ô]) & [Ô][ô],[Ô]
sSql = sSql & [Ô]Status = [ô][Ô] & Trim([Ô]Pago[Ô]) & [Ô][ô],[Ô]
sSql = sSql & [Ô]Tipo = [ô][Ô] & Trim(cbo_FormaPagamento.Text) & [Ô][ô],[Ô]
sSql = sSql & [Ô]DataPagamento = [ô][Ô] & Format(txt_DataPagamento.Text, [Ô]YYYY-DD-MM[Ô]) & [Ô][ô],[Ô]
sSql = sSql & [Ô]ContaBancaria = [ô][Ô] & Trim(cbo_Banco.Text) & [Ô][ô][Ô]
sSql = sSql & [Ô] WHERE Codigo= [ô][Ô] & txt_Codigo.Text & [Ô][ô][Ô]

cnn.Execute sSql
SAMUKA 13/10/2010 07:08:56
#354958
Acredito que o formato da data seja [Ô]mm-dd-yyyy[Ô]
MOREIRA 13/10/2010 10:17:01
#354974
sSql = [Ô]UPDATE Duplicatas SET [Ô]
sSql = sSql & [Ô]ValorPago= [ô][Ô] & Replace(CDbl(txt_ValorPago.Text), [Ô],[Ô], [Ô].[Ô]) & [Ô][ô],[Ô]
sSql = sSql & [Ô]Status = [ô][Ô] & Trim([Ô]Pago[Ô]) & [Ô][ô],[Ô]
sSql = sSql & [Ô]Tipo = [ô][Ô] & Trim(cbo_FormaPagamento.Text) & [Ô][ô],[Ô]
sSql = sSql & [Ô]DataPagamento = [ô][Ô] & Format(txt_DataPagamento.Text, [Ô]YYYY-MM-DD[Ô]) & [Ô][ô],[Ô]
sSql = sSql & [Ô]ContaBancaria = [ô][Ô] & Trim(cbo_Banco.Text) & [Ô][ô][Ô]
sSql = sSql & [Ô] WHERE Codigo= [ô][Ô] & txt_Codigo.Text & [Ô][ô][Ô]

cnn.Execute sSql
veja se te ajuda... eu usso assim.. e funciona 100%
Tópico encerrado , respostas não são mais permitidas
Voltar