• 7401
  • 5
  • 3
Нравится блог?
Подписывайтесь!

Коннекты к базам данных

Мне тут понадобилось приконектиться к локальной базе данных в vb.net 2005 (поддержка чужого кода дело страшное) - буду юзать модули, но я нашел немного больше, чем мне нужно, нет носителя с собой никакого, кидать себе на почту вломы, тут прожженый IE - который как сито дыряв и вообще. Вспомнил о блогах. Пишу сам себе.

Модуль Module1.vb, нужный мне для коннекта к базе данных выглядит примерно так:

Imports System.Data.OleDb 'тут я импортирую необходимые средства для работы с бд
Imports System.Data.Odbc 'тоже самое только для mysql
Imports System

Module AConnectionsModule
Public AccessConnection As OleDbConnection 'Ole
Public MySQLConnection As OdbcConnection 'Odbc

Public Function StringConnectToBDAccess(ByVal tProvider As String, ByVal tUserID As String, _
ByVal tPassword As String, ByVal tDataSource As String, _
ByVal tMode As String) As String
'Формируем строку соединения с Access
StringConnectToBDAccess = "Provider=" & tProvider & ";" & _
"User ID=" & tUserID & ";" & _
"Password=" & tPassword & ";" & _
"Data Source=" & tDataSource & ";" & _
"Mode=" & tMode & ";"
End Function

Public Function ConnectToBDAccess(ByVal MyConnectionString As String, _
ByRef StatusConnection As String) As Boolean
'Обработка исключения
Try
'Создадим
AccessConnection = New OleDbConnection(MyConnectionString)
'Открываем БД
AccessConnection.Open()
'Статус соединения
StatusConnection = "Connection State::" & MySQLConnection.State.ToString
'Возврат положительного результата
ConnectToBDAccess = True

'Исключение OLEDB
Catch MyOdbcException As OleDbException
'Статус соединения (сообщение об ошибке)
StatusConnection = MyOdbcException.ToString
'Возврат отрицательного результата
ConnectToBDAccess = False

'Исключение по ошибок программы
Catch MyException As Exception
'Статус соединения (сообщение об ошибке)
StatusConnection = MyException.ToString
'Возврат отрицательного результата
ConnectToBDAccess = False

End Try
End Function

Public Function StringConnectToBDMySQL(ByVal tDriver As String, ByVal tServer As String, _
ByVal tDB As String, ByVal tUID As String, ByVal tPass As String, _
ByVal tOpt As String) As String
'Формируем строку соединения с сервером MySQL (в примере MyODBC 3.51)
StringConnectToBDMySQL = "DRIVER=" & tDriver & ";" & _
"SERVER=" & tServer & ";" & _
"DATABASE=" & tDB & ";" & _
"UID=" & tUID & ";" & _
"PASSWORD=" & tPass & ";" & _
"OPTION=" & tOpt & ";"
End Function

Public Function ConnectToBDMySQL(ByVal MyConnectionString As String, _
ByRef StatusConnection As String) As Boolean
'Обработка исключения
Try
'Создадим
MySQLConnection = New OdbcConnection(MyConnectionString)
'Открываем БД
MySQLConnection.Open()
'Статус соединения
StatusConnection = "Connection State::" & MySQLConnection.State.ToString
'Возврат положительного результата
ConnectToBDMySQL = True

'Исключение ODBC
Catch MyOdbcException As OdbcException
'Статус соединения (сообщение об ошибке)
StatusConnection = MyOdbcException.ToString
'Возврат отрицательного результата
ConnectToBDMySQL = False

'Исключение по ошибок программы
Catch MyException As Exception
'Статус соединения (сообщение об ошибке)
StatusConnection = MyException.ToString
'Возврат отрицательного результата
ConnectToBDMySQL = False

End Try
End Function

End Module

jillsmitt
10 октября 2010, 8:23
827

Загрузка...
Loading...

Комментарии

Оставьте свой комментарий

Спасибо за открытие блога в Yvision.kz! Чтобы убедиться в отсутствии спама, все комментарии новых пользователей проходят премодерацию. Соблюдение правил нашей блог-платформы ускорит ваш переход в категорию надежных пользователей, не нуждающихся в премодерации. Обязательно прочтите наши правила по указанной ссылке: Правила

Также можно нажать Ctrl+Enter

Популярные посты

Почему я больше не поеду отдыхать на северное побережье Алаколя

Почему я больше не поеду отдыхать на северное побережье Алаколя

Нам казалось, что на Алаколе мы сможем хорошо отдохнуть, расслабиться и набраться сил на весь следующий год. Вроде, и достаточно бюджетно, и не так далеко.
RisKaS
26 июня 2017 / 18:05
  • 8258
  • 38
ЭКСПО-2017. Каким бы правдоподобным ни казался обман, он всё равно раскроется

ЭКСПО-2017. Каким бы правдоподобным ни казался обман, он всё равно раскроется

Изначально про ЭКСПО было очень много слухов. Лишь только усаживаясь в поезд «тальго» до Астаны, мы уже были изрядно загружены этими слухами. Кто их запускал, для чего – отдельный вопрос..
openqazaqstan
27 июня 2017 / 15:45
  • 7743
  • 41
Эксперимент. Два парня и девушка в поисках лучшего донера в Астане

Эксперимент. Два парня и девушка в поисках лучшего донера в Астане

Нас трое: девушка и двое парней. Мы обошли 7 заведений, где продают донеры. Оценивали по 10-бальной шкале только по вкусовым качествам донера. Никто нам за рекламу не платил, бесплатными донерами не кормил!
nargiz_15
27 июня 2017 / 10:08
  • 6538
  • 15
На каких улицах города Алматы вы точно попадете в «пробку»

На каких улицах города Алматы вы точно попадете в «пробку»

Строятся пешеходные и велосипедные дорожки, трамвайные пути "сносят", а главная традиция нашего мегаполиса - замена подземных коммуникаций и в этом году не была нарушена.
beoblod
26 июня 2017 / 17:22
  • 4227
  • 3
Где отлично провести летние месяцы с пользой для здоровья и кошелька?

Где отлично провести летние месяцы с пользой для здоровья и кошелька?

Я обратил внимание, что в случае с уникальными природными зонами Павлодарской области применима поговорка: «что имеем – не ценим», а ведь они легко могли бы стать международными курортами.
Muzalevskiy
23 июня 2017 / 22:57
  • 3651
  • 11
Это «колхозное сооружение» вредит имиджу города. Я, как алматинка, против!

Это «колхозное сооружение» вредит имиджу города. Я, как алматинка, против!

Почему эту трубу не проложили под землей? Она обезображивает улицу, как дикий багровый шрам от раны, зашитой равнодушным, криворуким и ленивым хирургом, обезображивает лицо.
ValentinaVladimirska
23 июня 2017 / 12:10
  • 2931
  • 45
На Иссык-Куль через Юг. Не бойтесь ехать в Киргизию своим ходом!

На Иссык-Куль через Юг. Не бойтесь ехать в Киргизию своим ходом!

Очень живописная и бюджетная поездка вдоль всего берега по Иссык-Кулю! Мы, две обаятельные девушки, поехали вдвоем, подготовленные к совершенно автономной жизни в палатке, и ни разу ничего не...
yelenasergiyenko
22 июня 2017 / 13:20
  • 3151
  • 23
Неравенство в Казахстане – доходы самых богатых граждан в 6 раз больше заработка бедных

Неравенство в Казахстане – доходы самых богатых граждан в 6 раз больше заработка бедных

Почти 46% расходов казахстанцев уходит на продукты. При этом бедные казахстанцы стали есть меньше, богатые - больше. Инфографика
ZonaKZ
25 июня 2017 / 9:06
  • 2590
  • 23
Плохой подарок ко Дню журналиста. Новости 2012 года повторно «взрывают Казнет»

Плохой подарок ко Дню журналиста. Новости 2012 года повторно «взрывают Казнет»

В последние дни целый ряд уважаемых казахстанских ресурсов перепечатали как якобы свежую новость старую статью за апрель 2012 года
openqazaqstan
вчера / 11:14
  • 2179
  • 18