Привет!!!
Я вам наверное уже надоел, со своими ламерскими вопросами.
Вобщем есть 3 связанных таблицы:

Таблица: Besteling


Таблица: Menu


Таблица: MenuGroups


Мне необходимо создать отчёт с помощью DataReport и всё вроде ничего, но этот отчёт должен состоять не со всех полей приведённых выше таблиц, а из следующих:

Код

MenuId      MenuGroup     MenuTitle     JoinTime     Prijs

Отсюда видно, что отчёт долже быть сгенерирован из полей нескольких таблиц, причём не всех подряд.

Пишу такую процедуру:

Код

Private Sub cmdGetReport_Click()     ' Создаём переменную для генерации SQL запросов     Dim sSQL1 As String     Dim sSQL2 As String     Dim sSQL3 As String          ' Строим запрос на выборку из таблицы Besteling     sSQL1 = "SELECT MenuId, JoinTime, ColThis FROM Besteling"          ' Выполняем запрос     Set rs1 = modVar.cn.Execute(sSQL1)          Set dtrReport.DataSource = rs1     ' Циклически проходим по всем записям таблицы Besteling соответствующих SQL запросу rs1     While Not rs1.EOF         ' Строим запрос к талице Menu, на основе запроса к таблице Besteling         sSQL2 = "SELECT MenuTitle, Prijs, GroupId FROM Menu WHERE MenuId=" & rs1.Fields("MenuId")                  ' Выполняем второй SQL запрос на выборку данных по меню         Set rs2 = modVar.cn.Execute(sSQL2)                  sSQL3 = "SELECT MenuGroup FROM MenuGroups WHERE GroupId=" & rs2.Fields("GroupId")                  Set rs3 = modVar.cn.Execute(sSQL3)                           dtrReport.Sections("rptBody").Controls("labId").Caption = rs1.Fields("MenuId")         dtrReport.Sections("rptBody").Controls("labDate").Caption = rs1.Fields("JoinTime")                  dtrReport.Sections("rptBody").Controls("labMenu").Caption = rs2.Fields("MenuTitle")         dtrReport.Sections("rptBody").Controls("labPrice").Caption = rs2.Fields("Prijs")                  dtrReport.Sections("rptBody").Controls("labGroup").Caption = rs3.Fields("MenuGroup")                             rs1.MoveNext     Wend     dtrReport.Show End Sub

