Conexao com o banco de dados

[Leonardo4 0]

oi, gostaria de saber se vcs podem me ajudar.

Estou criando um aplicativo, mas não estou conseguindo fazer a conexao com o banco de dados.

A conexao está correta, no entanto, eu nao consigo gravar os dados na tabela.

Vou colocar o código aqui para ver se alguem pode me ajudar.

 

Private Sub GravarDados()

Dim cnnComando As New ADODB.Command

Dim vConfMsg As Integer

Dim vErro As Boolean

On Error GoTo errGravacao

'Inicializa as variáveis auxiliares:

vConfMsg = vbExclamation + vbOKOnly + vbSystemModal

vErro = False

'Verifica os dados digitados:

If txtNomeUsuario.Text = Empty Then

MsgBox "O campo Nome não foi preenchido.", vConfMsg, "Erro"

vErro = True

End If

If txtEndereco.Text = Empty Then

MsgBox "O campo Endereço não foi preenchido.", vConfMsg, "Erro"

vErro = True

End If

If txtCidade.Text = Empty Then

MsgBox "O campo Cidade não foi preenchido.", vConfMsg, "Erro"

vErro = True

End If

If txtEstado.Text = Empty Then

MsgBox "O campo Estado não foi preenchido.", vConfMsg, "Erro"

vErro = True

End If

If txtCEP.Text = Empty Then

MsgBox "O campo CEP não foi preenchido.", vConfMsg, "Erro"

vErro = True

End If

'Se aconteceu um erro de digitação, sai da sub sem gravar:

If vErro Then Exit Sub

Screen.MousePointer = vbHourglass

With cnnComando

.ActiveConnection = cnnBiblio

.CommandType = adCmdText

'Verifica a operação e cria o comando SQL correspondente:

If vInclusao Then

'Inclusão:

.CommandText = "INSERT INTO Usuarios " & _

"(CodUsuario, NomeUsuario, Endereco, Cidade, " & _

"Estado, CEP, Telefone) VALUES ('" & _

txtCodUsuario.Text & ",'" & _

txtNomeUsuario.Text & "','" & _

txtEndereco.Text & "','" & _

txtCidade.Text & "','" & _

txtEstado.Text & "','" & _

txtCEP.Text & "','" & _

txtTelefone.Text & "');"

Else

'Alteração:

.CommandText = "UPDATE Usuarios SET " & _

"NomeUsuario = '" & txtNomeUsuario.Text & "'," & _

"Endereco = '," & txtEndereco.Text & "'," & _

"Cidade = '," & txtCidade.Text & "'," & _

"Estado = '," & txtEstado.Text & "'," & _

"CEP = '," & txtCEP.Text & "'," & _

"Telefone = '," & txtTelefone.Text & "' " & _

"WHERE CodUsuario = " & txtCodUsuario.Text & ";"

End If

.Execute - Aqui.

End With

MsgBox "Gravação concluída com sucesso.", _

vbApplicationModal + vbInformation + vbOKOnly, _

"Gravação OK"

'Chama a sub que limpa os dados do formulário:

LimparTela

Saida:

Screen.MousePointer = vbDefault

Set cnnComando = Nothing

Exit Sub

errGravacao:

With Err

If .Number <> 0 Then Esta dando erro aqui, ai eu desative o on error, ai ele mostrou o erro no .execute ali em cima e o compilador mostrou q está com erro de sintaxe.MsgBox "Houve um erro durante a gravação dos dados na tabela.", _

vbExclamation + vbOKOnly + vbApplicationModal, "Erro"

.Number = 0

GoTo Saida

End If

End With

End Sub

 

`Preciso muito resolver esse problema, pois preciso muito criar esse programa, é urgente, caso alguem possa me ajudar eu agradeço

[Mário Monteiro 179]

o erro de sintaxe sao as virgulas que tem a mais

 

vou destaca-las

 

voce retira

 

"Endereco = '," & txtEndereco.Text & "'," & _

"Cidade = '," & txtCidade.Text & "'," & _

"Estado = '," & txtEstado.Text & "'," & _

"CEP = '," & txtCEP.Text & "'," & _

"Telefone = '," & txtTelefone.Text & "' " & _