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