Код

  Stream=СоздатьОбъект("ADODB.Stream");
    Stream.Type=1;
    Stream.Open();
    Stream.LoadFromFile(ИмяФайла);
    Connection = СоздатьОбъект("ADODB.Connection");
	СтрокаСоединения = "Provider=SQLOLEDB.1;Password=" + СокрЛП(Pwd) +
				 ";Persist Security Info=False;User ID="+ СокрЛП(Uid) +
					   ";Initial Catalog="+ СокрЛП(Database) +
					   ";Data Source=" + СокрЛП(Server);
	Connection.Open(СтрокаСоединения);
    RecordSet = СоздатьОбъект("ADODB.Recordset");
    RecordSet.CursorLocation = 3;
    RecordSet.LockType = 2;
    Запрос = "
	|Select
	|	Fail
	|from
	|	DataFails
	|WHERE
	|	UserID = " + Число(ИДПольз) + "
	|";
    RecordSet.Open(Запрос, Connection);
    Если RecordSet.RecordCount=0 Тогда
	  RecordSet.AddNew();
    Иначе
	  RecordSet.MoveFirst();
    КонецЕсли;
    RecordSet.Fields("Fail").Value=Stream.Read(-1);
    RecordSet.Update();
    Stream.Close();		 

Код

   RecordSet.Fields("Fail").Value=Stream.Read(-1);
    RecordSet.Update();
 

Код

Функция ОтправитьФайлНаСервер(ИмяФайла)

	ТекстСкрипта = "
	|Function SaveToSQL
	|On Error Resume Next
    |Set Stream=CreateObject(""ADODB.Stream"")
    |Stream.Type=1
    |Stream.Open()
    |Stream.LoadFromFile(""" + ИмяФайла + """)
    |Set Connection=CreateObject(""ADODB.Connection"")
    |Connection.Open(""Provider=SQLOLEDB.1;Password=" + СокрЛП(Pwd) + ";Persist Security Info=False;User ID=" + СокрЛП(Uid) +
				";Initial Catalog=" + СокрЛП(Database) + ";Data Source=" + СокрЛП(Server) + """)
    |Set RecordSet=CreateObject(""ADODB.Recordset"")
    |RecordSet.CursorLocation=3
    |RecordSet.LockType=2
    |qvery =""Select * from dbo.DataFails WHERE UserID = " + Число(ИДПольз) + """
    |RecordSet.Open qvery, Connection
    |If RecordSet.RecordCount=0 Then
    |    RecordSet.AddNew()
    |Else
    |    RecordSet.MoveFirst()
    |End If
    |RecordSet.Fields(""Fail"").Value=Stream.Read()
    |RecordSet.Fields(""UserID"").Value=" + Число(ИДПольз) + "
    |RecordSet.Update()
    |Stream.Close()
	|If Err.Number <> 0 Then
	|	SaveToSQL = 0
	|	Err.Clear
	|Else
	|	SaveToSQL = 1
	|End If
	|
	|End Function
	|";

	VBS=СоздатьОбъект("MSScriptControl.ScriptControl");
	VBS.Language="vbscript";
	VBS.Timeout=-1;
	VBS.AddCode(ТекстСкрипта);
	Рез = VBS.Run("SaveToSQL");

	Возврат Рез;

КонецФункции //  

Код

Функция ПолучитьФайлССервера(ИмяФайла)


	Если Прав(КаталогИБ(),1) = "\" Тогда
		мКаталогИБ = КаталогИБ();
	Иначе
		мКаталогИБ = КаталогИБ() + "\";
	КонецЕсли;

	Если ФС.СуществуетФайл(мКаталогИБ + "Obmen") = 0 Тогда
		ФС.СоздатьКаталог(мКаталогИБ + "Obmen");
	КонецЕсли;

	КаталогОбмена = мКаталогИБ + "Obmen\";
	ПолноеИмяФайла = КаталогОбмена + Строка(ИДПольз) + ИмяФайла;

	Если ФС.СуществуетФайл(ПолноеИмяФайла) <> 0 Тогда
		ФС.УдалитьФайл(ПолноеИмяФайла);
	КонецЕсли;

	ТекстСкрипта = "
	|Function LoadFromSQL
	|On Error Resume Next
    |Set Stream=CreateObject(""ADODB.Stream"")
    |Stream.Type=1
    |Stream.Open()
    |Set Connection=CreateObject(""ADODB.Connection"")
    |Connection.Open(""Provider=SQLOLEDB.1;Password=" + СокрЛП(Pwd) + ";Persist Security Info=False;User ID=" + СокрЛП(Uid) +
				";Initial Catalog=" + СокрЛП(Database) + ";Data Source=" + СокрЛП(Server) + """)
    |Set RecordSet=CreateObject(""ADODB.Recordset"")
    |Qvery =""Select * from dbo.DataFails WHERE UserID = " + Число(ИДПольз) + """
	|RecordSet.Open Qvery, Connection
    |RecordSet.MoveFirst()
    |Stream.Write(RecordSet.Fields(""Fail"").Value)
    |Stream.SaveToFile(""" + ПолноеИмяФайла + """)
	|Stream.Close()
	|If Err.Number <> 0 Then
	|	LoadFromSQL = 0
	|	Err.Clear
	|Else
	|	LoadFromSQL = """ + ПолноеИмяФайла + """
	|End If
	|
	|End Function
	|";

	VBS=СоздатьОбъект("MSScriptControl.ScriptControl");
	VBS.Language="vbscript";
	VBS.Timeout=-1;
	VBS.AddCode(ТекстСкрипта);
	Рез = VBS.Run("LoadFromSQL");

	Возврат Рез;

КонецФункции // ПолучитьФайлССервера 

Код

рс=СоздатьОбъект("ODBCRecordset");
рс.Подготовить("
|insert into my_table
|(data) values(?)
|");
рс.ДобПараметр(1,19,0,0);
Данные=СоздатьОбъект("BinaryData");
Данные.ЗагрузитьИзФайла(Файл);
рс.УстПараметр(1,Данные);
рс.ВыполнитьИнструкцию();
 

Код

Данные=rc.ПолучитьЗначение("Архив");