QUERY UPDATE - VB6

ALANTB 29/04/2014 15:15:57
#437754
Olá pessoal, estou ás voltas de uma query de access2007 com vb6, que não estou conseguindo finalizar. Sou péssimo em SQL, não adianta. Mas o problema é o seguinte quando vou editar dados me exibe um erro na última linha da query, onde fica a cláusula WHERE. Já alterei todos os tipos possíveis de pontuação que conheço e o erro insiste em aparecer.Gostaria que dessem uma olhada. Segue...

Else
Alteração:
Sql = [Ô]UPDATE tbFormulario (codFormulario, dataIni, dataFim, codMatricula, codMatricula2, nroTotal, nroPontosAfasta, nroPontosFNJ, nroPontosOrdens, nroPontosZelo, nroPontosUrbanidade, nroPontosCooperacao, nroPontosEconomia, nroPontosDestituiPAD, nroPontosTrabalhos, nroPontosAperfeicoamento, nroPontosEnsMedio, nroPontosTecProfi, nroPontosGradSup, nroPontosPosGrad, nroPontosMestrado, nroPontosDoutorado) VALUES ([ô][Ô]
[ô]Sql = Sql & Trim(txtCod.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtDe.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtAte.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtMatriculaFunc.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtMatriculaChefe.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtNroTotal.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtAfastamentos.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtFNJ.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtOrdens.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtDedicacao.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtUrbanidade.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtCooperacao.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtZelar.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtDestituiPAD.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtRealizacao.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtAperfeicoa.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtEnsMedio.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtTecProfi.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtGradSuperior.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtPos.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtMestrado.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Trim(txtDoutorado.Text) & [Ô][ô],[ô][Ô]
Sql = Sql & Where tbFormulario.CodFormulario = [Ô] & txtCod.Text [ô] NESSA LINHA QUE O VB EXIBE ERRO EM AMARELO

End If

With cnnComando
.ActiveConnection = conn
.CommandType = adCmdText
.CommandText = Sql
.Execute
End With
TUNUSAT 29/04/2014 15:56:46
#437760
ALANTB,

Pergunta!
O campo [Ô]CodFormulario[Ô] é numérico ou é string na base de dados?

If for numérico tudo bem...
Else for string precisa vir entre [ô]aspas simples[ô].
Endif

[][ô]s,
Tunusat.
ALANTB 29/04/2014 16:01:32
#437762
Tunusat, dá pra ser mais específico????
TUNUSAT 29/04/2014 16:15:11
#437764
ALANTB,

Tentando...
Dentro da base de dados, você pode classificar o campo (CodFormulario) da tabela (Exemplo: [ô]tblFormulario[ô]) que você está trabalhando como [Ô]Tipo de Dados[Ô] = [Ô]Texto[Ô] ou [Ô]Tipo de Dados[Ô] = [Ô]Número[Ô].

Se o [Ô]Tipo de Dados[Ô] for Texto, então você precisa colocar assim:
 Sql = Sql & Where tbFormulario.CodFormulario = [ô][Ô] & txtCod.Text & [Ô][ô][Ô]


[][ô]s,
Tunusat.
ALANTB 29/04/2014 16:28:07
#437765
Tunusat, o campo CodFormulario é do tipo Numérico no BD. Já tentei conforme postou acima: com aspas simples, duplas e nenhuma deu certo . Agora fica exibindo [Ô]Erro de sintaxe na instrução UPDATE[Ô]. Continuo tentando.......
OMAR2011 29/04/2014 17:17:36
#437768
Você não vai conseguir fazer este update pois a escrita da query está errada.

Sql= [Ô]Update TbFormulario Set codFormulario = [Ô] & Trim(txtCod.Text) & [Ô] ,isto se for número com campo,citado acima.

Sql = [Ô]UPDATE tbFormulario (codFormulario, dataIni, dataFim, codMatricula, codMatricula2, nroTotal, nroPontosAfasta, nroPontosFNJ, nroPontosOrdens, nroPontosZelo, nroPontosUrbanidade, nroPontosCooperacao, nroPontosEconomia, nroPontosDestituiPAD, nroPontosTrabalhos, nroPontosAperfeicoamento, nroPontosEnsMedio, nroPontosTecProfi, nroPontosGradSup, nroPontosPosGrad, nroPontosMestrado, nroPontosDoutorado) VALUES ([ô][Ô]

Isto é para insert e não Update.
Tu enganou.
DANLELES 30/04/2014 12:59:30
#437808
Sql = Sql & [txt-color=#e80000] [Ô] [/txt-color]Where tbFormulario.CodFormulario = [Ô] & txtCod.Text

Será que não faltou esta AspA?
ALANTB 30/04/2014 13:46:34
#437811
Pessoal, consegui resolver o problema. Fiz alterações no AdoDB.Command e deu certo. Ficou assim:

Else
Alteração:
.CommandText = [Ô]UPDATE tbFormulario set [Ô] & _
[Ô]dataIni = [ô][Ô] & txtDe.Text & [Ô][ô],[Ô] & _
[Ô]dataFim = [ô][Ô] & txtAte.Text & [Ô][ô],[Ô] & _
[Ô]codMatricula = [ô][Ô] & txtMatriculaFunc.Text & [Ô][ô],[Ô] & _
[Ô]codMatricula2 = [ô][Ô] & txtMatriculaChefe.Text & [Ô][ô],[Ô] & _
[Ô]nroTotal = [ô][Ô] & txtNroTotal.Text & [Ô][ô],[Ô] & _
[Ô]nroPontosAfasta = [ô][Ô] & txtAfastamentos.Text & [Ô][ô],[Ô] & _
[Ô]nroPontosFNJ = [ô][Ô] & txtFNJ.Text & [Ô][ô],[Ô] & _
[Ô]nroPontosOrdens = [ô][Ô] & txtOrdens.Text & [Ô][ô],[Ô] & _
[Ô]nroPontosZelo = [ô][Ô] & txtDedicacao.Text & [Ô][ô],[Ô] & _
[Ô]nroPontosUrbanidade = [ô][Ô] & txtUrbanidade.Text & [Ô][ô],[Ô] & _
[Ô]nroPontosCooperacao = [ô][Ô] & txtCooperacao.Text & [Ô][ô],[Ô] & _
[Ô]nroPontosEconomia = [ô][Ô] & txtZelar.Text & [Ô][ô],[Ô] & _
[Ô]nroPontosDestituiPAD = [ô][Ô] & txtDestituiPAD.Text & [Ô][ô],[Ô] & _
[Ô]nroPontosTrabalhos = [ô][Ô] & txtRealizacao.Text & [Ô][ô],[Ô] & _
[Ô]nroPontosAperfeicoamento= [ô][Ô] & txtAperfeicoa.Text & [Ô][ô],[Ô] & _
[Ô]nroPontosEnsMedio = [ô][Ô] & txtEnsMedio.Text & [Ô][ô],[Ô] & _
[Ô]nroPontosTecProfi = [ô][Ô] & txtTecProfi.Text & [Ô][ô],[Ô] & _
[Ô]nroPontosGradSup = [ô][Ô] & txtGradSuperior.Text & [Ô][ô],[Ô] & _
[Ô]nroPontosPosGrad = [ô][Ô] & txtPos.Text & [Ô][ô],[Ô] & _
[Ô]nroPontosMestrado = [ô][Ô] & txtMestrado.Text & [Ô][ô],[Ô] & _
[Ô]nroPontosDoutorado = [ô][Ô] & txtDoutorado.Text & [Ô][ô],[Ô] & _
[Ô]nroPontosTotal = [ô][Ô] & lblTotalGeral.Caption & [Ô][ô][Ô] & _
[Ô]WHERE CodFormulario = [Ô] & txtCod.Text & [Ô][Ô]

Valeu a cooperação de todos. Vou encerrar..
Tópico encerrado , respostas não são mais permitidas
Voltar