Pesquisar na Comunidade

Olá moçada. Preciso de um help de vocês. Tenho 2 consultas (com algumas sub-consultas cada), que adiciona registros em uma tabela. Quando eu executo a consulta diretamente pelo access, o tempo de processamento é normal (segundos), mas quando eu executo a mesma consulta por VBA (ADO, OLEDB.12.0) está demorando muito (minutos). Alguem teria uma luz? Desde já agradeço pela colaboração. Forte abraço. Junior

E ai pessoal, tudo bem? Preciso de um super help com o meu projeto, estou inserindo dados de uma Form do Excel no Mysql , preciso inserir o horario que uma form abre e outro horário que ela fecha e o intervalo entre elas, Assim: Tabela: horario1 DATETIME, horario2 DATETIME, Diferenca DATETIME Form1: Private Sub UserForm_Initialize() inicio = Now() End Sub Private Sub UserForm_Terminate() fim = Now() diferenca = DateDiff("n", inicio, fim) 'Não sei se essa é a forma correta Conectar_BD End Sub Módulo do VBA: Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim fld As ADODB.Field Dim sql As String Dim inicio As Date Dim fim As Date Dim diferenca As Date Sub Conectar_BD() 'connect to MySQL server using Connector/ODBC Set conn = New ADODB.Connection conn.ConnectionString = "DRIVER=MySQL ODBC 5.3 Unicode Driver;" _ & "SERVER=localhost;" _ & " DATABASE=horario;" _ & "UID=root;PWD=senha;" & "OPTION=3;" conn.Open conn.Execute "insert into horario (horario1, horario2, diferenca) values ('" & horario1 & "', '" &horario2& "', '" & diferenca & "')" End Sub Neste caso eu preciso que grave no Mysql em formato de data em uma única linha os dados, ex: horario1 horario2 diferenca 23/02/2016 10:30:10 23/02/2016 10:35:10 23/02/2016 00:05:00 Obrigado fico no aguardo. Pessoal, me desculpem não sei como apareceu um tópico repetido esse é o tópico com a revisão.

E ai pessoal, tudo bem? Preciso de um super help com o meu projeto, estou inserindo dados de uma Form do Excel no Mysql , preciso inserir o horario que uma form abre e outro horário que ela fecha e o intervalo entre elas, Assim: Tabela: horario1 DATETIME, horario2 DATETIME, Diferenca DATETIME Form1: Private Sub UserForm_Initialize() inicio = Now() End Sub Private Sub UserForm_Terminate() fim = Now() diferenca = DateDiff("n", inicio, fim) 'Não sei se essa é a forma correta Conectar_BD End Sub Módulo do VBA: Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim fld As ADODB.Field Dim sql As String Dim inicio As Date Dim fim As Date Dim diferenca As Date Sub Conectar_BD() 'connect to MySQL server using Connector/ODBC Set conn = New ADODB.Connection conn.ConnectionString = "DRIVER=MySQL ODBC 5.3 Unicode Driver;" _ & "SERVER=localhost;" _ & " DATABASE=horario;" _ & "UID=root;PWD=senha;" & "OPTION=3;" conn.Open conn.Execute "insert into horario (horario1, horario2, diferenca) values ('" & horario1 & "', '" &horario2& "', '" & diferenca & "')" End Sub Neste caso eu preciso que grave no Mysql em formato de data em uma única linha os dados, ex: horario1 horario2 diferenca 23/02/2016 10:30:10 23/02/2016 10:35:10 Obrigado fico no aguardo.

Boa noite, alguém pode me ajudar ,preciso de um tutorial de como criar um ini de conexao com o ado para delphi. Estou usando: Banco: PostgresSql 1 Data Module , com os componentes de conexao. Conexão via ODBC O Ini e mais para gravar o caminho do banco de dados,assim eu posso determinar o ip ou caminho de onde ficara o banco. Att, Otácio