Как сделать запрос с условием Null

~~dev.Free~~ · 20.05.2014, 18:23. **Показов** 559. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Добрый день! Есть такой вот запросик:

VB.NET

daAdap = New OleDb.OleDbDataAdapter("SELECT tblBooks.ID, tblBooks.Title, tblAuthor.Author, tblPublishingHouse.PublishingHouse, tblBooks.PublishingYear, tblBooks.PagesCount, tblBooks.BooksCount FROM tblPublishingHouse INNER JOIN (tblAuthor INNER JOIN tblBooks ON tblAuthor.ID = tblBooks.Author) ON tblPublishingHouse.ID = tblBooks.PublishingHouse WHERE PublishingYear BETWEEN " & txtS.Text & " AND " & txtPo.Text & "", Conn)

SQL

"SELECT tblBooks.ID, tblBooks.Title, tblAuthor.Author, tblPublishingHouse.PublishingHouse, tblBooks.PublishingYear, tblBooks.PagesCount, tblBooks.BooksCount FROM tblPublishingHouse INNER JOIN (tblAuthor INNER JOIN tblBooks ON tblAuthor.ID = tblBooks.Author) ON tblPublishingHouse.ID = tblBooks.PublishingHouse WHERE PublishingYear BETWEEN " & txtS.Text & " AND " & txtPo.Text & ""

Тут возникает вопрос, если в поля txtS.Text и txtPo.Text не введены данные, набор записей пуст остается. Как сделать запрос с условием Null в таком варианте?

P.S. База аксик.

mobile · 20.05.2014, 18:58

Не знаю вбнетовского символа переноса строки кода, поэтому отформатированный текст запроса без него

По-видимому, поля формы txtS и txtPo задают дату? Тогда идея в том, чтобы проверять на "пустоту" поле формы и, если оно пустое - Len(txtS.Text)=0, то выдавать все все. Как будто этого фильтра нет. У поля txtS минимальным значение задаем 0 (31 января 1899), а для поля txtPo задаем 100000. Это день в очень далеком будущем
Также не знаю нетовского аналога функции Len, поэтому пишу ВБшный

Visual Basic

"SELECT tblBooks.ID, tblBooks.Title, tblAuthor.Author, tblPublishingHouse.PublishingHouse,
     tblBooks.PublishingYear,tblBooks.PagesCount, tblBooks.BooksCount 
 FROM tblPublishingHouse 
     INNER JOIN (tblAuthor 
     INNER JOIN tblBooks 
     ON tblAuthor.ID = tblBooks.Author) 
     ON tblPublishingHouse.ID = tblBooks.PublishingHouse 
 WHERE PublishingYear BETWEEN iif(' & Len(txtS.Text)=0 & ', 0, ' & txtS.Text 
      & ')  AND iif(' & Len(txtPo.Text)=0 & ', 1000000, ' & txtPo.Text)"

Внутри запроса заменил символы кавычек на апострофы

И еще. Jet SQL правильно принимает даты в американском формате - mm/dd/yyyy. Если дата построена иначе, могут быть ошибки

~~dev.Free~~ · 20.05.2014, 19:49 **[ТС]**

mobile, Все супер, спасибо! Однако, в полях прости я не сразу написал, там просто годы, то есть 1999 и так далее.

Добавлено через 2 минуты

Visual Basic

1
2

    Me.[sql_GrafRabot_].Form.RecordSource = "SELECT Ìàãàçèí.[Íàçâàíèå ìàãàçèíà], Ñîòðóäíèê.Äîëæíîñòü, Ñîòðóäíèê.ÔÈÎ, [Ãðàôèê ðàáîòû].Äåíü, [Ãðàôèê ðàáîòû].Âðåìÿ FROM (Ìàãàçèí INNER JOIN Ñîòðóäíèê ON Ìàãàçèí.[Êîä ìàãàçèíà]=Ñîòðóäíèê.[Êîä ìàãàçèíà]) INNER JOIN [Ãðàôèê ðàáîòû] ON Ñîòðóäíèê.[Êîä ñîòðóäíèêà]=[Ãðàôèê ðàáîòû].[Êîä ñîòðóäíèêà] WHERE Äåíü = #" & chT(Ïîëå3.Value) & "#"
    Me.[sql_GrafRabot_].Requery

До кучи вопрос, как поступить тут!? Не ищет если писать .Value и если писать .Text пишет не установлен фокус!

	20.05.2014, 19:49