tengo el siguiente código :
Private Sub Command1_Click()
Set RS = New ADODB.Recordset
RsCursorLocation = adUseClient
SQL = "SELECT T.ID, T.NAMES, Count(*) AS NF FROM TEMPLATES AS T INNER JOIN SCAN_TIME AS S ON T.ID = S.ID WHERE (((S.SCANTIME) Between
#10/1/2015# And #10/31/2015#)) GROUP BY T.ID, T.NAMES;"
If RS.State Then RS.Close
RS.Open SQL, cnDB, adOpenDynamic, adLockOptimistic, adCmdText
Set DataGrid.DataSource = RS
Set RS = Nothing
y tengo que cambiar lo que esta señalado en negrilla por textbox pero no se como hacerlo.
Cuando lo intente me salio un error que dice: no coinciden los tipos de datos en la expresión del criterios. y este es el código modificado en mi intento fallido:
Private Sub Command1_Click()
Set RS = New ADODB.Recordset
RsCursorLocation = adUseClient
SQL = "SELECT T.ID, T.NAMES, Count(*) AS NF FROM TEMPLATES AS T INNER JOIN SCAN_TIME AS S ON T.ID = S.ID WHERE (((S.SCANTIME) Between
'" & Text1.Text & "' And
'" & Text2.Text & "'))
GROUP BY T.ID, T.NAMES;"
If RS.State Then RS.Close
RS.Open SQL, cnDB, adOpenDynamic, adLockOptimistic, adCmdText
Set DataGrid.DataSource = RS
Set RS = Nothing
y me salta error en la linea subrayada. alguien me podría ayudar?
pd: trabajo en vb 6.0