Но все строки в отчёте одинаковые. ((

Подскажите как создать отчёт при помощи DataReport из нескольких таблиц???

Спасибо.

Это сообщение отредактировал(а) korob2001 - 29.5.2005, 11:56

Надо связать все три таблицы при помощи JOIN, к примеру так.

Код

SELECT MenuId,      MenuGroup,     MenuTitle,     JoinTime,     Prijs FROM  Besteling INNER JOIN Menu          ON Besteling.MenuID = Menu.MenuID    INNER JOIN MenuGroups         ON Menu.GroupID = MenuGroups.GroupID

Этот запрос вернет тебе все результат уже трех связаных таблиц по указаным полям.

А дальше уже подцепляй RecordSet к DataReport.

Это сообщение отредактировал(а) boevik - 29.5.2005, 12:15

Получил такую ошибку:

Может я что-то не так написал???

Код

sSQL1 = "SELECT MenuId, MenuGroup, MenuTitle, JoinTime, Prijs" sSQL1 = sSQL1 & " FROM  Besteling INNER JOIN Menu" sSQL1 = sSQL1 & " ON Besteling.MenuID = Menu.MenuID" sSQL1 = sSQL1 & " INNER JOIN MenuGroups ON Menu.GroupID = MenuGroups.GroupID"

Создай запрос в Access, он же построит и требуемый правильный SQL.

если поможет ссылочка почитай может интерестно будет http://forum.vingrad.ru/index.php?showtopic=48417

Запрос построил, вот так работает:

Код

SELECT Besteling.MenuId, Besteling.JoinTime, Menu.MenuTitle, Menu.Prijs, MenuGroups.MenuGroup FROM (MenuGroups INNER JOIN Menu ON MenuGroups.GroupId = Menu.GroupId) INNER JOIN Besteling ON Menu.MenuId = Besteling.MenuId;

Мне нужно ещё отобрать те записи, у которых поле
JoinTime >= var1 AND JoinTime <= var2 AND Pyid=1 AND TranssControl=1
где:

Код

var1 = #29.05.2005 0:05:15# var2 = #29.05.2005 16:05:15#

Т.е. я должен получить только одну запись, самую последнюю в таблице Besteling и всё её связи с другими таблицами, перая же запись за 29 число не должна пройти из-за того, что у неё не установлен флажок в поле TranssControl, хотя по дате и времени она проходит.

Как я понимаю, то нужно в конец добавить это условие, добавляю и получаю опять ошибку в SQL запросе. С чего начали, к тому и пришли.

M.E.G.U.S - да топик действительно по этой теме, но у меня не одна таблица а три и что самое плохое, это то, что нужно выдёргивать по нескольку полей из каждой, да ещё при этом сравнивать с датами и Boolean. С одной таблицей я разобрался сразу, по учебнику, а вот про несколько таблиц в нём ничего не нашёл.

Это сообщение отредактировал(а) korob2001 - 29.5.2005, 17:21

korob2001, так в чем проблема?

Код

SELECT Besteling.MenuId, Besteling.JoinTime, Menu.MenuTitle, Menu.Prijs, MenuGroups.MenuGroup FROM (MenuGroups INNER JOIN Menu ON MenuGroups.GroupId = Menu.GroupId) INNER JOIN Besteling ON Menu.MenuId = Besteling.MenuId WHERE JoinTime  between #05/29/2005 0:05:15# and #05/29/2005 16:05:15#  AND TranssControl=1

Обрати внимание на формат даты.

Цитата

Обрати внимание на формат даты.

Я вот именно на неё и обращаю внимание.
У меня дата в базе и в переменной в таком формате:
БД: 22.05.2005 15:41:17
Переменная: Format( CDate( txtDate.text ), "ddddd ttttt")

Т.е. в переменной получается аналогичный формат, как и в БД. Но у тебя вместо разделителя точка, стоят слэши. Это играет какую-то роль или это зависит от региональных настроек??

в запросе со слешами .. а в таблице без с точкой тй.. должно нормально работать одно второму немешает у тебя всёравно должен формат переводиться в нормальный с точками как у тебя стоит..

Да играет, уже проверил, такой формат не катит. Но дело в том, что я получаю дату из DTPicker, затем сохраняю её в переменную типа as Date.

Это сообщение отредактировал(а) korob2001 - 29.5.2005, 18:27

а как катит? или вообще никак ещё?

Вот если я использую такой запрос:

Код

SELECT Besteling.MenuId, Besteling.JoinTime, Menu.MenuTitle, Menu.Prijs, MenuGroups.MenuGroup FROM (MenuGroups INNER JOIN Menu ON MenuGroups.GroupId = Menu.GroupId) INNER JOIN Besteling ON Menu.MenuId = Besteling.MenuId WHERE JoinTime  between #05/29/2005 0:05:15# and #05/29/2005 16:05:15#  AND TranssControl=1

т.е. вставляю дату в ручную, то всё работает так как надо, но если только подставляю вместо дат переменные, то сразуже получаю ошибку в SQL запросе. Даты в переменные я получаю так:

Код

' Объявляем локальные переменные, для получения ввыбранных пользователем дат     Dim datFrom As Date     Dim datTo As Date          ' Создаём переменную для генерации SQL запросов     Dim sSQL1 As String          ' Получаем выбранные пользователем даты и сохраняем в переменных     datFrom = Format(dtpVan.Value, "ddddd ttttt")     datTo = Format(dtpTot.Value, "ddddd ttttt")          ' MsgBox datFrom          ' Если пользователь указал начальную дату, польше конечной,     ' то выводим ему сообщение об ошибке и завершаем выполнение программы     If datFrom > datTo Then         MsgBox "Initial date more final. Correct a mistake and repeat again", vbOKOnly + vbCritical, "Error"         Exit Sub     End If          ' Выгружаем форму и выводи отчёт     Unload Me          ' Строим запрос на выборку из таблицы Besteling     sSQL1 = "SELECT Besteling.MenuId, Besteling.JoinTime, Menu.MenuTitle, Menu.Prijs, MenuGroups.MenuGroup"     sSQL1 = sSQL1 & " FROM (MenuGroups INNER JOIN Menu ON MenuGroups.GroupId = Menu.GroupId) INNER JOIN Besteling ON Menu.MenuId = Besteling.MenuId"     sSQL1 = sSQL1 & " WHERE JoinTime  BETWEEN #" & datFrom & "# AND #" & datTo & "# AND TranssControl=1"

Вот тут и получаю ошибку.

Цитата(korob2001)

Код    ' Получаем выбранные пользователем даты и сохраняем в переменных     datFrom = Format(dtpVan.Value, "ddddd ttttt")     datTo = Format(dtpTot.Value, "ddddd ttttt")

Замени на

Код

Dim datFrom As String     Dim datTo As String ' Получаем выбранные пользователем даты и сохраняем в переменных     datFrom = Format(dtpVan.Value, "mm/dd/yyyy ttttt")     datTo = Format(dtpTot.Value, "mm/dd/yyyy ttttt")

и для сравнения дат лучше использовать DateDiff

Код

if datediff("s", datFrom , datTo ) > 0 then  ...

Это сообщение отредактировал(а) boevik - 29.5.2005, 18:48

Исправил, но всё равно получаю сообщение:

Он всё равно расставляет точки. Мляяя, у меня уже нервы на пределе, сейчас буду лупить по клаве.

Это сообщение отредактировал(а) korob2001 - 29.5.2005, 18:56

korob2001 обрати внимание, что datFrom и datTo типа String

Код

Dim datFrom As String     Dim datTo As String          Dim sSQL1 As String          datFrom = Format(dtpVan.Value, "mm/dd/yyyy ttttt")     datTo = Format(dtpTot.Value, "mm/dd/yyyy ttttt")

Результат тот же.

Показывай код и распечатай SQL который запускается.
Добавлено @ 19:18
Так как у тебя точка разделитель, то надо использовать:

Код

Format(dtpVan.Value, "mm\/dd\/yyyy ttttt")

Цитата

Format(dtpVan.Value, "mm\/dd\/yyyy ttttt")

То, что нужно. Всё заработало.
Мне этот отчёт уже все нервы вытрепал.

Спасибо ОГРОМНОЕ.

ЗЫ: полесдний вопрос по данной теме, для чего в запросе ты использовал between???

Это сообщение отредактировал(а) korob2001 - 29.5.2005, 19:29

between используется для выбора между двумя значениями, т.е. X between Y and Z эквевалентен записи Х>Y and X<Z

Ещё раз спасибо. Всё понял.

Вот ещё на какие грабли наступил.
Если чел задал диапазон даты, а в таблице нет записи с такой датой, то выводится сообщение об ошибке:

Invalig DataSource

Не гуд. Мне бы заменить его на сообщение типа "Не найдено ниодной записи с заданным диапазоном", в том же MsgBox.
Пытаюсь перехватить ошибку так:

Код

' Начало процедуры On Error GoTo ErrCheck ' Тело процедуры, генерирующей отчёт ' Конец процедуры     Exit Sub      ErrCheck: MsgBox "Не найдено ниодной записи с заданным диапазоном."

Вроде всё правильно, но сообщение я так и получаю: Invalig DataSource
Что не так???

Проверяй полученный recordset на наличие данных

Код

Set rst = cn.Execute(....) if rst.bof and rst.eof then     MsgBox "No data"    Exit sub end if

Если не поможет, то показывай код.

boevik - Спасибо, всё работает так, как нужно.

Зы: код я уже показывал в начале этой темы.

Это сообщение отредактировал(а) korob2001 - 30.5.2005, 08:35

Цитата(korob2001 @ 30.5.2005, 08:34)

Зы: код я уже показывал в начале этой темы

С той поры много воды утекло .
Твой код должен был претерпеть много изменений.

ОК. Может кому и пригодится. Теперь он выглядит так:

Код

Private Sub cmdGetReport_Click()     ' Объявляем локальные переменные, для получения ввыбранных пользователем дат     Dim datFrom As String     Dim datTo As String          ' Создаём переменную для генерации SQL запросов     Dim sSQL1 As String          ' Получаем выбранные пользователем даты и сохраняем в переменных     If DateDiff("d", dtpTot.Value, dtpVan.Value) > 0 Then         datFrom = Format(dtpVan.Value, "mm\/dd\/yyyy ttttt")         datTo = Format(dtpTot.Value, "mm\/dd\/yyyy ttttt")     Else         datFrom = Format(dtpVan.Value, "mm\/dd\/yyyy 0:00:00")         datTo = Format(dtpTot.Value, "mm\/dd\/yyyy 23:59:59")     End If          ' MsgBox datFrom          ' Если пользователь указал начальную дату, больше конечной,     ' то выводим ему сообщение об ошибке и завершаем выполнение программы     If DateDiff("s", datTo, datFrom) > 0 Then         MsgBox "Initial date more final. Correct a mistake and repeat again", vbOKOnly + vbCritical, "Error"         Exit Sub     End If          ' Выгружаем форму и выводи отчёт     Unload Me              ' Строим запрос на выборку из таблицы Besteling     sSQL1 = "SELECT Besteling.MenuId, Besteling.JoinTime, Menu.MenuTitle, Menu.Prijs, MenuGroups.MenuGroup"     sSQL1 = sSQL1 & " FROM (MenuGroups INNER JOIN Menu ON MenuGroups.GroupId = Menu.GroupId) INNER JOIN Besteling ON Menu.MenuId = Besteling.MenuId"     sSQL1 = sSQL1 & " WHERE JoinTime BETWEEN #" & datFrom & "# AND #" & datTo & "# AND TranssControl=1"     Unload Me          ' Выполняем запрос     Set rs = modVar.cn.Execute(sSQL1)     If rs.BOF And rs.EOF Then         MsgBox "It is not found records with the set range" & vbCrLf & _                "Try to change a range", vbOKOnly + vbCritical, "Error"         Exit Sub     End If          ' Циклически проходим по всем записям таблицы Besteling соответствующих SQL запросу rs1     While Not rs.EOF         Set dtrReport.DataSource = rs         rs.MoveNext     Wend     dtrReport.Show End Sub

Это сообщение отредактировал(а) korob2001 - 30.5.2005, 08:57

Приве всем, тема у вас очень интересная, и у меня тоже возник по ней вопрос, а как быть если таблицы лежат в разных базах, можно ли как-нибудь сделать что-либо похожее.
Я так понимаю, для 2х баз нужно сделать 2 Connection , а как быть дальше?


С уважением Graf

Это сообщение отредактировал(а) Igor Graf - 7.6.2005, 09:50

блин... у нас же отдельный форум по сиквелу есть! Туда бы и задал