DataReport (вывод отчёта по критерию...)

[Андрей260276]

Как правильно написать выражение,что бы содержимое отчёта соответствовало задаваемому критерию из формы?

SELECT число,продавец,резерв,зарплата,(резерв-зарплата)as aaasum FROM финансы WHERE финансы.продавец='Зубова Г.А.'

Такой запрос отлично работает,а как подставить объект DataCombo1 , что бы подставлять фамилии продавцов?
Что то у меня не выходит. Помогите кто знает! Заранее спасибо !

[Konst_One]

Код: Выделить всё

select [продавец] FROM [финансы] GROUP BY [продавец]

это в комбик твой

[HandKot]

это?

Код: Выделить всё

SELECT число,продавец,резерв,зарплата,(резерв-зарплата)as aaasum FROM финансы WHERE финансы.продавец = '" & cmbox.Column(NumRow, cmbox.ListIndex) & "'"

[Андрей260276]

Ничего не понял.Куда я должен прописать DataCombo1 ? Я попробывал вместо cmbox, ничего не работает... В чём моя ошибка ?

[HandKot]

прошу прощения, писал для КомбоБокса
для ДатаКомбо используется св-во SelectedItem

SELECT число,продавец,резерв,зарплата,(резерв-зарплата)as aaasum FROM финансы WHERE финансы.продавец = '" & DataCombo1.SelectedItem & "'"

[Андрей260276]

Выдаёт ошибку...Может эту команду на кнопку посадить? Тогда вопрос ,а для какого свойства её прописать? Простите за банальные вопросы, но мне действительно пока не понятно. Заранее спасибо!!!

[Konst_One]

выкладывай сюда свой исходник - подправим

[Андрей260276]

"SELECT число,продавец,резерв,зарплата,(резерв-зарплата)as aaasum FROM финансы WHERE финансы.продавец Like " + Chr(39) + "%" + DataCombo1.Text + "%" + Chr(39) + ")And финансы.число BETWEEN #" & Format(CDate(DTPicker1.Value), "mm\/dd\/yyyy") & "# AND #" & Format(CDate(DTPicker2.Value), "mm\/dd\/yyyy") & "#"

Просто на форму выводит результат,а в запрос незнаю как это всё взграмоздить... подскажите , куда и что надо прописать,чтобы отчёт формировался по критерию из формы...

[Konst_One]

это не проект - это просто попытка написать неправильный запрос

что конкретно у тебя не получается, в каком месте, в какой процедуре твоей программы, и кстати, где сам код

[HandKot]

WHERE финансы.продавец Like " + Chr(39) + "%" + DataCombo1.Text + "%" + Chr(39) + ")And

")And
1) нет открывающей скобки
2) нет пробела

надо поставить брекпоинт после формирования сторки запроса
и попробовать данный запрос выполнить в среде БД и все станет ясно

[Андрей260276]

Ребят,мы сильно отклонились от сути.Начну сначала... У меня есть база,называется финансы.Есть форма с обьектом DataGrid в которой выводятся данные по моему запросу:
frmОтчёт.Adodc1.RecordSource = "SELECT * FROM финансы WHERE (финансы.продавец Like " + Chr(39) + "%" + DataCombo1.Text + "%" + Chr(39) + ")And финансы.число BETWEEN #" & Format(CDate(DTPicker1.Value), "mm\/dd\/yyyy") & "# AND #" & Format(CDate(DTPicker2.Value), "mm\/dd\/yyyy") & "#"

Всё отлично работает.Теперь я хочу,чтобы при нажатии кнопки в DataReport формировался отчёт точно по такому же критерию как и в форме.Теперь вопрос: Как правильно написать выражение для объекта Command? которое я использую для окружения данных.Я копирую этот запрос в окно SQL Statement и ничего не выходит.

SELECT число,продавец,резерв,зарплата,(резерв-зарплата)as aaasum FROM финансы WHERE финансы.продавец='Зубова Г.А.'

Такой запрос работает,но мне надо, что бы я мог при работе любого продавца подставить и получить отчёт именно по этому продавцу. Вот ! Помогите ,подскажите ! Только не надо умничать и давить терминами.Я новичёк,самоучка.Учу язык только из книжек.Так что отнеситесь с пониманием и помогите с проблемой!!! Заранее спасибо !

[Андрей260276]

Неужели никто не знает как решить эту проблему???

[Matew]

Андрей260276, я так понял тебе надо подставить любую фамилию?Положи н форму текстбокс или листбокс... Примерно синтаксис такой:

Запрос = "SELECT число,продавец,резерв,зарплата,(резерв-зарплата)as aaasum FROM финансы WHERE финансы.продавец='" & ТвойКонтрол.Text & "'"
Должно работать

[Андрей260276]

Видитили ,если для подключения использовать DataEnvironment, то в таком виде почемуто не работает запрос, а если конкретно подставлять продавец='Зубова' всё отлично работает.Но я хочу сделать запрос универсальным.Люди,кто нибудь работал с DataReportom? Помогите ,подскажите,ведь есть же решение.

[Matew]

Андрей260276, покажи код или выложи кусочек проекта.

[Андрей260276]

Парни,всё сделал,Хотите пример вот пользуйтесь работает 100%

Option Explicit

Private Sub cmdОтчёт_Click()

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

With cn
'указываем путь к нашей базе(Это моя база)
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Белоснежка\Финансы.mdb"
.Open
End With
'Устанавливаем свойства рекордсета и открываем его
With rs
.ActiveConnection = cn
.LockType = adLockReadOnly
.CursorType = adOpenDynamic
.Source = "SELECT число,продавец,резерв,зарплата,(резерв-зарплата)as aaasum FROM финансы WHERE (финансы.продавец Like " + Chr(39) + "%" + DataCombo1.Text + "%" + Chr(39) + ")And финансы.число BETWEEN #" & Format(CDate(DTPicker1.Value), "mm\/dd\/yyyy") & "# AND #" & Format(CDate(DTPicker2.Value), "mm\/dd\/yyyy") & "#"
.Open
End With

'Связываем DataReport с рекордсетом
Set DataReport1.DataSource = rs

DataReport1.Show

Set rs = Nothing
Set cn = Nothing

End Sub

Вот и всё!!! Пользуйтесь!