powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Formi i Saprosi
4 сообщений из 4, страница 1 из 1
Formi i Saprosi
    #32705294
dj74
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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
Formi i Saprosi
    #32705630
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
для 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
Formi i Saprosi
    #32705653
Фотография Deminik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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
Formi i Saprosi
    #32705884
dj74
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Bol'schoe spasibo. Budu probivat'.
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Formi i Saprosi
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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