ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обработчик ошибок
9 сообщений из 9, страница 1 из 1
Обработчик ошибок
    #38846029
beleckiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
beleckiy
Гость
Доброго времени.
Преподавать дал задание сделать обработчик ошибок при подключении база данных.
Здесь идет подключение:
Код Visual Basic
Код: vbnet
1.
2.
3.
4.
5.
6.
       Public Sub Podk()
       Set Cn = New ADODB.Connection
       str = "Provider=Microsoft.ACE.OLEDB.12.0; data Source=" & App.Path & "\Database41.accdb;"
       Cn.ConnectionString = str
       Cn.Open
       End Sub


Модератор: Учимся использовать тэги оформления кода - FAQ

Как он сказал, при не правильном вводе имени файла,тобишь не Database41,а к примеру Databsae41,этот обработчик и давал о себе знать, мол не та база.
Почитал форум,что то в голову дало,но реализация страдает.
...
Рейтинг: 0 / 0
29.12.2014, 19:41
| Ответить | Цитировать | Написать  
Обработчик ошибок
    #38846034
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
beleckiyне правильном вводе имени файлаа тут, собственно, ввод имени файла отсутствует - он жестко зашит в коде.beleckiyмол не та базаа откуда обработчик узнает, та база или не та?

beleckiyобработчик ошибок при подключении база данных.может все таки речь именно об этом, а не о правильном вводе имени? Тогда читай хелп по On Error, там и примеры нужные есть.
...
Рейтинг: 0 / 0
29.12.2014, 19:46
| Ответить | Цитировать | Написать  
Обработчик ошибок
    #38846041
beleckiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
beleckiy
Гость
Shocker.Proа тут, собственно, ввод имени файла отсутствует - он жестко зашит в коде
Я про код и писал,если в коде будет написано неверное имя файла.
Вместо:
Код: vbnet
1.
....data Source=" & App.Path & "\Database41.accdb;"


Случайно так...
Код: vbnet
1.
....data Source=" & App.Path & "\Database1.accdb;"


С подстановкой One Error идет такая ошибка: runtime error 3709



Shocker.Proможет все таки речь именно об этом, а не о правильном вводе имени? Тогда читай хелп по On Error, там и примеры нужные есть.
Примеров нужных не нашел.У меня открыто 28 вкладок с VB,более менее подходящего нет...
...
Рейтинг: 0 / 0
29.12.2014, 20:04
| Ответить | Цитировать | Написать  
Обработчик ошибок
    #38846042
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Потому что, видимо, нужно использовать не One Error, а On Error
О каких вкладках идет речь? Хелп - он и есть хелп, там нет 28 вкладок

Если выложишь код, то можно будет подсказать, что ты написал неправильно, не заставляй гадать
...
Рейтинг: 0 / 0
29.12.2014, 20:09
| Ответить | Цитировать | Написать  
Обработчик ошибок
    #38846045
beleckiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
beleckiy
Гость
Shocker.ProПотому что, видимо, нужно использовать не One Error, а On Error
Это моя опечатка,не нашел кнопки редактировать пост..
Shocker.ProО каких вкладках идет речь? Хелп - он и есть хелп, там нет 28 вкладок
Это я к тому, что перерыл весь интернет в поисках хоть чего то похожего..Я написал это 3-4 форумах, но кроме как "Читай форум все есть" никто ничего не сказал...
Shocker.ProЕсли выложишь код, то можно будет подсказать, что ты написал неправильно, не заставляй гадать
Проблема в том, то кроме того, что есть в первом сообщении ничего нет.
...
Рейтинг: 0 / 0
29.12.2014, 20:17
| Ответить | Цитировать | Написать  
Обработчик ошибок
    #38846047
beleckiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
beleckiy
Гость
Хотя нет, вру..Есть вот это
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Sub Podk()
1 On Error GoTo obroshibok
2 Set Cn = New ADODB.Connection
3 str = "Provider=Microsoft.ACE.OLEDB.12.0; data Source=" & App.Path & "\Database1.accdb;"
4 Cn.ConnectionString = str
5 Cn.Open
6 ExitSub
7 obroshibok:
8 MsgBox "возникла ошибка"
9 Resume
10 End Sub
...
Рейтинг: 0 / 0
29.12.2014, 20:22
| Ответить | Цитировать | Написать  
Обработчик ошибок
    #38846077
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
В принципе, правильнее проверять наличие самого файла БД по указанному пути:
Код: vbnet
1.
2.
3.
4.
If dir(App.Path & "\Database41.accdb",16) = "" then
    msgbox "А базу куда дели? Я так подключаться НЕ БУДУ!"
    exit sub
end if
...
Рейтинг: 0 / 0
29.12.2014, 21:25
| Ответить | Цитировать | Написать  
Обработчик ошибок
    #38846321
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
beleckiy
Код: vbnet
1.
ExitSub

а это что такое, опять опечатка?
можно выложить код в натуральном виде, в том, который вызывает у тебя проблему, а не какой-то сомнительный копипаст, который ты не проверял, не запускал?

beleckiyХотя нет, вру..Есть вот этону а в чем проблема-то, никак понять не могу?
...
Рейтинг: 0 / 0
30.12.2014, 10:54
| Ответить | Цитировать | Написать  
Обработчик ошибок
    #38847562
Фотография i45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
i45
Участник
Shocker.Pro,

Студент не умеет грамотно писать, какой ему ещё VB; проблема в этом.
...
Рейтинг: 0 / 0
02.01.2015, 04:49
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обработчик ошибок
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38846077&tid=2156076]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 43ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 309ms
total:  440ms
созд. / загр.: 440ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]