Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.06.2009, 18:36   #21
vovk
!=
Участник клуба
 
Аватар для vovk
 
Регистрация: 08.09.2008
Сообщений: 1,751
По умолчанию

В общем ADO Access SQL запросы с этим понятно. Таблицы не вижу, так что с данными гадаю.. Предполагаю, что все записи в поле STREET имеют такой вид (<название> <пробел> <чегототам из 2 символов>) задача отрезать пробелы в конце(если есть), из того что получилось отрезать 3 последних символа, 2 последних пришить в начало строки через пробел.
Это как я понял. Если правильно, то можно примерно так
Код:
ADOQuery3.SQL.Text:=
'Update Phone2 set STREET= RIGHT(TRIM(STREET),2)+'+QuotedStr(' ') +'+LEFT(STREET,LEN(STREET)-3)';
ADOQuery3.ExecSQL;
Если править надо не всё, можно конечно добавить Where и написать условия для обновления

к примеру для страховки напишем что менять надо только те записи у которых 3 последних символа = [пробел + 2 любых символа]
(даже если надо заменять всё, чтоб второй раз не изменилось если запустить случайно), тогда так
Код:
ADOQuery3.SQL.Text:=
'Update Phone2 set STREET= RIGHT(TRIM(STREET),2)+'+QuotedStr(' ') +'+LEFT(STREET,LEN(STREET)-3)'+
'Where STREET like '+QuotedStr('% __')  ;
ADOQuery3.ExecSQL;

Последний раз редактировалось vovk; 01.07.2009 в 12:42.
vovk вне форума Ответить с цитированием
Старый 01.07.2009, 12:19   #22
bush007
Форумчанин
 
Аватар для bush007
 
Регистрация: 10.02.2009
Сообщений: 226
По умолчанию

sql:
Код:
update STREET set street='Пр Победы' where street='Победы проспект'
как вариант- 2 едита в форму включить, "заменить edit2 на edit1",тогда будет по нажатию кнопки:
sql:
Код:
update STREET set street=edit1.text where street=edit2.text
еще лучше сначала найти все записи с корявыми данными для визуального контроля и обновить их правильными данными:
типа select * from STREET where street=edit2.text
а потом уж и
Код:
update STREET set street=edit1.text where street=edit2.text
ЗЫ! я не в дельфях пишу, просто мысль направления говорю.

Ась?
следи за собой. Будь осторожен.
Не забывай свой первый "hello world".
bush007 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема поиск и замена текста(Delphi) KirkMETAL Помощь студентам 4 26.07.2010 08:41
Замена строки в DBGride artemavd БД в Delphi 9 04.04.2009 17:38
Поиск и замена текста в файле VAbramyak Общие вопросы Delphi 3 04.04.2007 20:20
поиск и замена текста в RichEdit Vasya Помощь студентам 11 16.03.2007 06:48
замена текста zetrix Microsoft Office Excel 0 31.10.2006 07:54