Fazer uma nova pergunta
-
Fernando Gama Rodrigues
23/10/2019Bom dia... Ao inserir os dados no excel, está dando o seguinte erro: O que pode ser professor? "Erro em tempo de execução '-2147217908 (80040e0c)': O comando de texto não foi definido para o objeto de comando." Segue meu código: =============== 'FrameWork Access 04 '=================== Sub Buscar() Set Tabela = New ADODB.Recordset Call Conectar Tabela.Open SQL, Banco, adOpenStatic plan_Usuario.Range("A2").CopyFromRecordset Tabela Call Desconectar End Sub 'FrameWork Access 01 '=================== Function Conectar() As Boolean On Error GoTo Erro Set Banco = New ADODB.Connection Dim caminhoBanco As String Dim Senha As String caminhoBanco = plan_Configurar.Range("Caminho").value Senha = plan_Configurar.Range("Senha").value Senha = Criptografia(Senha) With Banco .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & caminhoBanco & "; Jet OLEDB:Database Password=" & Senha .Mode = adModeReadWrite .Open End With Erro: If Banco.State = adStateOpen Then Conectar = True Else Conectar = False mod_Codigo.Erro ("Não foi possÃvel conectar ao banco de dados!") End If End Function
Edivan Cabral da Silva
Bom dia!!! O erro parece indicar que faltou a atribuição do comando SQL que você deseja executar, porém para eu ter certeza e te ajudar com mais exatidão, eu precisava ver seu projeto, pode me enviar por e-mail? contato@edivamcabral.com.br ou então pelo zap 27 99511-6242.... Abraço...