VBA макрос в SQL запросе

@Alexey200 · Регистрация: 23.03.2016

Студворк — интернет-сервис помощи студентам

Привет!
Возможно ли запустить VBA-макрос в теле запроса Ms SQL ?
Я не шарю, поэтому мои вопросы могут показаться глупыми.

Вот этот код:
--------------------------------------------------

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Макрос2()
 
For k = 1 To 100
    If Cells(k, 6) <> "" Then
    i = Cells(k, 6)
    
    Columns("A:A").Select
   
    Selection.Replace What:=i, Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
    Else
    End If
    Next k
    
End Sub

-----------------------------------

Это чистка списка в [А] столбце на эксельном листе от мусора, пример которого располагается в [F] столбце, плюс в [B] столбце указана длина строки [=ДЛСТР(A2)].

Возможно ли все это перенести в Mssql? Или такое невозможно?

@ApXyC · 23.03.2016, 10:56

Alexey200, а что он должен почистить в MsSql и как ты себе это представляешь?

@Alexey200 · 23.03.2016, 11:03 **[ТС]**

ApXyC,
В таблице есть столбец с названиями агентов, всякие там ООО, ИП, пробелы, нижние подчеркивания и др.,
у меня список есть с тем, что нужно удалить в каждой клетке столбца, если есть что удалять.
Вот ищу способ как это сделать без участия экселя.
Может какой-то построчный поиск и удаление в пределах одного столобца есть?

Допустим я залью список на сервак в виде таблицы с одним столбцом, и теперь мне нужно искать в каждой клетке стобца с агентами все, что есть в этом списке и удалять, оставляя скажем только название организации, или Фио. Строки удалять не надо, нужно просто чистить от лишних символов, или наборов символов.

@texnik-san · 23.03.2016, 11:07

Сообщение от Alexey200

ищу способ как это сделать без участия экселя.

То есть, данные находятся в экселе, а обрабатывать их должен SQL Server?

@Alexey200 · 23.03.2016, 11:10 **[ТС]**

texnik-san, Все данные будут Ms SQL.

@texnik-san · 23.03.2016, 11:11

Сообщение от Alexey200

Может какой-то построчный поиск

SQL специально разработан для того, чтобы работать не построчно.

Но с чего вы вязали, что ваша задача построчная, я тоже не понимаю

Расскажите человеческим языком, где все-таки лежат данные, над которыми должны быть произведены действия: на сервере или в экселе.

@Alexey200 · 23.03.2016, 11:18 **[ТС]**

Я использую Русский язык, а что такое человеческий язык я не знаю, поделитесь ссылкой на учебник человеческого языка.
С того, что чистка происходит в каждой ячейке, если вы предыдущие сообщения прочтете, то поймете что я не в курсе возможно ли это в MSSQL.
Третий раз пишу что данные будут в базе MsSQL Лежать.
А эксель это то, что я использую сейчас.

@texnik-san · 23.03.2016, 11:28

Сообщение от Alexey200

Все данные будут Ms SQL

Отлично. Тогда считаем, что Main это таблица с данными, в ней поле MyStringField это поле, в котором нужно произвести замены. И также считаем, что в таблице Garbage в поле Sample хрянятся образцы строк, которые должны быть удалены.

SQL
1
2
UPDATE Main, Garbage 
SET Main.MyStringField = REPLACE(Main.MyStringField, Garbage.Sample, '')

Добавлено через 59 секунд

Сообщение от Alexey200

поделитесь ссылкой на учебник человеческого языка.

http://www.mova.info/Page2.aspx?l1=58

Добавлено через 4 минуты

Сообщение от Alexey200

С того, что чистка происходит в каждой ячейке, если вы предыдущие сообщения прочтете, то поймете что я не в курсе возможно ли это в MSSQL.

В SQL базах вообще нет ячеек. Как понятия нет.

Есть поля (условно это столбцы), есть записи (это множество строк). Работая с таблицей, вы работаете либо со всеми ее строками, либо с каким-то подмножеством (тогда вам нужно описать правило, как это подмножество будет из всех строк выбираться), и работаете с ним как с единым целым.

@Alexey200 · 23.03.2016, 11:31 **[ТС]**

Это замена при полном, или честичном совпаднии строк?
попробую подробно описать.

