Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Поиск и замена. SQL ??? Добавлено: 22.02.03 06:26  

Автор вопроса:  Justas  | Web-сайт: justas.newmail.ru | ICQ: 259418212 

Такой вот вопрос:  
Есть база аксесовская примерно на 70000 записей. В поле name - имена.
Кое-где имена начинаются со значка "*" или "#" и записей таких тычяч 20...

Задача: Найти их и убрать первый символ.
Т.Е. из "*иванов" и "#петров" сделать "иванов", "петров".
HELP!!!  

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 Justas



ICQ: 259418212 

Вопросов: 24
Ответов: 325
  Web-сайт: justas.newmail.ru
 Профиль | | #1 		Добавлено: 22.02.03 06:38
Да, забыл сказать, - совершенно неважно каким способом это сделать. Кодом из басика, при помоши аксесса - всё равно. Лиш-бы убрать эти символы.

Ответить

Номер ответа: 2
Автор ответа:
 BIV



Вопросов: 4
Ответов: 27
  Профиль | | #2 Добавлено: 22.02.03 08:44

Я бы делал так:

Dim rs As DAO.Recordset
Set rs = Db.OpenRecordset("Indexes", dbOpenDynaset)
With rs
Do Until .EOF
 Select Case Left$(![Words], 1)
 Case "*", "#"
    .Edit
    ![Words] = Mid$(![Words], 2)
    .Update
 End Select
.MoveNext
Loop
.Close
End With

Ответить

Номер ответа: 3
Автор ответа:
 Justas



ICQ: 259418212 

Вопросов: 24
Ответов: 325
  Web-сайт: justas.newmail.ru
 Профиль | | #3 		Добавлено: 22.02.03 09:53

BIV!

  Большое, человеческое спасибо!!!

Всё работает.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам