Форум на Kuban.ru (http://forums.kuban.ru/)
-   Территория 1С (http://forums.kuban.ru/f1040/)
-   -   SQL и 1c (http://forums.kuban.ru/f1040/sql_i_1c-3485501.html)

AER 27.12.2012 08:51

SQL и 1c
 
Подскажите как можно перенести картинки (фото) из базы SQL (двоичный тип) в 1с 8.2.
Хотя бы откуда копать.
Через внешние источники данных перенес только информацию, а с картинками никак.
Или хотя бы отошлите, где почитать.
Спасибо.

angro 27.12.2012 10:29

ну сохрани их как картинки, и запиши в 1с потом

AER 27.12.2012 10:43

(1) А через АДО никак нельзя?

bma1 27.12.2012 11:14

2(2) можно. но в каком виде их потом получишь из 1с - никто не знает...

который не честный 28.12.2012 09:38

Через АДО можно в 2 действия(про напрямую не знаю, хотя можно попробывать то, что должно сохраниться в файл передать на загрузку)
1.Выгрузил файл из 7
2.Загрузил файл в 8
И скорее всего, в vbs.

который не честный 28.12.2012 09:44

Sub WriteFile (FileName,Stream)
Dim BinaryStream
adSaveCreateOverWrite = 2
adTypeBinary = 1
Set BinaryStream = CreateObject("ADODB.Stream")
BinaryStream.Type = adTypeBinary
BinaryStream.Open
BinaryStream.Write Stream
BinaryStream.SaveToFile FileName, adSaveCreateOverWrite
End Sub

WriteFile FileName, Read.Fields("File").Value

Function ReadBinaryFile(FileName)
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
BinaryStream.Type = 1
BinaryStream.Open
BinaryStream.LoadFromFile FileName
ReadBinaryFile = BinaryStream.Read
End Function

F=ReadBinaryFile(wscript.arguments(0))
Set Send=CreateObject("ADODB.RecordSet")
Send.Open "Select * From FileToM",Connect,,3
Send.AddNew
Send.Fields("F").Value=F
Send.UpDate

Примерно так.

AER 28.12.2012 13:50

(5)Спасибо.


Текущее время: 13:42. Часовой пояс GMT +3.