Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Обработчик ошибок / 10 сообщений из 10, страница 1 из 1
27.12.2012, 14:06
    #38094879
sorvall
sorvall
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработчик ошибок
друзья прошу помощи вот в каком деле, программа для ворд обращается в бд аксесса через sql запрос

SQLStatement:="SELECT " & (column) & " FROM " & (usetable) & " where (([" & pole_fil & "]='" & (filtercolumn) & "'))" & "",

если запрос пустой т.е. в бд нет искомой записи то выдает ошибку, как сделать обработчик ошибок что бы он просто пререходил в конец процедуры, и программа не вылетала??
спасибо за помощь!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.12.2012, 14:26
    #38094926
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработчик ошибок
Проверять EOF
Код-то где?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.12.2012, 15:04
    #38094996
krvsa
krvsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработчик ошибок
sorvallкак сделать обработчик ошибок что бы он просто пререходил в конец процедуры, и программа не вылетала??
Как вариант...

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub RunSQL()
   <некий_код>
   sql = Module2.getSQL("SQL")
   ' Включить обработку ошибок
   On Error GoTo ErrorRunSQL
   <некий_код>
   ' Отключить обработчик ошибок
   On Error GoTo 0
   MsgBox "Все."
Exit Sub
' Обработчик ошибок
ErrorRunSQL:
   MsgBox "Не корректный запрос " & vbCrLf & vbCrLf & sql, vbExclamation
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.12.2012, 17:14
    #38095237
sorvall
sorvall
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработчик ошибок
Shocker.Pro, ActiveDocument.Tables(2).Cell(1, 1).Range.InsertDatabase Format:=0, Style:=0, LinkToSource:=False, _
Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & ad_bd & "; Mode=Read;Extended Properties="""";Jet OLEDB:Engine Type=5;Jet OL" _
, SQLStatement:="SELECT " & (column) & " FROM " & (usetable) & " where (([" & pole_fil & "]='" & (filtercolumn) & "'))" & "", PasswordDocument:="", _
PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _
"", DataSource:=ad_bd1, From:=-1, To:=-1, _
IncludeFields:=True
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.12.2012, 18:06
    #38095312
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработчик ошибок
блин, а оформление кода где?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
ActiveDocument.Tables(2).Cell(1, 1).Range.InsertDatabase Format:=0, Style:=0, LinkToSource:=False, _
        Connection:= _
        "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & ad_bd & "; Mode=Read;Extended Properties="""";Jet OLEDB:Engine Type=5;Jet OL" _
        , SQLStatement:="SELECT " & (column) & " FROM " & (usetable) & " where (([" & pole_fil & "]='" & (filtercolumn) & "'))" & "", PasswordDocument:="", _
        PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _
        "", DataSource:=ad_bd1, From:=-1, To:=-1, _
        IncludeFields:=True
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.12.2012, 18:07
    #38095313
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработчик ошибок
Да, при таком варианте вставки используйте вариант krvsa
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.12.2012, 09:58
    #38095757
sorvall
sorvall
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработчик ошибок
Кусок кода побольше

For t = 1 To oTbl.Rows.Count - u + 1
filtercolumn = oTbl.Cell(u, 1).Range.Text ' получение значениия для фильтрации
filtercolumn = Left(filtercolumn, Len(filtercolumn) - 2) ' удаление ненужных символов
ActiveDocument.Tables(2).Cell(1, 1).Range.InsertDatabase Format:=0, Style:=0, LinkToSource:=False, _
Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & ad_bd & "; Mode=Read;Extended Properties="""";Jet OLEDB:Engine Type=5;Jet OL" _
, SQLStatement:="SELECT " & (column) & " FROM " & (usetable) & " where (([" & pole_fil & "]='" & (filtercolumn) & "'))" & "", PasswordDocument:="", _
PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _
"", DataSource:=ad_bd1, From:=-1, To:=-1, _
IncludeFields:=True
ActiveDocument.Tables(2).Rows(1).Delete
ActiveDocument.Tables(2).Select
Selection.Copy
ActiveDocument.Tables(2).Cell(1, 1).Select
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.12.2012, 11:30
    #38095901
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработчик ошибок
sorvall,

Ну прочтите уже FAQ по оформлению сообщений
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.12.2012, 11:40
    #38095923
sorvall
sorvall
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработчик ошибок
Shocker.Pro, Хорошо прошу прощения
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2013, 18:26
    #38142336
sorvall
sorvall
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обработчик ошибок
так что ребята кто поможет с обработчиком ошибок!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Обработчик ошибок / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 462ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2175026]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 38ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 325ms
total:  462ms
x
x
Закрыть


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