USANDO O EXECUTE ADODB
Olá. O que estou fazendo de errado neste código? Sempre exibe erro de sintaxe.
Obrigado
Dim imagens_delete As ADODB.command
Set imagens_delete = New ADODB.command
If MsgBox("Você deseseja remover a imagem e o registro atualmente selecionado?", vbYesNo + vbDefaultButton2 + vbCritical, "macromotion gerenciador de clientes") = vbNo Then
Else
SQL3 = "DELETE FROM mgc_clientes_imagens Where Id='" & Text31(12).Text & "'"
imagens_delete.ActiveConnection = conexao.conexao
imagens_delete.CommandText = "SQL3"
imagens_delete.CommandType = adCmdStoredProc
imagens_delete.Execute
Obrigado
imagens_delete.CommandText = "SQL3"
para:
imagens_delete.CommandText = SQL3
para:
imagens_delete.CommandText = SQL3
ou faça direto:
conexão.execute "DELETE FROM mgc_clientes_imagens Where Id='" & Text31(12).Text & "'"
conexão.execute "DELETE FROM mgc_clientes_imagens Where Id='" & Text31(12).Text & "'"
Obrigado aos 2. Porém só tirando as aspas acabou não funcionando, Mas da forma direta sim.
Tópico encerrado , respostas não são mais permitidas