исходные:
список мусора | агенты
% | ООО Кефир
( | ИП (Хлебов)
ООО | %ООО Бикинис
ИП | ИП Бабун

На выходе должны быть:
Кефир
Хлебов
Бикинис
Бабун

С (R) И (L) Тримом (аля СЖПРОБЕЛ)

П.С А мова тут причем? это Язык?

@texnik-san · 23.03.2016, 12:12

Сообщение от Alexey200

Это замена при полном, или честичном совпаднии строк?

Полном. Поэтому описывайте мусор вместе с пробелами.

@Alexey200 · 23.03.2016, 12:17 **[ТС]**

Сообщение от texnik-san

Полном. Поэтому описывайте мусор вместе с пробелами.

Я в том плане, что он в строке удалит "ООО Хлеб", или только "ООО"?
мне нужно чтобы он тоьлко например "ООО" удалил, то есть не всю ячейку, "Хлеб" должен остаться.

@texnik-san · 23.03.2016, 12:25

Заменит "ООО" на "". Останется " Хлеб". Если нужно, чтобы удалились и пробелы тоже - придется или в таблице мусора хранить "ООО ", или действительно обернуть Replace() еще и в LTRIM(). Ориентируйтесь по ситуции, что в вашем случае более правильно.

@Alexey200 · 23.03.2016, 12:34 **[ТС]**

Спасибо! Очень помогли

@Alexey200 · 25.03.2016, 12:24 **[ТС]**

Хм, если применить синтаксис Менеджмент студио MSSQL, то подчеркивает запятую после ]UPDATE [ClientData].[dbo].[CENTER_IVN_2016_V],
А так же подчеркивает SET, знак = перед реплейсом, и [ClientData] после Реплейса

Добавлено через 3 минуты

SQL
1
2
UPDATE [ClientData].[dbo].[CENTER_IVN_2016_V],[ClientData].[dbo].[CENTER_IVN_Trash]
SET [Агент] = REPLACE([ClientData].[dbo].[CENTER_IVN_2016_V].[Агент], [ClientData].[dbo].[CENTER_IVN_Trash].[Мусор], '')

Добавлено через 14 минут
Поправка после SET не [Агент], а

[ClientData].[dbo].[CENTER_IVN_2016_V].[Агент]

@pincet · 25.03.2016, 14:54

это в где можно предложением UPDATE обновлять кучу таблиц?

@texnik-san · 25.03.2016, 21:55

Сообщение от pincet

это в где можно предложением UPDATE обновлять кучу таблиц?

Обновляется только одна. Но значения берутся из другой. Причем соединение - картезианское.

В аксес текст запроса пишется именно так. А как в другом синтаксисе надо?

Добавлено через 8 минут
Вообще, можно конечно сделать объединение и не картезиантским:

SQL
1
2
3
4
UPDATE [ClientData].[dbo].[CENTER_IVN_2016_V] Main 
  INNER JOIN [ClientData].[dbo].[CENTER_IVN_Trash] Garbage 
  ON Main.[Агент] LIKE "%" & Garbage.[Мусор]& "%"
SET Main.[Агент] = REPLACE(Main.[Агент], Garbage.[Мусор], '')

(весь синтаксис обращения к таблицам до присвоения им псевдонимов скопирован с приведенного выше запроса, сама я синтаксиса этого не знаю, оценить, правильное ли оно - не могу. Также не уверена, используеся в этом синтаксисе слово INNER перед JOIN, являются ли символами подстановки знаки процнта - в аксес зведочки)

@pincet · 25.03.2016, 22:19

И за ради для писать , если не знаем синтаксис?

@texnik-san · 25.03.2016, 22:39

Сообщение от pincet

И за ради для писать , если не знаем синтаксис?

Так никто другой, более знающий, все равно же не отвечает. Отвечал бы - я бы молчала, опыт на ус наматывала (ой, у меня нет усов

- в клубочек бы намотала).

И потом, синтаксис дело такое - автор его сам в справочнике глянет. А вот принцип решения задачи в справочнике не указан, а я как раз принцип знаю.

@pincet · 25.03.2016, 22:47

Пилите, Шура, они золотые

@Alexey200 · 26.03.2016, 14:17 **[ТС]**

SQL
1
2
3
4
UPDATE [ClientData].[dbo].[CENTER_IVN_2016_V] Main 
  INNER JOIN [ClientData].[dbo].[CENTER_IVN_Trash] Garbage 
  ON Main.[Агент] LIKE "%" & Garbage.[Мусор]& "%"
