Код

	sql = СоздатьОбъект("ODBCDatabase");
	Имя0 = "DragNet";
	Фл1 = sql.Соединение("DSN=" + Имя0 + ";");
	Если Фл1 = 0 Тогда
		Сообщить("Не смогли открыть DSN = " + Имя0);
		Сообщить("Ошибка = " +  sql.ПолучитьОписаниеОшибки() );
	Иначе
		sql.УстТолькоЧтение(1);
	КонецЕсли;
	rc = СоздатьОбъект("ODBCRecordSet");
	rc.УстБД(sql);
...
 

Код

	// ....
		    DB = СоздатьОбъект("ODBCDatabase");
	DB.Соединение("DRIVER={MySQL ODBC 5.1 Driver}; SERVER=192.168.111.5; PORT=3306; DATABASE=testbdmy; USER=userrw; PASSWORD=qwerty; OPTION=3;");
	Сообщить(DB.ПолучитьОписаниеОшибки());
		    // ...
 

Код

	  DB.Соединение("DSN=mysqlconnect");
 

Код

	Сообщить("Третий тест");

	//Тестируем установку параметров соединения
	клМускул.СтрокаСоединения = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;
	|Port=3306;Database=_1c;User=_1c_user; Password=_1c_pass;
	|Option=3;";
	Результат = клМускул.СтрокаСоединения;
	Сам().ПроверитьРавенство(Результат,"Driver={MySQL ODBC 3.51 Driver};Server=localhost;
	|Port=3306;Database=_1c;User=_1c_user; Password=_1c_pass;
	|Option=3;");

	//Четвертый тест
	Сообщить("Четвертый тест");
	Результат = клМускул.Соединение();
	Сам().ПроверитьРавенство(Результат,1);