Zamiast formatować wartości, takie jak daty lub ciągi znaków w poleceniu SQL, znacznie lepiej jest użyć ADODB.Parameter - w takim przypadku kierowca wykona całą pracę za Ciebie. Nie musisz dbać o cudzysłowy wokół ciągu, formatując datę tak, aby baza danych zrozumiała ją poprawnie (co w dużym stopniu zależy od bazy danych, ustawień regionalnych itp.). Dodatkowo jest to ochrona przed wstrzyknięciem SQL. Ponadto optymalizator zapytań może wykonywać swoją pracę znacznie lepiej, ponieważ za każdym razem otrzymuje to samo polecenie SQL i zapamiętuje plan wykonania.
Wada:kod jest nieco bardziej skomplikowany, ponieważ musisz zaangażować ADODB.command obiekt.
W instrukcji SQL umieszczasz prosty ? w miejscu, w którym chcesz mieć parametr. Musisz tylko uważać, aby liczby i pozycja ? i parametry są zgodne.
Dim Conn As New ADODB.Connection, cmd As New ADODB.Command, param As ADODB.Parameter, rs As ADODB.Recordset
Conn.Open "<your connection string>"
Set cmd.ActiveConnection = Conn
cmd.CommandText = "SELECT cID FROM logistics WHERE DATE(insert_timestamp) BETWEEN ? AND ? GROUP BY 1"
Set param = cmd.CreateParameter(, adDate, adParamInput, , Date)
cmd.Parameters.Append param
Set param = cmd.CreateParameter(, adDate, adParamInput, , Date + 1)
cmd.Parameters.Append param
Set rs = cmd.Execute
Debug.Print rs.Fields(0).Name, rs(0).Value
PS Byłem trochę leniwy, jeśli chodzi o obsługę dat, jeśli masz dane dokładnie o północy, dostaniesz za dużo danych.
