1. Скопировать текст ниже.
2. В программе нажать клавиши Ctrl+F10.
3. Вставить текст, изменить старое название и новое название на свои реальные, нажать ОК.
- Код: Выделить всё
Const OldName As String = "Supershop.com.ua"
Const NewName As String = "Megashop.com.ua"
Dim R As Predpr.TableSQL, Str As String, TbStr As String
TbStr = "SELECT Val_3, counter FROM ArticleParams WHERE Val_3 Like '%" & OldName & "%'"
R = DB.OpenRecordset(TbStr, , True, "ArticleParams")
Do While Not R.EOF
Str = R("Val_3")
R.Edit()
R("Val_3") = Str.Replace(OldName, NewName)
R.Update()
R.MoveNext()
Loop
R.Close()
Или загрузить маленький модуль (вложение внизу), извлечь из него файл в папку программы,
в главном окне программы появится соотв. кнопка (если не появится, щелкнуть там на пустом фоне ПКМ - "Создать ярлык"),
нажать ее - все будет понятно.
- 1.png (7.92 КБ) Просмотров: 875