Untitled

Dim conn As ADODB.Connection

Dim admin As ADODB.Recordset

Dim adm As String

 

Private Sub Form_Load()

connserver

End Sub

Private Sub connserver()

  Set conn = New ADODB.Connection

  conn.Open "Driver={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=alps;USER=root;PASSWORD=;OPTION=3"

  Set admin = New ADODB.Recordset

End Sub

 

Private Sub Command1_Click()

    Dim adm As String

    Dim myrecord As ADODB.Recordset

    Set myrecord = New ADODB.Recordset

   

    admin.CursorLocation = adUseServer

    adm = "SELECT EmpID, sum(TIMESTAMPDIFF(MINUTE,TimeIn,TimeOut)) as TotalTime FROM `records` where date(TimeIn) like '" & Text1.Text & "' group by EmpID"

    admin.Open adm, conn

   

    If admin.EOF = False Then

                Set DataGrid1.DataSource = admin

                DataGrid1.Refresh

    Else

        MsgBox "There are no records for " & Text1.Text & "!"

    End If

       

End Sub