Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / SQL-запрос в коде VB / 16 сообщений из 16, страница 1 из 1
18.09.2009, 15:22
    #36204432
Inkeria
Inkeria
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL-запрос в коде VB
Здравствуйте! Помогите, пожалуйста разобраться с кодом. Выдается ошибка 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:37
    #36204490
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL-запрос в коде VB
Код: plaintext
...((Звонки.REZ)='перезв'));"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.09.2009, 15:51
    #36204548
Inkeria
Inkeria
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL-запрос в коде VB
А тепер ругается ошибкой 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:54
    #36204556
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL-запрос в коде VB
MyForm - это какая-то другая форма? где вы её открываете?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.09.2009, 16:04
    #36204604
Inkeria
Inkeria
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL-запрос в коде VB
Konst_One, это форма, которая должна открыватся с результатами этого запроса. Я хочу, чтобы она открывалась при открытии формы, если в результате запроса есть какие-то значения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.09.2009, 16:11
    #36204642
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL-запрос в коде VB
так вы её сначала откройте, а уже потом присваивайте рекордсорс
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.09.2009, 16:29
    #36204715
Inkeria
Inkeria
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL-запрос в коде VB
Konst_One, Вас не затруднит подсказть как ее открыть в коде? :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.09.2009, 16:31
    #36204722
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL-запрос в коде VB
я так понимаю у вас access?

там есть процедура DoCmd.Open
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.09.2009, 16:37
    #36204759
Inkeria
Inkeria
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL-запрос в коде VB
Да, акс. Добавила, но ошибка та же.
Код: 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:40
    #36204784
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL-запрос в коде VB
тогда вам в форум по акцесу
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.09.2009, 16:42
    #36204795
Inkeria
Inkeria
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL-запрос в коде VB
Спасибо Вам! Буду терроризировать там)))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.09.2009, 16:38
    #36208214
я
я
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL-запрос в коде VB
вместо MyForm.RecordSource напишите me.RecordSource
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.09.2009, 16:39
    #36208219
я
я
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL-запрос в коде VB
и, кстати, уберите DoCmd.OpenForm "MyForm"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.09.2009, 16:48
    #36208246
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL-запрос в коде VB
яи, кстати, уберите DoCmd.OpenForm "MyForm"

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

Forms!MyForm...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2009, 06:54
    #36208924
Joni_5
Joni_5
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL-запрос в коде VB
Код: 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
    #36208925
Joni_5
Joni_5
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL-запрос в коде VB
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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / SQL-запрос в коде VB / 16 сообщений из 16, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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