Привет!!!
Я вам наверное уже надоел, со своими ламерскими вопросами.
Вобщем есть 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