---
title: "Коннекты к базам данных"
description: "Мне тут понадобилось приконектиться к локальной базе данных в vb.net 2005 (поддержка чужого кода дел..."
author: "jillsmitt"
published: "2010-10-09T20:23:13+00:00"
modified: "2010-10-09T20:23:13+00:00"
locale: "ru"
canonical_url: "https://yvision.kz/post/konnekty-k-bazam-dannyh-78458"
markdown_url: "https://yvision.kz/post/konnekty-k-bazam-dannyh-78458/markdown"
site_name: "Yvision.kz"
---

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

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

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

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

``` Imports System.Data.OleDb 'тут я импортирую необходимые средства для работы с бдImports System.Data.Odbc 'тоже самое только для mysqlImports SystemModule AConnectionsModulePublic AccessConnection As OleDbConnection 'OlePublic 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 FunctionEnd Module ```

---

Source: [https://yvision.kz/post/konnekty-k-bazam-dannyh-78458](https://yvision.kz/post/konnekty-k-bazam-dannyh-78458)