Имя: Пароль:
1C
1С v8
1C mysql
0 Anton_nikitin
 
08.11.12
10:04
Привет! Всем подключение к серверу mysql проходит.
Но запрос Select нет.
Процедура СоединениеССервером() Экспорт
   СтрокаПодключения = "
   |DRIVER={MySQL ODBC 5.1 Driver};
   |SERVER=****
   |DATABASE=***;
   |UID=***;
   |PWD=***;";
   Connection = Новый COMОбъект("ADODB.Connection");
   Command = Новый COMОбъект("ADODB.Command");
   RecordSet = Новый COMОбъект("ADODB.RecordSet");
   Попытка
       Connection.Open(СокрЛП(СтрокаПодключения));
       ПоказатьОповещениеПользователя("MySQL база подключена");
       Исключение
       ПоказатьОповещениеПользователя("Не могу подключиться к базе");
   КонецПопытки;
   Попытка
   Стр="Select username from auth_user";
   Connection.Execute(Стр);
   Сообщить("Запись добавлена!");
Исключение
   Сообщить("Че то не то!");
   КонецПопытки;
   КонецПроцедуры
1 Undefined vs NULL
 
08.11.12
10:05
радуемся
2 Anton_nikitin
 
08.11.12
10:08
чему?
3 YF
 
08.11.12
10:08
Попытку-то убери уже
4 cw014
 
08.11.12
10:10
(0) > Привет! Всем подключение к серверу mysql проходит.

Это ты похвастаться решил?
5 zulu_mix
 
08.11.12
10:17
Функция ПодключитьMySQL()
   Соединение = Новый COMОбъект("ADODB.Connection");
   СтрокаСоединения = "DRIVER=MySQL ODBC 5.1 Driver;SERVER=server;DataBase=database;UID=user;PWD=password;";
   Соединение.ConnectionString = СтрокаСоединения;
   Попытка
       Соединение.Open();
       Сообщить("MySQL база подключена!!!");
       Возврат Соединение
   Исключение
       Сообщить("Не могу подключиться к базе!!!");
       Возврат Неопределено
   КонецПопытки;
КонецФункции
///////////////////////////
Мускул = ПодключитьMySQL();
Стр="Select username from auth_user";
резалт=Мускул.Execute(Стр);
Мускул.Close();
6 cw014
 
08.11.12
10:18
Народ, вы еще задачу не знаете, а уже телепатруете. Он просто хотел похвастаться. Молодец