2
Karavanych
22.03.13
✎
08:50
|
Функция ВыполнитьСоединение() экспорт
СоединениеБазы = Новый COMОбъект("ADODB.Connection");
driver="Надо гуглить какой драйвер для MySQL";
server="192.168.0.2";
login="sa";
password="supermegapassword";
base="SkidkySertificaty";
ConnectionString = "driver={"+driver+"}; Server="+server+"; uid="+login+"; Pwd="+password+"; Database ="+base+";";
успешныйконект=ложь;
СоединениеБазы.Open(ConnectionString);
успешныйконект=истина;
Сообщить("Соединились");
возврат СоединениеБазы;
КонецФункции
Процедура ВыгружаемСтроку(ЗадСтрокаТЗ)
//строим примерно такой запроса на базе insert и выгружаем строку, параметры естественно долны быть из нужной тебе ТЗ.
querry= "USE ["+base+"]
| INSERT INTO dbo."+tablename+" VALUES (
|'"+ЗадКарта.КодКарты+"',
|'"+Лев(ЗадКарта.Наименование,50)+"',
|'"+Лев(ФИО.Фамилия,50)+"',
|'"+Лев(ФИО.Имя,50)+"',
|'"+Лев(ФИО.Отчество,50)+"',
|"+ТекстНакопл+",
|"+?(ЗадКарта.ПометкаУдаления=Истина,"1","0")+",
|'"+ДатаРождения+"',
|'"+Телефон+"',
|'"+ТекДатаВФормате+"',
|"+СхемаНакоплений+",
|'"+tablename+"'
|)";
Command.CommandText = query; // текст надо фильтровать на недопустимые символы
RecordSet = Новый COMОбъект("ADODB.RecordSet"); // Подготавливаем записи
RecordSet = Command.Execute();
КонецПроцедуры
Процедура ГлавнаяПроцедура()
Для каждого строкаТЗ из ТЗ цикл
ВыгружаемСтроку(строкаТЗ );
КонецЦикла;
КонецПроцедуры
|
|
7
Karavanych
22.03.13
✎
08:59
|
а и еще...я там вот этот кусок забыл, до отправки запроса.
у меня там Command неопределено.
СоединениеБазы=ВыполнитьСоединение();
Если СоединениеБазы=неопределено тогда возврат; КонецЕсли;
Command = Новый COMОбъект("ADODB.Command");
Command.ActiveConnection = СоединениеБазы;
|
|