Jump to content
Fórum Script Brasil
  • 0

Cálculo de horas no VBA e gravando em Mysql


Luis_Gustavo
 Share

Question

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.

Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.6k
    • Total Posts
      646.2k
×
×
  • Create New...