ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / SQL-запрос в коде VB
16 сообщений из 16, страница 1 из 1
SQL-запрос в коде VB
    #36204432
Inkeria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inkeria
Гость
Здравствуйте! Помогите, пожалуйста разобраться с кодом. Выдается ошибка 3061 "Слишком мало параметров. Требуется 1". В чем может быть проблема?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Form_Open(Cancel As Integer)
Dim rst1 As Object
Dim strokpro As String
strokpro = "SELECT COUNT(*)FROM Client_all INNER JOIN (Отчет2 INNER JOIN Звонки ON Отчет2.IDZV=Звонки.IDZV) ON Client_all.OKPO=Звонки.OKPO WHERE (((Звонки.User=CurrentUser()) AND ((Звонки.datak=Date()) AND ((Звонки.REZ)=перезв))));"
Set rst1 = CurrentDb.OpenRecordset(strokpro)
Do While Not rst1.EOF
If rst1![RecCount] >  0  Then
MyForm.RecordSource = "SELECT Звонки.OKPO, Звонки.User, Звонки.datak, Client_all.NAME1, Client_all.NAME FROM Client_all INNER JOIN (Отчет2 INNER JOIN Звонки ON Отчет2.IDZV=Звонки.IDZV) ON Client_all.OKPO=Звонки.OKPO WHERE (((Звонки.User)=CurrentUser()) AND ((Звонки.datak)=Date()) AND ((Звонки.REZ)=перезв));"
End If
rst1.MoveNext
Loop
End Sub
...
Рейтинг: 0 / 0
18.09.2009, 15:22
| Ответить | Цитировать | Написать  
SQL-запрос в коде VB
    #36204490
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
...((Звонки.REZ)='перезв'));"
...
Рейтинг: 0 / 0
18.09.2009, 15:37
| Ответить | Цитировать | Написать  
SQL-запрос в коде VB
    #36204548
Inkeria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inkeria
Гость
А тепер ругается ошибкой 424 "Object required" на
Код: plaintext
MyForm.RecordSource = "SELECT Звонки.OKPO, Звонки.User, Звонки.datak, Client_all.NAME1, Client_all.NAME FROM Client_all INNER JOIN (Отчет2 INNER JOIN Звонки ON Отчет2.IDZV=Звонки.IDZV) ON Client_all.OKPO=Звонки.OKPO WHERE (((Звонки.User)=CurrentUser()) AND ((Звонки.datak)=Date()) AND ((Звонки.REZ)='перезв'));"
...
Рейтинг: 0 / 0
18.09.2009, 15:51
| Ответить | Цитировать | Написать  
SQL-запрос в коде VB
    #36204556
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
MyForm - это какая-то другая форма? где вы её открываете?
...
Рейтинг: 0 / 0
18.09.2009, 15:54
| Ответить | Цитировать | Написать  
SQL-запрос в коде VB
    #36204604
Inkeria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inkeria
Гость
Konst_One, это форма, которая должна открыватся с результатами этого запроса. Я хочу, чтобы она открывалась при открытии формы, если в результате запроса есть какие-то значения.
...
Рейтинг: 0 / 0
18.09.2009, 16:04
| Ответить | Цитировать | Написать  
SQL-запрос в коде VB
    #36204642
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
так вы её сначала откройте, а уже потом присваивайте рекордсорс
...
Рейтинг: 0 / 0
18.09.2009, 16:11
| Ответить | Цитировать | Написать  
SQL-запрос в коде VB
    #36204715
Inkeria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inkeria
Гость
Konst_One, Вас не затруднит подсказть как ее открыть в коде? :)
...
Рейтинг: 0 / 0
18.09.2009, 16:29
| Ответить | Цитировать | Написать  
SQL-запрос в коде VB
    #36204722
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
я так понимаю у вас access?

там есть процедура DoCmd.Open
...
Рейтинг: 0 / 0
18.09.2009, 16:31
| Ответить | Цитировать | Написать  
SQL-запрос в коде VB
    #36204759
Inkeria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inkeria
Гость
Да, акс. Добавила, но ошибка та же.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Form_Open(Cancel As Integer)
Dim rst1 As Object
Dim strokpro As String
strokpro = "SELECT COUNT(*) as [RecCount] FROM Client_all INNER JOIN (Отчет2 INNER JOIN Звонки ON Отчет2.IDZV=Звонки.IDZV) ON Client_all.OKPO=Звонки.OKPO WHERE (((Звонки.User=CurrentUser()) AND ((Звонки.datak=Date()) AND ((Звонки.REZ)='перезв'))));"
Set rst1 = CurrentDb.OpenRecordset(strokpro)
Do While Not rst1.EOF
If rst1![RecCount] >  0  Then
DoCmd.OpenForm "MyForm"
MyForm.RecordSource = "SELECT Звонки.OKPO, Звонки.User, Звонки.datak, Client_all.NAME1, Client_all.NAME FROM Client_all INNER JOIN (Отчет2 INNER JOIN Звонки ON Отчет2.IDZV=Звонки.IDZV) ON Client_all.OKPO=Звонки.OKPO WHERE (((Звонки.User)=CurrentUser()) AND ((Звонки.datak)=Date()) AND ((Звонки.REZ)='перезв'));"
End If
rst1.MoveNext
Loop
End Sub
...
Рейтинг: 0 / 0
18.09.2009, 16:37
| Ответить | Цитировать | Написать  
SQL-запрос в коде VB
    #36204784
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
тогда вам в форум по акцесу
...
Рейтинг: 0 / 0
18.09.2009, 16:40
| Ответить | Цитировать | Написать  
SQL-запрос в коде VB
    #36204795
Inkeria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inkeria
Гость
Спасибо Вам! Буду терроризировать там)))
...
Рейтинг: 0 / 0
18.09.2009, 16:42
| Ответить | Цитировать | Написать  
SQL-запрос в коде VB
    #36208214
я
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
я
Гость
вместо MyForm.RecordSource напишите me.RecordSource
...
Рейтинг: 0 / 0
21.09.2009, 16:38
| Ответить | Цитировать | Написать  
SQL-запрос в коде VB
    #36208219
я
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
я
Гость
и, кстати, уберите DoCmd.OpenForm "MyForm"
...
Рейтинг: 0 / 0
21.09.2009, 16:39
| Ответить | Цитировать | Написать  
SQL-запрос в коде VB
    #36208246
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
яи, кстати, уберите DoCmd.OpenForm "MyForm"

вы не в теме. автор уже решил свою проблему

Forms!MyForm...
...
Рейтинг: 0 / 0
21.09.2009, 16:48
| Ответить | Цитировать | Написать  
SQL-запрос в коде VB
    #36208924
Joni_5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joni_5
Участник
Код: plaintext
"SELECT Звонки.OKPO, Звонки.User, Звонки.datak, Client_all.NAME1, Client_all.NAME FROM Client_all INNER JOIN (Отчет2 INNER JOIN Звонки ON Отчет2.IDZV=Звонки.IDZV) ON Client_all.OKPO=Звонки.OKPO WHERE (((Звонки.User)='" & CurrentUser() & "') AND ((Звонки.datak)=Date()) AND ((Звонки.REZ)='перезв'));"
...
Рейтинг: 0 / 0
22.09.2009, 06:54
| Ответить | Цитировать | Написать  
SQL-запрос в коде VB
    #36208925
Joni_5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joni_5
Участник
Joni_5
Код: plaintext
"SELECT Звонки.OKPO, Звонки.User, Звонки.datak, Client_all.NAME1, Client_all.NAME FROM Client_all INNER JOIN (Отчет2 INNER JOIN Звонки ON Отчет2.IDZV=Звонки.IDZV) ON Client_all.OKPO=Звонки.OKPO WHERE (((Звонки.User)='" & CurrentUser() & "') AND ((Звонки.datak)=Date()) AND ((Звонки.REZ)='перезв'));"


Даже вот так:
Код: plaintext
"SELECT Звонки.OKPO, Звонки.User, Звонки.datak, Client_all.NAME1, Client_all.NAME FROM Client_all INNER JOIN (Отчет2 INNER JOIN Звонки ON Отчет2.IDZV=Звонки.IDZV) ON Client_all.OKPO=Звонки.OKPO WHERE (((Звонки.User)='" & CurrentUser() & "') AND ((Звонки.datak)=" & Date() & "') AND ((Звонки.REZ)='перезв'));"
...
Рейтинг: 0 / 0
22.09.2009, 06:55
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / SQL-запрос в коде VB
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]