llenar grid con horas rescatadas de una tabla
Publicado por Patricio (7 intervenciones) el 29/11/2006 19:45:55
Hola amigos
tengo un problem que no puedo solucionar
tengo una base de datoas mysql con vb6, y necesito rescatar los datos de una tabla , estos con formato hora (long time "00:00:00" ) pero al mandarlos a una grilla no me salen las horas
sino puros registros 00:00:00
la consulta la hice de esta manera
Dim Conn As ADODB.Connection
Dim Recset As ADODB.Recordset
Set Conn = New ADODB.Connection
Conn.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Option==131072 ;Stmt=;Database=TSHOP;Uid=PATO;"
Set Recset = New ADODB.Recordset
Recset.Open "select fecha,trabajador,entrada1,salida1,entrada2,salida2 From asistencia where trabajador = '" & CmbPersonal.Text & "' and fecha = '" & _
Format(TxtDate.Text, "yyyy-mm-dd") & "' ", Conn , adOpenDynamic , adLockBatchOptimistic , adCmdText
Set Flex.DataSource = Recset
espero que me puedan ayudar
gracias
tengo un problem que no puedo solucionar
tengo una base de datoas mysql con vb6, y necesito rescatar los datos de una tabla , estos con formato hora (long time "00:00:00" ) pero al mandarlos a una grilla no me salen las horas
sino puros registros 00:00:00
la consulta la hice de esta manera
Dim Conn As ADODB.Connection
Dim Recset As ADODB.Recordset
Set Conn = New ADODB.Connection
Conn.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Option==131072 ;Stmt=;Database=TSHOP;Uid=PATO;"
Set Recset = New ADODB.Recordset
Recset.Open "select fecha,trabajador,entrada1,salida1,entrada2,salida2 From asistencia where trabajador = '" & CmbPersonal.Text & "' and fecha = '" & _
Format(TxtDate.Text, "yyyy-mm-dd") & "' ", Conn , adOpenDynamic , adLockBatchOptimistic , adCmdText
Set Flex.DataSource = Recset
espero que me puedan ayudar
gracias
Valora esta pregunta
0