powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / SQL и VBA
25 сообщений из 107, страница 2 из 5
SQL и VBA
    #37265728
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VikVikVikВыслала на zelezo@inbox.ru.Неудивительно, что у тебя ничего не получается. Программист не может себе позволять подобную невнимательность. Жду письма на МОЙ адрес.
VikVikVik Запускала test2 нажимала ctrl+g и нажимала f5.это ответ на какой вопрос?
...
Рейтинг: 0 / 0
SQL и VBA
    #37266710
VikVikVik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,
Отправила :)
...
Рейтинг: 0 / 0
SQL и VBA
    #37266967
VikVikVik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ошибку выдает в строках:
rst.Open strSQL2, cnn
x2 = rst.Fields(0)

Выдает сообщение:

Run-time error '6':
Overflow
...
Рейтинг: 0 / 0
SQL и VBA
    #37266969
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VikVikVikVikVikVikОтправила :)
это должно подтягиваться в book_18_05_2010 в ячейку H27
Книга4 получил. А где book_18_05_2010? Мы так долго будем проблему решать.
...
Рейтинг: 0 / 0
SQL и VBA
    #37267014
VikVikVik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,

Отправила и сейчас и перед этим отправляла.
...
Рейтинг: 0 / 0
SQL и VBA
    #37267069
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VikVikVikОшибку выдает в строках:
x2 = rst.Fields(0)

Выдает сообщение:

Run-time error '6':
OverflowНу так и что неясно в сообщении об ошибке?
VikVikVikDim x2 As IntegerVikVikVikдолжно быть 178 094

Нельзя в Integer запихнуть такое число. Почитай плиз про типы данных.
...
Рейтинг: 0 / 0
SQL и VBA
    #37267147
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Та же ошибка в присланном файле с функцией GetData2
...
Рейтинг: 0 / 0
SQL и VBA
    #37267199
VikVikVik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,

Спасибо БОЛЬШОЕ. Спасли мою душу. ))))
...
Рейтинг: 0 / 0
SQL и VBA
    #37273963
VikVikVik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,

Подскажите хорошие книги по SQL в Excel, что бы доступные были...
Еще вопрос как писать запрос, что бы к примеру считало количество но неповторяющихся елементов в поле?
Уточню есть таблица

strField1

111
122
123
143
345
345
222
222

Так что бы в запросе считало кол-во : 6
...
Рейтинг: 0 / 0
SQL и VBA
    #37274050
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
select count(*) as kolvo
from (select distinct strField1 from Таблица)
...
Рейтинг: 0 / 0
SQL и VBA
    #37274068
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
mds_world,

А что, select Count(distinct поле) from.... в аксе не прокатит?
...
Рейтинг: 0 / 0
SQL и VBA
    #37274081
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторА что, select Count(distinct поле) from.... в аксе не прокатит? Как в аксе не знаю, в оракле в легкую прокатывает.
...
Рейтинг: 0 / 0
SQL и VBA
    #37274187
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Promds_world,

А что, select Count(distinct поле) from.... в аксе не прокатит?
Нет. Синтаксис джета таких вольностей не позволяет
...
Рейтинг: 0 / 0
SQL и VBA
    #37274217
VikVikVik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
mds_world,

так не прокатывает (((

strSQL7 = "SELECT Count(*) as kolvo from (select distinct ([" & strField1 & "]) from [Лист1$A3:L65000]" & "WHERE [" _
& strField1 & "]" & strOperator1 & "'" & strCriterion1 & "' and [" _
& strField2 & "]" & strOperator2 & " #1/1/2011# and [" _
& strField3 & "]" & strOperator3 & " #1/1/2011# and [" _
& strField2 & "]" & strOperator4 & " #1/1/2012# and [" _
& strField3 & "]" & strOperator5 & " #1/1/2012# "
Выдает ошибку : Ошибка синтаксиса в предложении FROM.

А select Count(distinct поле) from.... тоже не ратотает...Пишет:
Ошибка синтаксиса (пропущен оператор) в выражении запроса 'Count (distinct[segment вид UNIQA])'
...
Рейтинг: 0 / 0
SQL и VBA
    #37274233
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VikVikVikтак не прокатывает
скобка закрывающая где?
...
Рейтинг: 0 / 0
SQL и VBA
    #37274240
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VikVikVikА select Count(distinct поле) from.... тоже не ратотает...
А поле "поле" у тебя есть?
...
Рейтинг: 0 / 0
SQL и VBA
    #37274263
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VikVikVik,

после формирования переменной strSQL7, напишите Debug.Print strSQL7 и результат из Immediate, покажите здесь
...
Рейтинг: 0 / 0
SQL и VBA
    #37274281
VikVikVik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
mds_world,
не могу получить результат в результат из Immediate , так как не компилируеться.
Выдает ошибкуВыдает ошибку : Ошибка синтаксиса в предложении FROM.

А если писать коротко Count(distinct поле) from..., то выдает:
Ошибка синтаксиса (пропущен оператор) в выражении запроса 'Count (distinct[segment вид UNIQA])'
...
Рейтинг: 0 / 0
SQL и VBA
    #37274302
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VikVikVikmds_world,
не могу получить результат в результат из Immediate , так как не компилируеться.
Выдает ошибкуВыдает ошибку : Ошибка синтаксиса в предложении FROM.
Debug.Print надо писать ДО выполнения запроса, а не после




VikVikVik А если писать коротко Count(distinct поле) from..., то выдает:
Ошибка синтаксиса (пропущен оператор) в выражении запроса 'Count (distinct[segment вид UNIQA])'
mds_worldShocker.Promds_world,

А что, select Count(distinct поле) from.... в аксе не прокатит?
Нет. Синтаксис джета таких вольностей не позволяет
...
Рейтинг: 0 / 0
SQL и VBA
    #37274305
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VikVikVikmds_world,
не могу получить результат в результат из Immediate , так как не компилируеться.
Выдает ошибкуВыдает ошибку : Ошибка синтаксиса в предложении FROM.
Не компилируется или не выполняется?
сразу после указанной строки поставь Debug.Print strSQL7
Так как ошибка возникает позже, эта строка сработает и выдаст результат в Immediate

Впрочем, в чем ошибка в запросе - я уже сказал
...
Рейтинг: 0 / 0
SQL и VBA
    #37274405
VikVikVik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,

Скобок все равно не вижу, а поле действительно поменяла.
Правда после такой записи выдает нули:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
strSQL7 = "SELECT Count(*) as kolvo from (select distinct ([" & strField5 & "]) from [Лист1$A3:L65000]" & "WHERE [" _
& strField1 & "]" & strOperator1 & "'MTPL' and [" _
& strField2 & "]" & strOperator2 & " #1/1/2011# and [" _
& strField3 & "]" & strOperator3 & " #1/1/2011# and [" _
& strField2 & "]" & strOperator4 & " #1/1/2012# and [" _
& strField3 & "]" & strOperator5 & " #1/1/2012# "

В Immediate:
  0  
SELECT Count(*) as kolvo from (select distinct ([Номер КЗ]) from [Лист1$A3:L65000]WHERE [segment вид UNIQA]='MTPL' and [Дата події]>= #1/1/2011# and [Дата реєстрації]>= #1/1/2011# and [Дата події]< #1/1/2012# and [Дата реєстрації]< #1/1/2012# 
  0  
...
Рейтинг: 0 / 0
SQL и VBA
    #37274415
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VikVikVikСкобок все равно не вижу
После from скобка открывается...
...
Рейтинг: 0 / 0
SQL и VBA
    #37274534
VikVikVik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,
Спасибо. Скобки поставила, а вот оно все равно нули выдает:

Код: plaintext
1.
2.
3.
4.
5.
6.
strSQL7 = "SELECT Count(*) as kolvo from (select distinct ([" & strField5 & "]) from [Лист1$A3:L65000])" & "WHERE [" _
& strField1 & "]" & strOperator1 & "'" & strCriterion1 & "' and [" _
& strField2 & "]" & strOperator2 & " #1/1/2011# and [" _
& strField3 & "]" & strOperator3 & " #1/1/2011# and [" _
& strField2 & "]" & strOperator4 & " #1/1/2012# and [" _
& strField3 & "]" & strOperator5 & " #1/1/2012# "

Код: plaintext
1.
2.
3.
 0  
SELECT Count(*) as kolvo from (select distinct ([ Номер КЗ]) from [Лист1$A3:L65000])WHERE [segment вид UNIQA]='' and [Дата події]>= #1/1/2011# and [Дата реєстрації]>= #1/1/2011# and [Дата події]< #1/1/2012# and [Дата реєстрації]< #1/1/2012# 
  0  
...
Рейтинг: 0 / 0
SQL и VBA
    #37274560
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вообще-то не нули, а ошибку должен выдавать. В скобки надо заключить ВЕСЬ подзапрос, включая WHERE
...
Рейтинг: 0 / 0
SQL и VBA
    #37275183
VikVikVik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,

Напилала:
(1)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
      Debug.Print strSQL7
      Debug.Print x7
  
strSQL7 = "SELECT Count (distinct ([" & strField5 & "] from [Лист1$A3:AM65000])" & "WHERE [" _
& strField1 & "]" & strOperator1 & "'Casco' and [" _
& strField2 & "]" & strOperator2 & " #1/1/2011# and [" _
& strField3 & "]" & strOperator3 & " #1/1/2011# and [" _
& strField2 & "]" & strOperator4 & " #1/1/2012# and [" _
& strField3 & "]" & strOperator5 & " #1/1/2012# )"
В окне Immediate стало просто выводить 0.
Наверноя я не правильно формирую сам запрос. (2) Мне нужно отобрать по полю trField5 ="Номер КЗ" не учитывать КЗ, которые повторяються посчитать кол-во при условии, что strField1="Casco" и strField2>1/1/2011 Field2<1/1/2012 и strField3>1/1/2011 Field3<1/1/2012
Скажите (1)=(2)? или не верній запрос в (1). Спасибо.
...
Рейтинг: 0 / 0
25 сообщений из 107, страница 2 из 5
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / SQL и VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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