harolda1980
Gebruiker
- Lid geworden
- 7 aug 2007
- Berichten
- 488
Ik probeer in deze Sql string een datum neer te zetten maar op een of andere manier krijg ik dat niet voorelkaar.
Heeft iemand een idee?
De datum komt dus niet in de string te staan. Terwijl de string het wel doet als ik hem opbouw in mijn sql editor.
Heeft iemand een idee?
De datum komt dus niet in de string te staan. Terwijl de string het wel doet als ik hem opbouw in mijn sql editor.
Code:
Private Sub cmdNart_Click()
Dim DT,
Dim datestring As Date
Dim rstpl As ADODB.Recordset
Dim stringsql As String
DT = InputBox("Voer de datum in vanaf wanneer de controle dient te gebeuren!" & vbNewLine & "Voer de datum in als 2012-01-01", "Nieuwe artikelen controle - INSTAT 2012", 0)
Set rstpl = New ADODB.Recordset
stringsql = "SELECT tblart.A_nr, tblart.aid, tblart.A_naam, tblart.A_dtc, tblafname.AF_af, tblafname.AF_week, tblafname.AF_jaar, tblafname.AID FROM tblart INNER JOIN tblafname ON tblart.aid = tblafname.AID WHERE tblart.A_dtc > '& DT &' AND tblafname.AF_jaar = # & year(now) & # AND tblafname.AF_af > 4 Group BY tblart.aid, tblafname.AID;"
rstpl.Open CNNAPP, adOpenDynamic, adLockOptimistic
Do While Not rstpl.EOF
'code om de gegevens te verwerken volgt
rstpl.MoveNext
Loop
rstpl.Close
set rstpl = nothing
End Sub