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

jillsmitt 2010 M10 9
869
0
0
0

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

Мне тут понадобилось приконектиться к локальной базе данных в 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

Оцените пост

0