DELETAR REGISTROS DE TABELA VBA

Processos de importação e exportação de dados, interação entre o Excel e demais softwares, interface com Banco de dados, SQL.

DELETAR REGISTROS DE TABELA VBA

Mensagempor JPerez » Qui Jul 13, 2017 2:41 pm

Possuo o codigo abaixo, porem o mesmo não deixa deletar os registros da tabela antes de efetuar um novo update.

O erro que aparece é: Erro de Sintaxe na Clausula From.

Código: Selecionar todos
Dim cn As ADODB.Connection 'variável para base
Dim rs As ADODB.Recordset 'variável para tabela
Dim r As Long 'variável para o númerdo da linha na planilha
Dim str As String


'conectando ao banco de dados access
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=K:\AREA MÉDICA\JOSE PEREZ\GESTÃO INTERNAÇÕES ÁREA MÉDICA\BANCO ACCESS\AreaMedica.accdb"

'abrindo a tabela do banco de dados

Set rs = New ADODB.Recordset

rs.Open "Delete * FROM Planilha_Nivel_II", cn, adOpenKeyset, adLockOptimistic, adCmdTable ' Deleta Todos os registros da tabela"

rs.Open "Planilha_Nivel_II", cn, adOpenKeyset, adLockOptimistic, adCmdTable

'número da linha que irá começar na planilha
r = 2

Do While Len(Range("A" & r).Formula) > 0 ' repete enquanto a coluna a for maior que Zero

With rs
.AddNew 'insere novo registro no banco de dados
Editado pela última vez por wagner em Qui Jul 13, 2017 2:52 pm, em um total de 1 vez.
Razão: Códigos VBA devem ser inseridos com a TAG CODE existente no início da caixa de mensagens.
JPerez
Membro
Membro
 
Mensagens: 242
Registrado em: Qua Mai 12, 2010 12:24 am
Has thanked: 29 times
Have thanks: 4 times

{ SO_SELECT }

Share on Facebook Facebook

Re: DELETAR REGISTROS DE TABELA VBA

Mensagempor Gesus » Qui Ago 10, 2017 9:27 am

Bom dia Faz Assim

Código: Selecionar todos
Dim cn As DAO.Database

LocalBD = "K:\AREA MÉDICA\JOSE PEREZ\GESTÃO INTERNAÇÕES ÁREA MÉDICA\BANCO ACCESS\AreaMedica.accdb"

Set cn = OpenDatabase(LocalBD)

sql = "DELETE FROM Planilha_Nivel_II;"

cn.Execute sql

Set cn = Nothing



Qualquer coisa manda msg ai, blz
Gesus
Membro
Membro
 
Mensagens: 41
Registrado em: Sex Jul 18, 2014 12:30 pm
Has thanked: 2 times
Have thanks: 9 times


Voltar para Integração Excel & Acess

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante