2016-04-21 36 views
0

Hallo ich VB6 und mysql verwenden, und ich bin mit einem Problem konfrontiert durch Daten bei der Suche seiner nicht holen AufzeichnungenVB mysql Datumssuche funktioniert nicht

Hier ist mein Code

Dim GetDateNow As Date 
Dim GetDateTen As String 
Dim SetDateTen As Date 
GetDateNow = Format$(Now, "yyyy-mm-dd") 
GetDateTen = Now - 15 
SetDateTen = Format$(GetDateTen, "yyyy-mm-dd") 

Dim rs As New Recordset 
SQL = "SELECT * FROM CreditPayLog WHERE payment_user='" & Label5.Caption & "' AND payment_date BETWEEN '" & Format(SetDateTen, "yyyy-MM-dd") & "' AND '" & Format(GetDateNow, "yyyy-MM-dd") & "'" 

Auch habe ich verwendet debug.print Funktion die Abfrage zu sehen, sieht alles gut, aber es ist nicht hier Abrufen von Daten ist die Abfrage

SELECT * FROM CreditPayLog WHERE payment_user='1222150322' AND payment_date BETWEEN '2016-04-06' AND '2016-04-21' 

payment_date ist DATETIME Spalte in Mysql

+1

VB.NET IsNot VB6 verwenden. Bitte verwenden Sie keine unangemessenen Tags. – Plutonix

+1

Entschuldigung für meinen Fehler –

Antwort

0

Ihre SQL erstellt einen Text/Zeichenfolge Wert für das Datum ... Sie müssen als Datum zu übertragen. Nicht sicher, wie in mySQL aber in MSSql würden Sie Convert(datetime, 'yourDateAsString', 103)

+0

Es ist die Funktion str_to_date(). – nabuchodonossor