
13/04/2012, 10:15
|
| | 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 |