Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Преобразование выгрузки acsess в sql для excel. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Преобразование выгрузки acsess в sql для excel. (Макросы/Sub)
Преобразование выгрузки acsess в sql для excel.
Fauqueuse Дата: Среда, 17.02.2016, 19:38 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Сделали выгрузку из аксеса и теперь надо в Excele SQL прописать, вот только я в них не силен, сможете помочь правильно прописать? Буду благодарен.

Должники

[vba]
Код
SELECT DISTINCTROW [все из ртл].УКА, [все из ртл].РП, [все из ртл].Клиент, [все из ртл].[Номер договора], [все из ртл].[Вид кред], [все из ртл].Служба, [все из ртл].Этап, [все из ртл].[Кол-во дней просрочки], [все из ртл].Подэтап

FROM [обеспеч из ртл] INNER JOIN [все из ртл] ON [обеспеч из ртл].[Номер договора]=[все из ртл].[Номер договора]

WHERE ((([все из ртл].[Вид кред])="Потребительское кредитование"))

UNION SELECT [все из ртл].УКА, [все из ртл].РП, [все из ртл].Клиент, [все из ртл].[Номер договора], [все из ртл].[Вид кред], [все из ртл].Служба, [все из ртл].Этап, [все из ртл].[Кол-во дней просрочки], [все из ртл].Подэтап

FROM [все из ртл]

WHERE ((([все из ртл].[Вид кред])<>"Потребительское кредитование"));
[/vba]

ЗАГРУЗКА

SELECT должники.УКА, должники.РП, Left([Клиент],InStr([Клиент]," ")-1) AS Фамилия, Left(Mid([Клиент],InStr([Клиент]," ")+1,Len([Клиент])-InStr([Клиент]," ")),InStr((Mid([Клиент],InStr([Клиент]," ")+1,Len([Клиент])-InStr([Клиент]," ")))," ")-1) AS Имя, Mid([Клиент],Len(Фамилия)+Len(Имя)+3,Len([Клиент])-Len(Фамилия)-Len(Имя)) AS Отчество, должники.[Номер договора], должники.[Вид кред], должники.Служба, должники.Этап, должники.[Кол-во дней просрочки], должники.Подэтап

КАК ПРИМЕР!!!
Вот это выгрузка [vba]
Код
SELECT DISTINCTROW [все из ртл].УКА, [все из ртл].РП, [все из ртл].Клиент, [все из ртл].[Номер договора], [все из ртл].[Вид кред], [все из ртл].Служба, [все из ртл].Этап, [все из ртл].[Кол-во дней просрочки], [все из ртл].Подэтап
[/vba]

А это готовый текст для SQL запроса в Excel.[vba]
Код
SELECT DISTINCTROW `Итог$`.`УКА`,`Итог$`.`РП`,`Итог$`.`Клиент`,`Итог$`.`Номер договора`,`Итог$`.`Вид кред`,`Итог$`.`Служба` ,`Итог$`.`Этап` ,`Итог$`.`Кол-во дней просрочки` ,`Итог$`.`Подэтап`
[/vba]
[moder]Закрыто. Задвоение.
И коды нужно соответствующими тегами оформлять. Поправил за Вас.
 
Ответить
СообщениеСделали выгрузку из аксеса и теперь надо в Excele SQL прописать, вот только я в них не силен, сможете помочь правильно прописать? Буду благодарен.

Должники

[vba]
Код
SELECT DISTINCTROW [все из ртл].УКА, [все из ртл].РП, [все из ртл].Клиент, [все из ртл].[Номер договора], [все из ртл].[Вид кред], [все из ртл].Служба, [все из ртл].Этап, [все из ртл].[Кол-во дней просрочки], [все из ртл].Подэтап

FROM [обеспеч из ртл] INNER JOIN [все из ртл] ON [обеспеч из ртл].[Номер договора]=[все из ртл].[Номер договора]

WHERE ((([все из ртл].[Вид кред])="Потребительское кредитование"))

UNION SELECT [все из ртл].УКА, [все из ртл].РП, [все из ртл].Клиент, [все из ртл].[Номер договора], [все из ртл].[Вид кред], [все из ртл].Служба, [все из ртл].Этап, [все из ртл].[Кол-во дней просрочки], [все из ртл].Подэтап

FROM [все из ртл]

WHERE ((([все из ртл].[Вид кред])<>"Потребительское кредитование"));
[/vba]

ЗАГРУЗКА

SELECT должники.УКА, должники.РП, Left([Клиент],InStr([Клиент]," ")-1) AS Фамилия, Left(Mid([Клиент],InStr([Клиент]," ")+1,Len([Клиент])-InStr([Клиент]," ")),InStr((Mid([Клиент],InStr([Клиент]," ")+1,Len([Клиент])-InStr([Клиент]," ")))," ")-1) AS Имя, Mid([Клиент],Len(Фамилия)+Len(Имя)+3,Len([Клиент])-Len(Фамилия)-Len(Имя)) AS Отчество, должники.[Номер договора], должники.[Вид кред], должники.Служба, должники.Этап, должники.[Кол-во дней просрочки], должники.Подэтап

КАК ПРИМЕР!!!
Вот это выгрузка [vba]
Код
SELECT DISTINCTROW [все из ртл].УКА, [все из ртл].РП, [все из ртл].Клиент, [все из ртл].[Номер договора], [все из ртл].[Вид кред], [все из ртл].Служба, [все из ртл].Этап, [все из ртл].[Кол-во дней просрочки], [все из ртл].Подэтап
[/vba]

А это готовый текст для SQL запроса в Excel.[vba]
Код
SELECT DISTINCTROW `Итог$`.`УКА`,`Итог$`.`РП`,`Итог$`.`Клиент`,`Итог$`.`Номер договора`,`Итог$`.`Вид кред`,`Итог$`.`Служба` ,`Итог$`.`Этап` ,`Итог$`.`Кол-во дней просрочки` ,`Итог$`.`Подэтап`
[/vba]
[moder]Закрыто. Задвоение.
И коды нужно соответствующими тегами оформлять. Поправил за Вас.

Автор - Fauqueuse
Дата добавления - 17.02.2016 в 19:38
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Преобразование выгрузки acsess в sql для excel. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!