Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
29 мар 2024, 18:22

Запись в SQL через форму внешней обработки

Автор Никитa, 21 июл 2014, 08:38

0 Пользователей и 1 гость просматривают эту тему.

Никитa

Подскажите пожалуйста новичку что делаю не так, (Нужно записывать из формы внешн. обработки в SQL )  Может примеры какие-нибуть подскажете ?

//СПЕРВА ПОДКЛЮЧЕНИЯ К БАЗЕ
&НаКлиенте
Процедура Записать(Команда)
ЗаписатьНаСервере();
КонецПроцедуры

&НаСервере
Процедура ЗаписатьНаСервере()


    СтрокаПодключения =
"Provider=sqloledb;
|User ID=nikita;
|Pwd=12345;
|Data Source=sql.tk-chel.ru;
|Initial Catalog= SVCTEST";//наша database

Connection  = Новый COMОбъект("ADODB.Connection");
Command  = Новый COMОбъект("ADODB.Command");
RecordSet  = Новый COMОбъект("ADODB.RecordSet");
Попытка
  Connection.Open(СокрЛП(СтрокаПодключения));
  Command.ActiveConnection   = Connection;
  //Проверка на наличие  database
  Command.CommandText = "select * from dbo_MoveH where name = 'SVCTEST'";
  RecordSet = Command.Execute();
    Если RecordSet.EOF() И RecordSet.BOF() Тогда
   //нет записей, нет такой database, нужно создать;
   Возврат;
  КонецЕсли;
 
  RecordSet.MoveFirst();
Исключение
  Сообщить(ОписаниеОшибки());
КонецПопытки;

   // ДАЛЬШЕ ЗАПИСЬ
   


ФайлДБФ = Новый XBase(ВнешниеИсточникиДанных.ТК.Таблицы.dbo_MoveH);
ФайлДБФ.Кодировка=КодировкаXBase.OEM;
КолЗаписей = ФайлДБФ.КоличествоЗаписей();
ФайлДБФ.Первая();

Для сч = 1 По КолЗаписей Цикл
Command.CommandText =
"USE SVCTEST
|INSERT INTO dbo_MoveH  VALUES(   
|'"+12344+"',
|'"+4 +"',
|'"+Объект.Контакт+"',
|'"+Объект.Телефон+"',
|'"+Объект.Компания+"',
|'"+Объект.Страна+"',
|'"+Объект.Регион+"',
|'"+Объект.Город+"',
|'"+Объект.Улица+"',
|'"+Объект.Дом+"',
|'"+Объект.Оффис+"',
|'"+Объект.КраткоеОписание+"',
|'"+Объект.ТипОплаты+"',
|)";
Command.Execute();
ФайлДБФ.Следующая();
КонецЦикла;

ФайлДБФ.ЗакрытьФайл();
Command = Неопределено;
Connection = Неопределено;
RecordSet = Неопределено;
//Соединение.Close();

КонецПроцедуры


Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск