Фильтр доступа во времени

Question

У меня есть таблица со временем в поле даты и времени на сервере MSSQL2k8R2. Я связал таблицу в Access 2007. Таблица была перенесена с помощью помощника по миграции из Microsoft.

т.е. Managemantstudio даст на SELECT TOP 3 [AbZeit], [AbBrP] FROM [dbo].[tSollFahrten] результатом

AbZeit     AbBrP 
1899-12-30 12:53:00.000 LOR 
1899-12-30 09:27:00.000 BAT 
1899-12-30 10:54:00.000 LOR 

Когда я собираюсь открыть набор записей ADO и установить фильтр, он работал отлично (но медленно).

Dim rs As New ADODB.Recordset 
rs.Open "Select * from tSollFahrten;", CurrentProject.Connection, adOpenKeyset, adLockOptimistic 
rs.Filter = "AbZeit=#12:53#" 
Debug.Print rs.RecordCount 
rs.Close 

В результате один набор записей. Но для открытия набора записей уже filterd не будет работать вообще. У меня нет результата.

Dim rs As New ADODB.Recordset 
rs.Open "Select * from tSollFahrten where AbZeit = #12:53#;", CurrentProject.Connection, adOpenKeyset, adLockOptimistic 
Debug.Print rs.RecordCount 
rs.Close 

Есть ли у кого-нибудь идеи, что там происходит?

Answer 1

Проблема заключается в том, что время на сервере SQL хранится в виде datetime. Таким образом, поле в связанной таблице является datetime. Когда время хранится как time(7) на сервере SQL, поле в связанной таблице получит text. И тогда выбор будет работать с AbZeit='12:53', как и ожидалось.

Answer 2

Поскольку это тип Date/Time, я бы предложил вам найти полную дату и время. Нечто подобное,

Dim rs As New ADODB.Recordset 

rs.Open "SELECT * FROM tSollFahrten " & _ 
     "WHERE AbZeit >= #1899-12-30 12:53:00# AND AbZeit <= #1899-12-30 12:54:00#;" , _ 
     CurrentProject.Connection, adOpenKeyset, adLockOptimistic 

Debug.Print rs.RecordCount 

rs.Close 

Answer 3

Существует важное различие между этими двумя утверждениями:

rs.Open "Select * from tSollFahrten;", CurrentProject.Connection, adOpenKeyset, adLockOptimistic 
rs.Filter = "AbZeit=#12:53#" 

==> В этом случае вы получите первые данные с сервера SQL, с SQL SERVER СИНТАКСИСА, и затем вы фильтруете их LOCALLY с ACCESS SYNTAX.

rs.Open "Select * from tSollFahrten where AbZeit = #12:53#;", CurrentProject.Connection, adOpenKeyset, adLockOptimistic 

==> В этом случае, вы делаете все с SQL SERVER СИНТАКСИСА. Однако Hashtag ## специфичен для Access, и SQL Server этого не понимает.

EDIT: В SQL Server, вы можете запросить час и минуту, как это:

rs.Open "Select * from tSollFahrten where datepart(hh, AbZeit)=12 and datepart(mi, abZeit)=53", CurrentProject.Connection, adOpenKeyset, adLockOptimistic