SET Main.[Агент] = REPLACE(Main.[Агент], Garbage.[Мусор], '')

Все таблицы и столбцы должны быть в квадратных скобках, насколько я знаю.

С указанием расшитерния аля [dbo] или как оно там называется, для таблиц, ижедательно укзанием БД, поскольку оно не всегда понимает в какой БД находится таблица, не знаю с чем это связано ))))
То есть первая строчка фактически будет вот такой ?

SQL
1
UPDATE [ClientData].[dbo].[CENTER_IVN_2016_V] [ClientData].[dbo].[Main]

В справке по оператору UPDATE на сайте мелкософта такого примера не нашел, чтоб две таблички можно было указывать. Может это применимо в MySQL, либо я чего-то не знаю.

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

@ApXyC 66 / 64 / 24 Регистрация: 14.10.2014 Сообщений: 339
	23.03.2016, 10:56
	Alexey200, а что он должен почистить в MsSql и как ты себе это представляешь? 0

@Alexey200 2 / 2 / 0 Регистрация: 23.03.2016 Сообщений: 36
	23.03.2016, 11:03 [ТС]
	ApXyC, В таблице есть столбец с названиями агентов, всякие там ООО, ИП, пробелы, нижние подчеркивания и др., у меня список есть с тем, что нужно удалить в каждой клетке столбца, если есть что удалять. Вот ищу способ как это сделать без участия экселя. Может какой-то построчный поиск и удаление в пределах одного столобца есть? Допустим я залью список на сервак в виде таблицы с одним столбцом, и теперь мне нужно искать в каждой клетке стобца с агентами все, что есть в этом списке и удалять, оставляя скажем только название организации, или Фио. Строки удалять не надо, нужно просто чистить от лишних символов, или наборов символов. 0

@Alexey200 2 / 2 / 0 Регистрация: 23.03.2016 Сообщений: 36
	23.03.2016, 11:10 [ТС]
	texnik-san, Все данные будут Ms SQL. 0

@Alexey200 2 / 2 / 0 Регистрация: 23.03.2016 Сообщений: 36
	23.03.2016, 11:18 [ТС]
	Я использую Русский язык, а что такое человеческий язык я не знаю, поделитесь ссылкой на учебник человеческого языка. С того, что чистка происходит в каждой ячейке, если вы предыдущие сообщения прочтете, то поймете что я не в курсе возможно ли это в MSSQL. Третий раз пишу что данные будут в базе MsSQL Лежать. А эксель это то, что я использую сейчас. 0

@Alexey200 2 / 2 / 0 Регистрация: 23.03.2016 Сообщений: 36
	23.03.2016, 11:31 [ТС]
	Это замена при полном, или честичном совпаднии строк? попробую подробно описать. исходные: список мусора \| агенты % \| ООО Кефир ( \| ИП (Хлебов) ООО \| %ООО Бикинис ИП \| ИП Бабун На выходе должны быть: Кефир Хлебов Бикинис Бабун С (R) И (L) Тримом (аля СЖПРОБЕЛ) П.С А мова тут причем? это Язык? 0

@texnik-san шапоклякистка 8-го дня 3681 / 2241 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	23.03.2016, 12:25
	Сообщение было отмечено Alexey200 как решение Решение Заменит "ООО" на "". Останется " Хлеб". Если нужно, чтобы удалились и пробелы тоже - придется или в таблице мусора хранить "ООО ", или действительно обернуть Replace() еще и в LTRIM(). Ориентируйтесь по ситуции, что в вашем случае более правильно. 1

@Alexey200 2 / 2 / 0 Регистрация: 23.03.2016 Сообщений: 36
	23.03.2016, 12:34 [ТС]
	Спасибо! Очень помогли 0

@pincet 1654 / 1153 / 173 Регистрация: 23.07.2010 Сообщений: 6,910
	25.03.2016, 14:54
	это в где можно предложением UPDATE обновлять кучу таблиц? 0

@pincet 1654 / 1153 / 173 Регистрация: 23.07.2010 Сообщений: 6,910
	25.03.2016, 22:19
	И за ради для писать , если не знаем синтаксис? 0

@pincet 1654 / 1153 / 173 Регистрация: 23.07.2010 Сообщений: 6,910
	25.03.2016, 22:47
	Пилите, Шура, они золотые 0

VBA макрос в SQL запросе

Решение