СтрокаКоннекта = "DRIVER=MySQL ODBC 5.1 Driver;SERVER=localhost;USER = scale;DATABASE=scale;PASSWORD = scale;OPTION=3;";
Connection = СоздатьОбъект("ADODB.Connection");
Connection.Open(СтрокаКоннекта);
Запись = Connection.execute("Select * from weighing where Invoice = 123 LIMIT 1");
Если не (Запись.EOF()=0) Тогда
СоздатьТТН(Connection);
Иначе
Пока Запись.EOF()=0 Цикл
У меня с драйвером 5-й версии тоже не получалось. Скачай 3.51
Я делаю так:
DataBase = СоздатьОбъект("ODBCDatabase");
Если DataBase.Соединение("DRIVER={MySQL ODBC 3.51 Driver}; SERVER="+id_server+"; DATABASE="+id_database+"; USER="+id_user+"; PASSWORD="+id_password+"; OPTION=3;") = 0 Тогда
СообщитьС("Неудалось подключиться к базе сайта, проверьте наличие драйвера, адрес сервера и наличие связи!!!", "!!!");
КонецЕсли;
рс = СоздатьОбъект("ODBCRecordset");
рс.SetDatabase(DataBase);
ТекстЗапроса="
|SELECT
| TIME as Hour,
| ROUND(SUM(bytes)*11/3600/1024/1024,3) as MBit
|FROM collected
|WHERE date BETWEEN CAST(:НачДата as DATE) AND CAST(:КонДата as DATE)
|GROUP by Hour
|";
рс.УстановитьТекстовыйПараметр("НачДата", ВыбНачПериода);
рс.УстановитьТекстовыйПараметр("КонДата", ВыбКонПериода);
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший