ФОРУМ "Предприниматель 4"

Файлы к фото хранятся на
C:\Predprinimatel\фото
Хочу поменять на
D:\Dropbox\Predprinimatel\фото

Возможно ли сделать это массово?

1. Чтобы не бояться ошибиться, в Сервис/Обслуживание/Профилактика_БД создать резервную копию - "Создать сейчас".

2. Скопировать текст ниже.
В программе нажать клавиши Ctrl+F10.
Вставить текст, нажать ОК.

Const F1 As String = "C:\Predprinimatel\фото"
Const F2 As String = "D:\Dropbox\Predprinimatel\фото"

Dim R As Predpr.TableSQL, Str As String
R = DB.OpenRecordset("SELECT Val_6 FROM ArticleParams WHERE Val_6 Is Not Null")
Do While Not R.EOF
Str = R("Val_6")
If Str Like F1 & "*" Then
R.Edit()
R("Val_6") = Str.Replace(F1, F2)
R.Update()
End If
R.MoveNext()
Loop
R.Close()

Все получилось, супер. Теперь не надо лишних телодвижений на двух компьтерах.

Скажите пожалуйста, как сделать аналогично, только фото размещено в папках по категориям?

Напишите на примере одного файла - какой путь сейчас, какой будет потом.

Простите пожалуйста, в первый раз указал не верные пути работа в ночные часы дает о себе знать..

Сейчас:
C:\Users\Николай\Documents\site_handloom\img\cat_1
C:\Users\Николай\Documents\site_handloom\img\cat_2
C:\Users\Николай\Documents\site_handloom\img\cat_3
...

Хотелось бы так:
C:\Users\Николай\Dropbox\site_handloom\img\cat_1
C:\Users\Николай\Dropbox\site_handloom\img\cat_2
C:\Users\Николай\Dropbox\site_handloom\img\cat_3
...

Если можно.

Не забыть про резервную копию, потом Ctrl+F10 и т.д.

Const F1 As String = "Documents"
Const F2 As String = "Dropbox"
Dim R As Predpr.TableSQL, Str As String
R = DB.OpenRecordset("SELECT Val_6 FROM ArticleParams WHERE Val_6 Is Not Null")
Do While Not R.EOF
Str = R("Val_6")
R.Edit()
R("Val_6") = Str.Replace(F1, F2)
R.Update()
R.MoveNext()
Loop
R.Close()

Спасибо!

Доброго времени суток. А можно ли сделать например одно фото для большого количества товара?? Типа выделить нужный товар и задать один рисунок. Спасибо

Как массово поменять код товара при выгрузке?

vadim писал(а):Как массово поменять код товара при выгрузке?

Поменять по какому принципу? При выгрузке откуда куда (может быть наоборот при импорте, например из Excel)?

Возникает ошибка - Таблица не имеет первичного ключа. Источник данных таблицы: SELECT Val_6 FROM ArticleParams WHERE Val_6 Is Not Null. Это лечится ? Спасибо!

Не помогло. возможно из-за того что у меня папка назначения - сетевой путь. Хотя по коду ошибки не похоже.

Да, прошу прощения, для SQL версии:

Const F1 As String = "Documents"
Const F2 As String = "Dropbox"
Dim R As Predpr.TableSQL, Str As String, TbStr As String
TbStr = "SELECT Val_6, counter FROM ArticleParams WHERE Val_6 Is Not Null"
R = DB.OpenRecordset(TbStr, , True, "ArticleParams")
Do While Not R.EOF
Str = R("Val_6")
R.Edit()
R("Val_6") = Str.Replace(F1, F2)
R.Update()
R.MoveNext()
Loop
R.Close()

Да, это сработало. Спасибо!