Pomogite SELECT ne rabotaet kak nado :(

[Vini]

Privet vsem!
Takoe delo:
Est' fajl db.mdb v nem
tablica lib_subject
v nej
pole data format Data/Time i vida 04/28/2004 9:31:26 AM

Zadacha:
Vivesti vse zapisi gde mesac' = 5 (t.e. Maj)

delajy tak

Код: Выделить всё

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & curdir
sSQL = "SELECT * FROM lib_subject Where datepart(mm, DATE) = 05"
RS2.Open sSQL, Conn


I poluchajy oshibky vida
No value given for one or more required parameters. v stroke
RS2.Open sSQL, Conn

NArod, pomogite a???

[corgi]

я так думаю datepart(mm, DATE) это какая-то функция так и подставляй ее результаты
sSQL = "SELECT * FROM lib_subject Where " & datepart(mm, DATE) & " = 05"
RS2.Open sSQL, Conn

[skiperski]

Во-первых, определись как у тебя поле называется data или DATE. В последнем случае лучше писать в квадратных скобках.

Во-вторых, что за переменная mm? Правильно, это не переменная, а константа. Тогда так и пиши "mm".

В-третьих, не "mm", а "m". А может даже лучше не DatePart(), а Month().

Код: Выделить всё

sSQL = "SELECT * FROM lib_subject WHERE DatePart('m', [DATE]) = 5"

или

Код: Выделить всё

sSQL = "SELECT * FROM lib_subject WHERE Month([DATE]) = 5"

[Vini]

Sposibo za otveti i pouchenija, ochen' blagodaren!
Kod rabotaet prevoshodno .

Takoj vopros poputno:
Proboval li kto delat' takoe:
Zapisi za tekushij mesac vivodit' v vide

data: Tema
data: Tema

Proshedshih mesacev zapisi, sozdavat' arhiv vida

Janvar'
Fevral'
....
Avgust

Esli net zapisej za mesac mesac ne vivoditsa v arhive.

Chto skazhite, kakie budut idei?
Zaranee blagodaren.

[skiperski]

Код: Выделить всё

Dim m, y
m = Month(Date)
y = Year(Date)

Новости за текущий месяц

Код: Выделить всё

sql = "SELECT * FROM [time_table]
sql = sql & " WHERE [time_] >= #" & y & "-" & m & "-01#"

За предыдущие месяцы текущего года

Код: Выделить всё

sql = "SELECT Month([time_]) AS [Month], COUNT(*) AS recCount"
sql = sql & " FROM [time_table]"
sql = sql & " WHERE [time_] BETWEEN #" & y & "-" & m & "-01# AND #" & y & "-01-01#"
sql = sql & " GROUP BY Month([time_])"
sql = sql & " ORDER BY Month([time_]) DESC"

За предыдущие годы

Код: Выделить всё

sql = "SELECT Year([time_]) AS [Year], COUNT(*) AS recCount"
sql = sql & " FROM [time_table]"
sql = sql & " WHERE [time_] < #" & y & "-01-01#"
sql = sql & " GROUP BY Year([time_])"
sql = sql & " ORDER BY Year([time_]) DESC"

[Vini]

Premnogo vam blagodaren! Yvazhaemij skiperski
Po kakoj-to prichine ne mog popast' na forum ran'she, pisalo host ne najden.

Eshe raz spasibo. Ochen' pomogli.