|
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
|
Народ, вы еще задачу не знаете, а уже телепатруете. Он просто хотел похвастаться. Молодец
|
|