Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Kol9n99
0 / 0 / 1
Регистрация: 17.02.2014
Сообщений: 74
1

Отловить ошибку подключения к БД

24.09.2016, 06:16. Просмотров 318. Ответов 2
Метки нет (Все метки)

Здравствуйте.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public CON As New ADODB.Connection
Dim RS As New ADODB.Recordset
 
 
Private Function ОткрытьБД()
    CON.Open "DRIVER={MySQL ODBC 5.1 Driver};" & _
             "SERVER=localhost;" & _
             "DATABASE=test;" & _
             "USER=root;" & _
             "PASSWORD=1;" & _
             "OPTION=3;"
End Function
 
    
Public Sub ВыбратьЦеныИзБД()
    ОткрытьБД
    RS.Open "SELECT * FROM price", CON
    Range("A1").CopyFromRecordset RS
    RS.Close
    ЗакрытьБД
End Sub
Как мне отловить ошибку с подключением к бд?
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.09.2016, 06:16
Ответы с готовыми решениями:

Как отловить ошибку "5941: Запрашиваемый номер семейства не существует"?
Предыстория: Нужно было написать макрос, который сравнивает выбранные столбцы в разных таблицах,...

Почему моя функция даёт ошибку, после её подключения в надстройках?
Вот простая функция вычисления НДС, сделал больше для практики: Option Explicit Function...

Как отловить разрыв подключения [Socket]
Здравствуйте! Интересует как можно отловить момент, когда подключенный клиент разрывает соединение....

Как отловить исключение ошибки подключения DLL
Как отловить исключение ошибки подключения DLL Использую using MySql.Data.MySqlClient; Но если...

Отловить событие подключения/отключения USB-носителя
Может кто нибуть четко написать что и где вписать (читал что нада менять код в главном Program.сs,...

2
mobile
Эксперт MS Access
25557 / 13645 / 2930
Регистрация: 28.04.2012
Сообщений: 14,964
24.09.2016, 07:40 2
Свойство State объекта Connection содержит состояние объекта. Может принимать следующие значения:
КонстантаЗначение 
adStateClosed 0 объект закрыт
adStateOpen 1 объект открыт
adStateConnecting 2 объект соединяется
adStateExecuting 4 объект выполняет команду
adStateFetching8 объект выполняет выборку строк

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Public Sub ВыбратьЦеныИзБД()
    ОткрытьБД
    If CON.State=adStateOpen Then
       RS.Open "SELECT * FROM price", CON
       Range("A1").CopyFromRecordset RS
       RS.Close
       ЗакрытьБД
    Else
       msgbox "Ошибка подключения к серверу и базе данных"
    End If
End Sub
0
Kol9n99
0 / 0 / 1
Регистрация: 17.02.2014
Сообщений: 74
26.09.2016, 12:40  [ТС] 3
Соединение с базой все равно происходит.

Добавлено через 2 часа 12 минут
И вылазит ошибка. А мне этого надо избежать
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.09.2016, 12:40

Как отловить сообщение об отсутствии подключения к интернету?
Всем привет. Скачиваю файлы через поток и пользуюсь блоками try...except. Но вот хочу сообщение об...

Отловить событие подключения/отключения USB-носителя
Товарищи, поделитесь ,пожалуйста, работающими примерами по данному вопросу. И если есть какие то...

Отловить ошибку Http
Вот такая загогулина :ph34r: По WQO агент заполняет RTF поле Html кодом. В коде встречаются...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.