Ver Mensaje Individual
  #6 (permalink)  
Antiguo 13/04/2012, 10:15
cindycpc3
 
Fecha de Ingreso: abril-2012
Ubicación: Caracas
Mensajes: 22
Antigüedad: 13 años
Puntos: 1
Respuesta: visual basic y sql

listo lojoam gracias si me sirvio tu ayuda dejo el codigo por aca para el que lo necesite

Private Sub Timer1_Timer()
Dim Hora As String
Dim Fecha As String
Dim sql As String



'Función que te devuelve la hora
Hora = Time()
Fecha = Date


'g_db.Open "driver={SQL Server};server=192.168.0.3;uid=profit;pwd=profit;d atabase=distorbe"
'''prueba
g_db.Open "driver={SQL Server};server=SERVIDOR2;uid=profit;pwd=profit;dat abase=Prueba1"
sql = "select a.fact_num, a.despacho, b.campo5, c.status from tabla_factura a inner join tabla_clientes b on a.co_cli = b.co_cli left join tabla_Enviados c on a.fact_num = c.fact_num"
rs.Open sql, g_db, adOpenKeyset

If Hora = "10:42:00 a.m." Then
'ejecutas el sql

g_db.Execute sql
'Función que te devuelve la hora
Hora = Time()
If Hora = "05:30:00 p.m." Then
'ejecutas el sql
'rs.Open sql, g_db, adOpenKeyset
g_db.Execute sql

'recorres el recordset para mandar lo sms
If Len(sqlfilter) > 0 Then sqlfilter = " where " & sqlfilter & " Order by id "

'-- ejecuta la consulta
sql = sql & sqlfilter

If rs.RecordCount > 0 Then
sql = "select a.fact_num, a.despacho, b.campo5 from tabla_factura a inner join tabla_clientes b on a.co_cli = b.co_cli where a.status = 0 and convert (char (10) ,campo5, 103) = 'fact_num'"




End If
End If

rs.Close
g_db.Close

End Sub