Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Erro de sintaxe na instrução INSERT INTO

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

Alexalbino
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qua Out 17, 2018 3:19 pm

Erro de sintaxe na instrução INSERT INTO

Mensagem por Alexalbino » Dom Abr 21, 2019 11:16 am

Bom dia amigos!

Estou com um erro na instrução insert into, no qual não consigo identificar, ja fiz outras vezes o mesmo metodo porem neste caso está apresentando este erro.

Alguem consegue me ajudar?

Codigo.
--------------------------------------------
Private Sub cmDcadastrarUSUARIO_Click()
If Me.TXTUSUARIO = "" Then
MsgBox "Preencha o campo usuario!!!", vbCritical, "Cadastro de usuario"
Me.TXTUSUARIO.SetFocus
Exit Sub
End If

If Me.TXTLOCAL = "" Then
MsgBox "Preencha o campo local!!!", vbCritical, "Cadastro de usuario"
Me.TXTLOCAL.SetFocus
Exit Sub
End If

If Me.TXTDEPARTMENTO = "" Then
MsgBox "Preencha o campo departamento!!!", vbCritical, "Cadastro de usuario"
Me.TXTDEPARTMENTO.SetFocus
Exit Sub
End If

conectar

Sql = "insert into clientes (usuario, " _
& " local, departamento)" _
& " values ('" & Me.TXTUSUARIO _
& "','" & Me.TXTLOCAL & "','" & Me.TXTDEPARTMENTO & "')"
cn.Execute Sql

MsgBox "Usuario cadastrado com sucesso!!", vbInformation, empresa

End Sub

--------------------- Modulo conectar
Sub conectar()

Set cn = New ADODB.Connection

With cn
.Provider = "microsoft.ace.oledb.12.0"
.ConnectionString = "C:\Users\AlexA\OneDrive\Área de Trabalho\ATIVOS TI" & "\BASE_TI.accdb"
'.ConnectionString = ThisWorkbook.Path & "\Sistema_Basico_de_Vendas.accdb"
.Open
End With

End Sub

Sub desconectar()
cn.Close
Set cn = Nothing
End Sub

-------------------------------------------------

Arquivo em anexo..

Agradeço desde já.

Atenciosamente
Anexos
ATIVOS TI.rar
(263.42 KiB) Baixado 2 vezes



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1098
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Erro de sintaxe na instrução INSERT INTO

Mensagem por Reinaldo » Dom Abr 21, 2019 7:04 pm

Me parece que o Campo nome "Local" está gerando algum conflito.
Experimente assim:

Código: Selecionar todos

Sql = "INSERT INTO clientes ( [usuario],  [local], [departamento])"
Sql = Sql & " VALUES ("
Sql = Sql & " '" & Me.TXTUSUARIO.Text & "'"
Sql = Sql & ", '" & Me.TXTLOCAL.Text & "'"
Sql = Sql & ", '" & Me.TXTDEPARTMENTO.Text & "'"
Sql = Sql & " )"


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

Alexalbino
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qua Out 17, 2018 3:19 pm

Re: Erro de sintaxe na instrução INSERT INTO

Mensagem por Alexalbino » Dom Abr 21, 2019 10:19 pm

Reinaldo, Boa noite!

Perfeito, inserir os colchetes nos nomes da coluna e a instruções funcionou perfeitamente.

Muito obrigado, nunca havia utilizado os colchetes.

Muito obrigado mesmo.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder