Update

[Alex Mauricio]

estou tentando fazer o seguinte update...

Private Sub cmdAlterarPromocao_Click()
Dim ssql As String
    ssql = "Update TbFonte set nomeFonte = " & "'"
    ssql = ssql & Trim(txtFonte.Text) & "', dataInicioFonte= " & "'"
    ssql = ssql & Trim(txtDataInicioPromo.Text) & "', dataTerminoFonte=" & "'"
    ssql = ssql & Trim(txtDataTerminoPromo.Text) & "', quantidadedeCupons=" & ""
    ssql = ssql & Val(txtQuantidadeTotalCupom.Text) & ", custoEventoFonte=" & ""
    ssql = ssql & Val(txtCustoPromocao.Text) & ", observacoesGeraisFonte=" & "'"
    ssql = ssql & Trim(txtObservacoes.Text) & "' where codigoFonte = " & Val(txtCodigoCupom.Text)
    BancoDeDados.Execute ssql
End Sub

e esta dando o seguinte erro...

run-time error '3061'

parametros insuficientes. eram esperados 1

obrigado

Editado Agosto 6, 2009 por Jonathan Queiroz
Adicionar tag CODE (kuroi)

[kuroi]

acho q o nome da algum campo ta errado, cheque a digitacao.

se não conseguir descobrir, faca o seguinte: ponha o cursor na linha BancoDeDados.Execute ssql e aperte F9. então aperte F5 pra executar o programa e faca o update normalmente. quando chegar na linha acima ele vai parar. então aperte Ctrl + G pra abrir a janelinha do Immediate. dentro dela, digite ? ssql e aperte ENTER q ele vai te mostrar qual o codigo da query completo q ele ta tentando executar, e ai você pode analisar pra ver se encontra o erro. se não conseguir encontrar, poste esse codigo ai pra ver se a gente descobre.