Definir hora y fecha al consultar datos por query
Publicado por Sebastian (1 intervención) el 16/07/2017 19:50:32
Hola amigos tengo un problema respecto a una macro, espero puedan ayudarme:
Lo que sucede es que realizo una macro para consultar una obdc por query, para evitarme problemas utilice la opción grabar macro, pero al modificarla para ingresar manualmente hora y fecha, las cuales me las pide por separado, me arroja un error, intente cambiar el valor de la hora para ingresarla por inputbox o cualquier medio parecido y no me resulta, en la siguiente macro se puede observar, los valores que quiero ingresar son HISTORY.DATE ademas de HISTORY.TIME.
Eso seria amigos espero alguien me pueda ayudar, saludos.
Lo que sucede es que realizo una macro para consultar una obdc por query, para evitarme problemas utilice la opción grabar macro, pero al modificarla para ingresar manualmente hora y fecha, las cuales me las pide por separado, me arroja un error, intente cambiar el valor de la hora para ingresarla por inputbox o cualquier medio parecido y no me resulta, en la siguiente macro se puede observar, los valores que quiero ingresar son HISTORY.DATE ademas de HISTORY.TIME.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub CommandButton1_Click()
Range("A1:G100").Clear
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"ODBC;Driver={OpenRDA};Server=OpenRDA;Database=oil;UID=engineer;PWD=engchuq;", _
Destination:=Range("$A$1")).QueryTable
.CommandText = Array( _
"SELECT HISTORY.myName, HISTORY.dpValue, HISTORY.TIME, HISTORY.DATE, HISTORY.H_INTERVAL, HISTORY.SAMPLES" & Chr(13) & "" & Chr(10) & "FROM OAUSER.HISTORY HISTORY" & Chr(13) & "" & Chr(10) & "WHERE (HISTORY.myName='A100_PCOMUN_Hz') AND (HISTORY.TIME=0100) AN" _
, _ "D (HISTORY.DATE='11-jul-17') AND (HISTORY.H_INTERVAL='1s') AND (HISTORY.SAMPLES=60)" _ ).RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Tabla_Consulta_desde_oil18"
.Refresh BackgroundQuery:=False ' EN ESTE PUNTO ME ARROJA EL ERROR 1004 POR LA APLICACION O EL OBJETO
End With
End Sub
Eso seria amigos espero alguien me pueda ayudar, saludos.
Valora esta pregunta
0