#128

[@playerdobem4152]

Muito top. Me ajudou muito. Pena q poucos apreciam esse conhecimento.

[@RicardoCamisa]

Uau! Bom trabalho professor Alessandro Trovato.

[@AlessandroTrovato]

Fico muito feliz Ricardo que tenha gostado dessa aula. Há mais de 780 vídeos como esse aqui no meu canal no KZbin! Bons estudos!

[@comprasrudely1777]

olá, parabéns. Me ajudou muito seu video! Gostaria de uma dica. É possivel eu aproveitar a função de conexão, usando outras subs para enviar apenas o comando sql para a sub de conexão, para não precisar , copiar tudo cada vez?

[@marcosrenan93]

Sensacional Professor.

[@AlessandroTrovato]

Fico muito grato pelo seu feedback Marcos! Grande abraço. Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos! Espero que os mais de 750 vídeos tutorias que possuo atualmente (só de Excel são mais de 410!) possam lhe ajudar. Tenho um site com um catálogo virtual dos vídeos do KZbin organizados e cursos com certificado podem ser encontrados em meu site: www.alessandrotrovato.com.br Bons estudos e sucesso!

[@PyTax]

Suas aulas são sempre incrivéis! Obrigado por mais essa contribuição mestre Alessandro!

[@AlessandroTrovato]

Muito obrigado Nicolas pela mensagem e por acompanhar os trabalhos. Fico feliz com seu feedback! Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos! Espero que os mais de 500 vídeos tutorias que possuo atualmente (só de Excel são mais de 250!) possam lhe ajudar. Bons estudos e sucesso!

[@benjamingmsousa]

​@@AlessandroTrovato ​ Boa noite professor, verifiquei a planilha e outros comentários, e percebi que várias pessoas estão tendo o mesmo problema em: RS.Open SQL, MDB O senhor poderia esclarecer? Estou usando .accdb Connection string está correto, só da erro nessa linha separada acima.

[@priscocleyton395]

Ótimo Professor e ótimo conteúdo! Parabéns!

[@vitorcosta4118]

Salvou o dia!

[@AlessandroTrovato]

Fico feliz que tenha ajudado... Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos! Espero que os mais de 690 vídeos tutorias que possuo atualmente (só de Excel são mais de 380!) possam lhe ajudar. Site com todos os vídeos dos cursos completos organizados: sigaonerd.esy.es/index.html Site com meus cursos com certificados: cursos.alessandrotrovato.com.br Bons estudos e sucesso!

[@PyTax]

Alessandro, como faria para não importar os registros que já existem no banco? identificar os duplicados.

[@AlessandroTrovato]

Olá Nícolas! Há aulas nesse projeto e no projeto de orçamento que explicam como fazer isso. Basicamente, antes de fazer um insert você faz um select com os parâmetros desejados e verifica se o registro já está na base, ignorando o insert! Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos! Espero que os mais de 500 vídeos tutorias que possuo atualmente (só de Excel são mais de 250!) possam lhe ajudar. Bons estudos e sucesso!

[@benjamingmsousa]

Boa noite professor, verifiquei a planilha e outros comentários, e percebi que várias pessoas estão tendo o mesmo problema em: RS.Open SQL, MDB O senhor poderia esclarecer? Estou usando .accdb Connection string está correto, só da erro nessa linha separada acima.

[@mainexcel1527]

Alguem descobriu como resolver esse problema?

[@benjamingmsousa]

Renato Lima renato, me manda um email que eu consegui montar importacao pro access, so que de outra forma. [e-mail]

[@Petervantrof]

Prof. Alessandro, no âmbito desta aula, ao executar o VBA, quando a gravação tenta executar RS.Open SQL, MDB ,acusa "Run-time error 3709". Já tentei corrigir de várias formas, mas acusa sempre o mesmo erro. Pode ajudar-me? Obrigado! Aproveito para desejar a você um Ano Novo cheio de prosperidades, amor, paz, saúde e continuação das suas excelentes aulas!

[@valtermacena1]

Olá Carlos, por acaso vc conseguiu corrigir esse erro? Att.

[@benjamingmsousa]

Tambem estou com o mesmo problema, se souberem a solução...

[@lenoeldasilva4513]

RS.Open SQL, MDB Ln = Ln + 1 Col = 1 no meu teste dar erro nessa parte, tem como explicar?

[@pedromoraeseng]

Olá Alessandro. Tenho uma planilha similar a sua com quatro colunas, sendo que uma delas está no formato hora "hh:mm:ss". Aí que está o problema, não consigo de forma alguma que o excel envie para o Access nesse formato, tentei de diversas formas. Você poderia me ajudar nessa questão? Na Verificação Imediata, o campo hora está no formato correto, como pode ser visto abaixo. No Access também deixei nesse formato de hora. ?SQL INSERT INTO tbDados (LEITURA_QR, HORA, DATA, ESTACAO)VALUES(fg,17:23:41,10/07/2018,1) Estou usando esse provider: MDB.Open "Provider=Microsoft.ACE.OLEDB.12.0 Excel 2010; Access 2007 Obrigado

[@AlessandroTrovato]

Olá Pedro. Tente colocar as horas e a data entre aspas. INSERT INTO tbDados (LEITURA_QR, HORA, DATA, ESTACAO)VALUES(fg,"17:23:41","10/07/2018",1) Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos! Espero que os mais de 530 vídeos tutorias que possuo atualmente (só de Excel são mais de 300!) possam lhe ajudar. Bons estudos e sucesso!

[@felipeti167]

