Добавление – контекстное меню в менеджере проектов:
Текст app.config
Элемент <configuration>
Корневой элемент в любом файле конфигурации, используемом средой CLR и приложениями .NET Framework.
<configuration>
<!-- configuration settings --> </configuration>
Раздел connectionStrings
Строки соединения могут храниться в файлt конфигурации приложения в виде пар «ключ=значение» в разделе connectionStrings элемента configuration.
Дочерние элементы : add, clear и remove.
Пример
<configuration>
<connectionStrings>
<clear />
<add name="ConnectString№1" connectionString="Initial Catalog=Northwind;" providerName="System.Data.OleDB" /> </connectionStrings>
</configuration>
Получение строк соединения во время выполнения
класс ConfigurationManager
Для получения строк соединения из файлов конфигурации приложения используется ConnectionStringSettingsCollection. Этот объект содержит коллекцию объектов ConnectionStringSettings, каждый из которых представляет одну запись в разделе connectionStrings.
Свойства ConnectionStringSettingsCollection
сопоставляются с атрибутами строк
соединения, что позволяет получить строку соединения, указав имя строки или имя поставщика.
Пример. Список всех строк соединения
Подключить ссылку в меню Project Add References System.Configuration
Imports System.Configuration
Class Program
Shared Sub Main()
GetConnectionStrings()
Console.ReadLine()
End Sub
продолжение
Private Shared Sub GetConnectionStrings()
Dim settings As ConnectionStringSettingsCollection = _ ConfigurationManager.ConnectionStrings
If Not settings Is Nothing Then
For Each cs As ConnectionStringSettings In settings Console.WriteLine(cs.Name) Console.WriteLine(cs.ProviderName) Console.WriteLine(cs.ConnectionString)
Next End If End Sub
End Class
Пример. Извлечение строки соединения по имени *NAME*
Dim returnValue As String = Nothing
Dim settings As ConnectionStringSettings = _ ConfigurationManager.ConnectionStrings(name)
If Not settings Is Nothing Then
returnValue = settings.ConnectionString End If
Dim setting1 As ConnectionStringSettings = ConfigurationManager.ConnectionStrings("ConnectString1")
Dim c1 As New OleDblConnection
c1.ConnectionString = setting1.ConnectionString Dim com As New OleDbCommand com.Connection = c1
com.CommandText = "insert into магазин(название_магазина) values('" & TextBox1.Text & "');"
'MsgBox(com.CommandText)
c1.Open()
If com.ExecuteNonQuery() <> 0 Then MsgBox("Строка удачно добавлена")
c1.Dispose()