Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сортировка в запросе к Экселю / 5 сообщений из 5, страница 1 из 1
02.09.2009, 11:16:48
    #36174214
Гусь@
Гусь@
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сортировка в запросе к Экселю
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
Процедура Тест(StrSQL)
Dim cn As ADODB.Connection
StrSQL= "SELECT * FROM [Контрагенты$" & "A4:B" & (i -  1 ) & "] Order By Контрагент"
Dim rsT As ADODB.Recordset
Set cn = New ADODB.Connection
With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=D:\Сотрудники\Ya\Проекты VBA\Зу" & _
"\Programnov.xls;Extended Properties=Excel 8.0;"
    '.Provider = "MSDASQL"
    '.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & App.Path & "\ExcelSrc.xls; "
    .CursorLocation = adUseClient
    .Open
End With
Set rsT = cn.Execute(StrSQL)
rsT.MoveFirst
Sch =  0 
While Not rsT.EOF
ID = rsT.Fields( 0 ).Value
Imya = rsT.Fields( 1 ).Value
Dvizhuhi.ListBox1.AddItem
Dvizhuhi.ListBox1.List(Sch,  0 ) = ID
Dvizhuhi.ListBox1.List(Sch,  1 ) = Imya
' Здесь Я загружаю записи в листБокс
Sch = Sch +  1 
rsT.MoveNext
Wend
'...
Вопрос в следующем: сортирует не так как надо. К примеру вначале идут слова, начинающиеся с заглавной буквы, а потом с прописной. Не скажете, пожалуйста, как мне устранить такую сортировку и поставить нормальную?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2009, 11:31:01
    #36174256
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сортировка в запросе к Экселю
Гусь@,
как вариант - использовать встроенную сортировку Excel после запроса
допишите что-то типа
Код: plaintext
1.
2.
3.
4.
5.
6.
Range("A1").Selection.Sort _
   Key1:=Range("A1"), _
   Order1:=xlDescending, _
   Header:=xlGuess, _
   OrderCustom:= 1 , _
   MatchCase:=False, _
   Orientation:=xlTopToBottom
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2009, 11:36:42
    #36174276
Гусь@
Гусь@
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сортировка в запросе к Экселю
Да, спасибо. Так, наверное, и сделаю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2009, 12:18:36
    #36174390
Гусь@
Гусь@
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сортировка в запросе к Экселю
Cделал так, после генерации запроса:
Код: plaintext
rsT.Sort = "Контрагент Asc"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2009, 12:46:38
    #36174468
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сортировка в запросе к Экселю
Гусь@
Код: plaintext
rsT.Sort = "Контрагент Asc"
это команда vba или sql?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сортировка в запросе к Экселю / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 509ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2179117]:
 0ms
get settings:
 9ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 171ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 244ms
total:  509ms
x
x
Закрыть


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