Ïîìîãèòå, ïðèìèòèâíûé ÇÀÏÐÎÑ ÌÅÆÄÓ ÄÀÒÀÌÈ òîðìîçèò áîëüøóþ ðàáîòó |
SELECT * FROM DB WHERE '" & data3 & "' <= Data AND Data <= '" & data4 & "'
Dim c As New OleDbCommand 'ïåðåìåííàÿ "ñ" áóäåò êîìàíäîé ê âûïîëíåíèþ c.Connection = conn c.CommandText = "SELECT * FROM DB WHERE '" & data3 & "' <= Data AND Data <= '" & data4 & "'" ' ORDER BY Data,Zveno,Pole,Diametr" 'âûáðàòü âñå ïîëÿ èç òàáëèöû DB âíåøíåé áàçû äàííûõ ñ âûáðàííîé äàòîé" Dim ds As New DataSet Dim da As New OleDbDataAdapter(c) da.Fill(ds, "DB")
http://www.sql.ru/forum/1158810/pomogite-primitivnyy-zapros-mezhdu-datami-tormozit-bolshuu-rabotu
| Êîììåíòèðîâàòü | « Ïðåä. çàïèñü — Ê äíåâíèêó — Ñëåä. çàïèñü » | Ñòðàíèöû: [1] [Íîâûå] |