Имя: Пароль:
1C
 
Нужно соединится для выгрузки в другую SQL базу
,
0 vadiusias
 
23.06.16
13:55
//StorageDiscountCard
    //подключение    
    Сервер = "fem-headsql\headsql";
    База = "Discount";
    Пользователь = "ms";
    Пароль = "ms";
    
    SQLConnection = Неопределено;
    serverSQL = Новый ComОбъект("SQLDMO.SQLServer2");
    serverSQL.LoginTimeout = 180;
    serverSQL.AutoReConnect = 1;
    serverSQL.LoginSecure = 0;
    serverSQL.QuotedIdentifier = 1;
    
    Попытка
        serverSQL.Connect(Сервер, Пользователь, Пароль);  
    Исключение
        Сообщить(ОписаниеОшибки(), "!");
        Сообщить("Подключение к серверу отсутствует");
        Возврат;
    КонецПопытки;                    
    // конец подключения
1 vadiusias
 
23.06.16
13:55
не проходит
2 vadiusias
 
23.06.16
13:57
установлен 12 сервер SQL
3 pessok
 
23.06.16
13:59
что и куда не проходить? почему не через ADO?
4 vadiusias
 
23.06.16
14:02
5 vadiusias
 
23.06.16
14:03
Можете пример по ADO?
6 vadiusias
 
23.06.16
14:03
pessok ?
7 КМ155
 
23.06.16
14:04
(5) форум должен угадать, что ты будешь делать на сиквеле ?
8 vadiusias
 
23.06.16
14:04
(3) нужен пример строчной прописи
9 pessok
 
23.06.16
14:04
ДополнительныеПараметры = "OPTION=3";
    ИмяСервера = "srv_name";
    ИмяПользователя = "sss";
    Пароль = "sss";
    ИмяБазы = "sss";
    Порт = "3306";
    
    стрПодключения =     
    "DRIVER={MySQL ODBC 5.1 Driver};";
    стрПодключения = стрПодключения + ДополнительныеПараметры + ";";
    стрПодключения = стрПодключения + "DATABASE=" + ИмяБазы + ";";
    стрПодключения = стрПодключения + "PORT=" + Порт + ";";
    
    стрПодключения = стрПодключения + "SERVER=" + ИмяСервера + ";";
    стрПодключения = стрПодключения + "UID=" + ИмяПользователя + ";";
    стрПодключения = стрПодключения + "PWD=" + Пароль;
    
    Соединение = Новый COMОбъект("ADODB.Connection");
    Соединение.ConnectionTimeOut = 600;
    Соединение.CursorLocation = 3;
    Попытка          
        Соединение.Open(стрПодключения);
    Исключение
        Соединение = Неопределено;    
    КонецПопытки;
    
    Возврат Соединение;
10 vadiusias
 
23.06.16
14:05
(7) вывгрузка карточек
11 vadiusias
 
23.06.16
14:05
(9) спасибо
12 Azverin
 
23.06.16
14:05
13 vadiusias
 
23.06.16
14:07
"DRIVER={MySQL ODBC 5.1 Driver};"; ? в моем случае микрософт sql. Есть универсальная пропись?
14 pessok
 
23.06.16
14:07
только ODBC драйвер скачай
15 vadiusias
 
23.06.16
14:07
(12) спасибо
16 vadiusias
 
23.06.16
14:10
Там последний Драйвер Microsoft® ODBC 11 для SQL Server® — Windows?
получится: DRIVER={MySQL ODBC 11 Driver};"; ?
17 Ёпрст
 
23.06.16
14:12
(16) зачем тебе My sql ?
втфыкай нормальную строку соединения и привет
18 vadiusias
 
23.06.16
14:17
(17) Нормальная? Это как?
19 КМ155
 
23.06.16
14:18
20 Ёпрст
 
23.06.16
14:19
СоединениеБазы = Новый COMОбъект("ADODB.Connection");
    driver="SQL Server";
    server="fem-headsql\headsql";
    login="ms";
    password="ms";
    base="ИмяБазыТвоей";
    ConnectionString = "driver={"+driver+"}; Server="+server+"; uid="+login+"; Pwd="+password+"; Database ="+base+";";
    Попытка
        СоединениеБазы.Open(ConnectionString);
    Исключение
    КонецПопытки;
    Command = Новый COMОбъект("ADODB.Command");
    Command.ActiveConnection = СоединениеБазы;
    ТекстЗапроса = "
    |Select * .....
    
    |";
    Command.CommandText = ТекстЗапроса;
    RecordSet = Command.Execute();  
    Пока RecordSet.EOF() = 0 Цикл
        Сообщить(RecordSet.Fields.Item("ИмяПоляИзЗапроса").Value);
        RecordSet.MoveNext();
    КонецЦикла;
    
    RecordSet.Close();
21 КМ155
 
23.06.16
14:21
(20) найди три отличия:
ConnectString = "Provider=SQLOLEDB;" & _
                "Data Source=" & ServerName & _
                ";Initial Catalog=" & DSN & _
                ";UID=" & UID & ";PWD=" & PWD
22 vadiusias
 
23.06.16
14:26
(20) пробую . Мне надо потом еще все в регламент загнать.