ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Разделить строку на несколько строк
9 сообщений из 9, страница 1 из 1
Разделить строку на несколько строк
    #34517980
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
Привет всем!!!
Написал макрос, который вытаскивает нужную информацию из SQL-сервера, с помощью обычных запросов SQL.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
sqlstring2 = _
"select * From Customer where ASCII(SUBSTRING(Left(Name, 1), 1, 1)) > 70 order by name"

connstring = _
Array(Array("ODBC;DRIVER=SQL Server;SERVER=Home;DATABASE=AppData;Trusted_Connection=Ye"), Array("s"))
With ActiveSheet.QueryTables.Add(Connection:=connstring, _
        Destination:=Range("A1"), Sql:=sqlstring2)
    .Refresh
End With
Проблема в том, что SQL запрос
Код: plaintext
"select * From Customer where ASCII(SUBSTRING(Left(Name, 1), 1, 1)) > 70 order by name"
очень коротенький и поэтому его можно оставить в виде как он и есть (в одну строку). Но мне нужно воткнуть запрос, который разов в пять длиннее приведенного выше.
Как разбить некий запрос на несколько строк (для удобства чтения)? Например вот так:
Код: plaintext
1.
2.
"select * From Customer
where ASCII(SUBSTRING(Left(Name, 1), 1, 1)) > 70
order by name"
...
Рейтинг: 0 / 0
11.05.2007, 08:33:24
| Ответить | Цитировать | Написать  
Разделить строку на несколько строк
    #34518001
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Если без кавычек
Код: plaintext
1.
2.
"select * From Customer" & _
"where ASCII(SUBSTRING(Left(Name, 1), 1, 1)) > 70" & _
"Order by Name"
Если с кавычками
Код: plaintext
1.
2.
"""select * From Customer" & _
"where ASCII(SUBSTRING(Left(Name, 1), 1, 1)) > 70" & _
"Order by Name"""
Обязательно пробел в конце каждой строки
...
Рейтинг: 0 / 0
11.05.2007, 08:56:51
| Ответить | Цитировать | Написать  
Разделить строку на несколько строк
    #34518026
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
с помощью & _ можно конкетировать строки, но и здесь будут ограничения

можно делать так (строку можно длиннее получить )
Код: plaintext
1.
2.
3.
4.
Dim strSql As String

strSQl = "select * From Customer" 
strSQl = strSql & "where ASCII(SUBSTRING(Left(Name, 1), 1, 1)) > 70" 
strSQl = strSql & "Order by Name"

I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
11.05.2007, 09:15:05
| Ответить | Цитировать | Написать  
Разделить строку на несколько строк
    #34518047
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
DeggasadЕсли без кавычек
Код: plaintext
1.
2.
"select * From Customer" & _
"where ASCII(SUBSTRING(Left(Name, 1), 1, 1)) > 70" & _
"Order by Name"
Если с кавычками
Код: plaintext
1.
2.
"""select * From Customer" & _
"where ASCII(SUBSTRING(Left(Name, 1), 1, 1)) > 70" & _
"Order by Name"""
Обязательно пробел в конце каждой строки

немного изменил сам запрос, но есть ошибка
...
Рейтинг: 0 / 0
11.05.2007, 09:23:06
| Ответить | Цитировать | Написать  
Разделить строку на несколько строк
    #34518063
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
HandKotс помощью & _ можно конкетировать строки, но и здесь будут ограничения

можно делать так (строку можно длиннее получить )
Код: plaintext
1.
2.
3.
4.
Dim strSql As String

strSQl = "select * From Customer" 
strSQl = strSql & "where ASCII(SUBSTRING(Left(Name, 1), 1, 1)) > 70" 
strSQl = strSql & "Order by Name"

I Have Nine Lives You Have One Only
THINK!

Так получилось только пробелы нужно поставить
Код: plaintext
1.
2.
strSqll = "select * From Prod"
strSqll = strSqll & " where ASCII(SUBSTRING(Left(Name, 1), 1, 1)) <= 205"
strSqll = strSqll & " Order by Name"
...
Рейтинг: 0 / 0
11.05.2007, 09:32:31
| Ответить | Цитировать | Написать  
Разделить строку на несколько строк
    #34518184
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
кстати вот это выражение не имеет смысла
Код: plaintext
SUBSTRING(Left(Name,  1 ),  1 ,  1 )
т.к Left(Name, 1) уже вернет 1 символ
и сабстр здесь уже лишнее

I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
11.05.2007, 10:25:29
| Ответить | Цитировать | Написать  
Разделить строку на несколько строк
    #34518209
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
HandKotкстати вот это выражение не имеет смысла
Код: plaintext
SUBSTRING(Left(Name,  1 ),  1 ,  1 )
т.к Left(Name, 1) уже вернет 1 символ
и сабстр здесь уже лишнее

I Have Nine Lives You Have One Only
THINK!

Спасибо... Учту
...
Рейтинг: 0 / 0
11.05.2007, 10:31:48
| Ответить | Цитировать | Написать  
Разделить строку на несколько строк
    #34518246
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
andMegaM

немного изменил сам запрос, но есть ошибка

1) как вызываете запрос
2) заберите поле Name в квадратные скобки, т.к это зарезервированное слово
...
Рейтинг: 0 / 0
11.05.2007, 10:41:18
| Ответить | Цитировать | Написать  
Разделить строку на несколько строк
    #34518270
f
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
f
Участник
andMegaM .
Запросы или хранимые процедуры (в том числе
с параметрами) есть смысл создавать в Ентерпрайз
менеджере или Аксесе.
Там для этого есть все возможности, в том числе
графический интерфейс.

Из Экселя их тогда можно вызывать по названию.
...
Рейтинг: 0 / 0
11.05.2007, 10:47:22
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Разделить строку на несколько строк
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34517980&tid=2182991]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 45ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 39ms
get tp. blocked users:
 1ms
others: 188ms
total:  300ms
созд. / загр.: 300ms
x
x
Закрыть


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