VPF::Продолжение топика "SQL-запрос" - Форум программистов

Flotskiy

Дата 17.7.2006, 12:58 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 223
Регистрация: 15.11.2004
Где: г. Омск

Репутация: 1
Всего: 2

Добрый день всем! Akinaв предыдущем топике помог очень хорошим примером.
Опять я обращаюсь к нему. Суть такова: На форме есть два массива- Label7() и Label8()
в Label7() копируются названия Count_GlavID. Далее в SQL-запрос поочереди вставляются ForFak(k) названия в виде условия на выборку и результаты вставляются в массив Label8().

Код


Option Explicit
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Dim ForFak(11) As String

Private Sub Command1_Click()
Dim k As Integer
ForFak(0) = "ГТЗаоч"
ForFak(1) = "ОПЗаоч"
ForFak(2) = "СМЗаоч"
ForFak(3) = "СМОС"
ForFak(4) = "СМОч"
ForFak(5) = "ЭКЗаоч"
ForFak(6) = "ЭКЗС"
ForFak(7) = "ЭКОч"
ForFak(8) = "ЭМОч"
ForFak(9) = "ЭПЗаоч"
ForFak(10) = "ЭПОч"

    For k = 0 To 10
Label7(k).Caption = ForFak(k)
    Next k
Dim Temp As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

With cn
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
    "Data Source=" & gDataBaseName
    .Open
End With
'  Вот отсюда нужно откорректировать
With rs

'    .Open cn ', adOpenStatic, adLockReadOnly, adCmdText
'    If .RecordCount > 0 Then
'        .MoveFirst
Dim y
        For y = 0 To 11 '.RecordCount - 1
       Temp = "SELECT count(GlavID) as Count_GlavID FROM Glavnaja  WHERE ForFak='" & ForFak(k) & "' AND  Priem='Лето, 2006' GROUP BY ForFak"
       Label8(y).Caption = !Count_GlavID
'    .Open Temp, cn, adOpenStatic, adLockReadOnly, adCmdText

Next y

 '              .MoveNext
 '            End If
             .Close
End With
End Sub

Это для того, чтобы при отсутствии Count_GlavID, например, ForFak(2), в Label8(2) ставился=ноль. После уже по данным формируется статистика:
" На данный день принято на специальность:
Label7()        |         Label8()
__________ |______________
ГТЗаоч         |             3
ОПЗаоч        |             0
... и тд"
Akina, помоги, pse, доработать, буду очень признателен.
Всего доброго всем!



Это сообщение отредактировал(а) Flotskiy - 17.7.2006, 13:38

--------------------

FlotskiySk k

boevik

Дата 18.7.2006, 14:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35

Я думаю, что так заработает.

Код


Dim y
    For y = 0 To 10 
        Temp = "SELECT count(GlavID) as Count_GlavID FROM Glavnaja  WHERE ForFak='" & ForFak(k) & "' AND  Priem='????, 2006' GROUP BY ForFak"
        rs.Open Temp, cn, adOpenStatic, adLockReadOnly, adCmdText
        Label8(y).Caption = rs!Count_GlavID
        rs.close
    Next y

--------------------

Никогда не говори никогда

Flotskiy

Дата 21.7.2006, 05:23 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 223
Регистрация: 15.11.2004
Где: г. Омск

Репутация: 1
Всего: 2

Добрый день всем! boevik, благодарю, все отлично работает.
Всего доброго всем.

--------------------

FlotskiySk k

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »