Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Formi i Saprosi / 4 сообщений из 4, страница 1 из 1
21.09.2004, 22:30:29
    #32705294
dj74
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Formi i Saprosi
Vsem privet!.
Kak mozno v sapros vstavit' datu s formi (textovoe pole)?.
prilagaju moj sapros.

strSQL = ("SELECT tAufträge.AuftragsNr, tAufträge.Kostenstelle, tKostenstelle.Anrede," & _
"tKostenstelle.Name, tKostenstelle.Abteilung, tAufträge.Buchungskreis," & _
"tAufträge.Datum, Sum(tAufträge.Gesamtzeit) AS [Summe von Gesamtzeit]," & _
"tAufträge.Bemerkungen, Sum([Gesamtzeit]*[Stundensatz]) AS Gesamtsumme," & _
"tAufträge.Stundensatz FROM tAufträge INNER JOIN tKostenstelle ON " & _
"tAufträge.Kostenstelle = tKostenstelle.Kostenstelle GROUP BY tAufträge.AuftragsNr," & _
"tAufträge.Kostenstelle, tKostenstelle.Anrede, tKostenstelle.Name," & _
"tKostenstelle.Abteilung, tAufträge.Buchungskreis, tAufträge.Datum," & _
"tAufträge.Bemerkungen, tAufträge.Stundensatz HAVING " & _
" ((tAufträge.Datum) Between frmAuftrag!txtDat1 And frmAuftrag!txtDat2 ) AND " & _
"(((tKostenstelle.Name) Is Not Null));")

Spasibo!.
...
Рейтинг: 0 / 0
22.09.2004, 10:06:52
    #32705630
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Formi i Saprosi
для sql дата заключается в апостроф '
еще бывает такая гадость что дата нужна в формате YYYYMMDD тогда необходимо отформатировать типа format(txt...,"YYYYMMDD")

strSQL = ("SELECT tAufträge.AuftragsNr, tAufträge.Kostenstelle, tKostenstelle.Anrede," & _
"tKostenstelle.Name, tKostenstelle.Abteilung, tAufträge.Buchungskreis," & _
"tAufträge.Datum, Sum(tAufträge.Gesamtzeit) AS [Summe von Gesamtzeit]," & _
"tAufträge.Bemerkungen, Sum([Gesamtzeit]*[Stundensatz]) AS Gesamtsumme," & _
"tAufträge.Stundensatz FROM tAufträge INNER JOIN tKostenstelle ON " & _
"tAufträge.Kostenstelle = tKostenstelle.Kostenstelle GROUP BY tAufträge.AuftragsNr," & _
"tAufträge.Kostenstelle, tKostenstelle.Anrede, tKostenstelle.Name," & _
"tKostenstelle.Abteilung, tAufträge.Buchungskreis, tAufträge.Datum," & _
"tAufträge.Bemerkungen, tAufträge.Stundensatz HAVING " & _
" ((tAufträge.Datum) Between '" & frmAuftrag.txtDat1 & "' And '" & frmAuftrag.txtDat2) & "' AND " & _
"(((tKostenstelle.Name) Is Not Null));")

для jet надо заключить в кавычки "" chr(34).
...
Рейтинг: 0 / 0
22.09.2004, 10:11:59
    #32705653
Deminik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Formi i Saprosi
Format(q, "mm/dd/yy hh:mm:ss")

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
strSQL = "SELECT tAufträge.AuftragsNr, tAufträge.Kostenstelle, tKostenstelle.Anrede," & _
"tKostenstelle.Name, tKostenstelle.Abteilung, tAufträge.Buchungskreis," & _
"tAufträge.Datum, Sum(tAufträge.Gesamtzeit) AS [Summe von Gesamtzeit]," & _
"tAufträge.Bemerkungen, Sum([Gesamtzeit]*[Stundensatz]) AS Gesamtsumme," & _
"tAufträge.Stundensatz FROM tAufträge INNER JOIN tKostenstelle ON " & _
"tAufträge.Kostenstelle = tKostenstelle.Kostenstelle GROUP BY tAufträge.AuftragsNr," & _
"tAufträge.Kostenstelle, tKostenstelle.Anrede, tKostenstelle.Name," & _
"tKostenstelle.Abteilung, tAufträge.Buchungskreis, tAufträge.Datum," & _
"tAufträge.Bemerkungen, tAufträge.Stundensatz HAVING " & _
" ((tAufträge.Datum) Between #" & Format(frmAuftrag!txtDat1, "mm/dd/yy hh:mm:ss") & "# And #" & Format(frmAuftrag!txtDat2, "mm/dd/yy hh:mm:ss") & "#  AND " & _
"(((tKostenstelle.Name) Is Not Null));"

...как минимум...
...
Рейтинг: 0 / 0
22.09.2004, 11:19:28
    #32705884
dj74
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Formi i Saprosi
Bol'schoe spasibo. Budu probivat'.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Formi i Saprosi / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]