UPDATE NO BANCO DE DADOS
Ai galera, tenho que fazer um UPDATE em um banco de dados do MYSQL só que tenho que verificar pela matrÃcula do associado e data do vencimento de um boleto, mas quando rodo o programa me retorna o seguinte erro:
RUN-TIME ERRO: 13
Type mismatch
Estou utilizando as senfguitnes linha de comando:
Dim sSQL01 as String
sSQL01 = [Ô]Update receitas SET [Ô] & _
[Ô]data_pagamento =[ô][Ô] & [Ô]#[Ô] & Format(Msk_Pago.Text, [Ô]yyyy-mm-dd[Ô]) & [Ô]#[ô],[Ô] & _
[Ô]data_liberacao =[ô][Ô] & [Ô]#[Ô] & Format(Msk_Pago.Text, [Ô]yyyy-mm-dd[Ô]) & [Ô]#[ô],[Ô] & _
[Ô]desconto =[ô][Ô] & Replace(Format(0, [Ô]#####0.00[Ô]), [Ô],[Ô], [Ô].[Ô]) & [Ô][ô],[Ô] & _
[Ô]juros =[ô][Ô] & Replace(Format(0, [Ô]#####0.00[Ô]), [Ô],[Ô], [Ô].[Ô]) & [Ô][ô],[Ô] & _
[Ô]multa = [Ô] & Replace(Format(0, [Ô]#####0.00[Ô]), [Ô],[Ô], [Ô].[Ô]) & [Ô][ô],[Ô] & _
[Ô]data_baixa =[ô][Ô] & [Ô]#[Ô] & Format(Msk_Pago.Text, [Ô]yyyy-mm-dd[Ô]) & [Ô]#[ô][Ô] & [Ô][ô] WHERE matricula_associado =[ô][Ô] & Txt_CodAss.Text & [Ô][ô][Ô] And [Ô]CStr(data_vencimento) =[ô][Ô] & [Ô]#[Ô] & Format(Msk_DtPer01.Text, [Ô]yyyy-mm-dd[Ô]) & [Ô]#[Ô]
Bem voces podem notar que estou tentando comparar um campo tipo STRING e outro campo tipo DATA, para fazer este update.
Tem algum outro jeito de fazer esta comparação com estes dois campos.
Obrigado,
RUN-TIME ERRO: 13
Type mismatch
Estou utilizando as senfguitnes linha de comando:
Dim sSQL01 as String
sSQL01 = [Ô]Update receitas SET [Ô] & _
[Ô]data_pagamento =[ô][Ô] & [Ô]#[Ô] & Format(Msk_Pago.Text, [Ô]yyyy-mm-dd[Ô]) & [Ô]#[ô],[Ô] & _
[Ô]data_liberacao =[ô][Ô] & [Ô]#[Ô] & Format(Msk_Pago.Text, [Ô]yyyy-mm-dd[Ô]) & [Ô]#[ô],[Ô] & _
[Ô]desconto =[ô][Ô] & Replace(Format(0, [Ô]#####0.00[Ô]), [Ô],[Ô], [Ô].[Ô]) & [Ô][ô],[Ô] & _
[Ô]juros =[ô][Ô] & Replace(Format(0, [Ô]#####0.00[Ô]), [Ô],[Ô], [Ô].[Ô]) & [Ô][ô],[Ô] & _
[Ô]multa = [Ô] & Replace(Format(0, [Ô]#####0.00[Ô]), [Ô],[Ô], [Ô].[Ô]) & [Ô][ô],[Ô] & _
[Ô]data_baixa =[ô][Ô] & [Ô]#[Ô] & Format(Msk_Pago.Text, [Ô]yyyy-mm-dd[Ô]) & [Ô]#[ô][Ô] & [Ô][ô] WHERE matricula_associado =[ô][Ô] & Txt_CodAss.Text & [Ô][ô][Ô] And [Ô]CStr(data_vencimento) =[ô][Ô] & [Ô]#[Ô] & Format(Msk_DtPer01.Text, [Ô]yyyy-mm-dd[Ô]) & [Ô]#[Ô]
Bem voces podem notar que estou tentando comparar um campo tipo STRING e outro campo tipo DATA, para fazer este update.
Tem algum outro jeito de fazer esta comparação com estes dois campos.
Obrigado,
And data_vencimento =[ô][Ô] & [Ô]#[Ô] & Format(Msk_DtPer01.Text, [Ô]yyyy-mm-dd[Ô]) & [Ô]#[Ô]
Verifique os campos numéricos no update que seus valores não devem estar entre ASPAS SIMPLES (desconto e juros).
Verifique os campos numéricos no update que seus valores não devem estar entre ASPAS SIMPLES (desconto e juros).
EDERMIR - obrigado pela dica, mas agora está dando outro erro:
RUN-TIME ERRO: -2147217900(80040e14)
Que erro que é este e como posso contorná-lo???
Obrigado,
RUN-TIME ERRO: -2147217900(80040e14)
Que erro que é este e como posso contorná-lo???
Obrigado,
ai agora consegui contornar o erro - mt obrigado
Tópico encerrado , respostas não são mais permitidas