Ir para conteúdo
Fórum Script Brasil

Luis_Gustavo

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

Sobre Luis_Gustavo

Luis_Gustavo's Achievements

0

Reputação

  1. 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.
  2. 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.
×
×
  • Criar Novo...