O meu está com o seguinte erro no momento que executo o RS.Open SQL, MDB: "[Microsoft][ODBC Driver Manager] Nome de fonte de dados muito longo " podem me ajudar?

[@danilocedro8723]

Set RS = MDB.open(SQL) Pra mim só deu certo assim

[@user-ch3vo8gy5b]

OlOla, boa noite!!! Virei seu fâ apos assistir sua aula de insert dados no access. Muito Top. Estava precisando criar uma planilha com banco access. Gostaria que tira uma duvida minha fiz a sua planilha exportando dados para o access, mas quando rodo a macro no camo RS.Open, SQL,MDB, Da o erro de Execução -2147217900.... Erro de Automação. Ja tentei de tudo.... Desde ja agradeço pela contribição com seus ensinamentos. CODIGO Option Explicit Private Sub btExecuta_Click() Dim MDB As New ADODB.Connection Dim RS As New ADODB.Recordset Dim SQL As String Dim w As Worksheet Dim UltCel As Range Dim LN As Long Dim COL As Integer Set w = Sheets("Plan1") LN = 2 COL = 1 w.Select w.Range("A1").Select MDB.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Alexandre\Desktop\BD_Access\BDTABULADOR.mdb;User Id=admin;Password=;" Set UltCel = w.Cells(w.Rows.Count, 1).End(xlUp) Do While LN

[@benjamingmsousa]

aqui também é o mesmo problema, se descobrir e conseguir me avisar...

[@pablomiranda7999]

@@benjamingmsousa o meu estava faltando dando esse erro por falta do parêntese ,más, conforme o código acima está com uma aspas a mais no final. Acredito que sejá isso.

[@tiagorobson9442]

aqui de erro de sintaxe na instrução inser into, pode ajudar a entender onde está o erro? SQL = " INSERT TO tbDados " SQL = SQL & " ([COD], [REPRESENTANTE], [PEDIDOS], [SEGUNDA], [PEDIDOS1], [TERCA], [PEDDOS2], [QUARTA], [PEDIDOS3], [QUINTA], [PEDIDOS4], [SEXTA], [PEDIDOS5], [SABADO], [DATA], [Total PED semana])" SQL = SQL & " values " SQL = SQL & " ('" & w.Cells(Ln, col).Value & "', " SQL = SQL & " '" & w.Cells(Ln, col + 1).Text & "', " SQL = SQL & " '" & w.Cells(Ln, col + 2).Text & "', " SQL = SQL & " '" & w.Cells(Ln, col + 3).Text & "', " SQL = SQL & " '" & w.Cells(Ln, col + 4).Text & "', " SQL = SQL & " '" & w.Cells(Ln, col + 5).Text & "', " SQL = SQL & " '" & w.Cells(Ln, col + 6).Text & "', " SQL = SQL & " '" & w.Cells(Ln, col + 7).Text & "', " SQL = SQL & " '" & w.Cells(Ln, col + 8).Text & "', " SQL = SQL & " '" & w.Cells(Ln, col + 9).Text & "', " SQL = SQL & " '" & w.Cells(Ln, col + 10).Text & "', " SQL = SQL & " '" & w.Cells(Ln, col + 11).Text & "', " SQL = SQL & " '" & w.Cells(Ln, col + 12).Text & "', " SQL = SQL & " '" & w.Cells(Ln, col + 13).Text & "', " SQL = SQL & " '" & w.Cells(Ln, col + 14).Text & "', " SQL = SQL & " '" & w.Cells(Ln, col + 15).Text & "', " 'data SQL = SQL & " '" & w.Cells(Ln, col + 16).Text & "') " rs.Open SQL, MDB

[@tiagorobson9442]

O INTO ESTA COMPLETO, ESQUECI DE CORRIGIR ANTES DE POSTAR, AS DA ERRO NA SINTAXE

[@isabellapittigliani4809]

Está aparecendo um erro na linha RS.Open SQL, MDB Alguém sabe o que pode ser? Obrigada!

[@valtermacena1]

Estou com o meso problema, você conseguiu resolver?

[@benjamingmsousa]

Tbm estou com o mesmo problema

[@SouzaIsaque]

Eu também estou com esse problema. :/

[@mainexcel1527]

Já verificou os parenteses nas instruções de SQL? O meu estava com parenteses a mais e acabava dando o erro.

[@sergiobastos8144]

Também estou com este mesmo erro.

[@paulosemblano7153]

Faltou fechar o recordset. Fechei após o loop e antes da conexão. Loop RS.Close MDB.Close

[@paulosemblano7153]

Como deu erro, significa que não é necessário fechar a variável RS.

[@marioalmeida06]

O som é muito baixo e prejudica o vídeo.

[@soulkeeperofficial7790]

O Meu está dando erro de Sintaxe na instrução SQL, pelo que vi está tudo Ok. Alguém conseguiu resolver? Minha String SQL: INSERT INTO tbHistorico (N_PEDIDO,DATA_REG,TEXTO,USER,TIPO,PROTOCOLO) values ('T999999', '01/02/2023', 'IMPORTACAO FLOW', 'SYSTEM', 'INICIAL', 'SEM')

[@soulkeeperofficial7790]

Obs. A chave da minha tabela é numeração automática (ID), não sei se pode ser isso, mas omiti pois desejo ser atribuído valor a esse campo de forma incremental.

[@AlessandroTrovato]

Se está utilizando o VBA para fazer o insert, as aspas simples devem ser o problema. Substitua tudo por aspas duplas.

[@soulkeeperofficial7790]

Consegui resolver adicionando [ ] nos campos. Aí foi sem problemas nenhum. Engraçado é que um outro insert sem em outra tabela vai s problemas.