Wie wird das Datum in Excel geändert, damit das Datum bei einer SQL-Abfrage ausgeführt wird?

Question

Derzeit habe ich ein Excel-Blatt, in dem ich ein Start-Datum und ein End-Datum eingegeben habe, die zum VBA-Code gehen und es in eine SQL-Abfrage eingeben. Das Problem, das ich gerade habe, ist, dass ich einen Fehler erhielt:

ORA-01843 not a valid month because the Excel is importing the date as 05/01/2016 and the query needs to be 05-may-2016 .

Wie ändere ich das ?? Hier

ist der Code für das Start- und Enddatum:

startDate = Worksheets("Sheet1").Range("B4").Text 
endDate = Worksheets("Sheet1").Range("B6").Text 

dbConnectStr = "Provider=msdaora;User Id=" & Uname 
dbConnectStr1 = "Provider=msdaora;User Id=xxendur ;Data Source=" & DSN 

Set Sql.ActiveConnection = objmyconn 
Sql.CommandText = "select system_date from syit_act_log where system_date between`enter code here` 'startDate' AND 'endDate' and action_id = 15 and log_desc not like '%svc_openlink_p%' order by system_date" 
Sql.CommandType = adCmdText 
Sql.Execute 

Answer 1

Sie benötigen eine Datumsvariablen mit dieser Formatierung einzustellen:

startDate = Format(Worksheets("Sheet1").Range("B4").Value2, "dd-mmm-yyyy") 
endDate = Format(Worksheets("Sheet1").Range("B6").Value2, "dd-mmm-yyyy") 
'startDate and endDate will be look like "05-May-2016" 

Die dreifache mmm gibt Ihnen die Monatsnamen als du hast angefragt. Verwenden Sie dann diese Variablen in Ihrer Abfrage.

Edit:

Als Ralph und Jeeped es den Vorschlag, yyyymmdd Standard

startDate = Format(Worksheets("Sheet1").Range("B4").Value2, "yyyymmdd") 
endDate = Format(Worksheets("Sheet1").Range("B6").Value2, "yyyymmdd")