Строка подключения к учебной базе NORTHWIND.SDF

Среда Visual Basic STUDIO’2010 Professional Надо в событии Load формы заполнить КОНТРОЛ (ЭЛЕМЕНТ УПРАВЛЕНИЯ) ТИПА (КЛАССА) DataGridView Апробировано 26 вариантов подсоединения базы Northwind.SDF, поставляемой для тестирования со STUDIO'2010 Подскажите правильное решение. Northwind.SDF находится в каталоге(папке) D:\2\WinApp_SDF_for_FORUM220915\WinApp\Data
Private Sub Form_DGV_sdf_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '+-1 Dim Con As New SqlClient.SqlConnection("Provider=sqlclient;Data Source=.\SQLEXPRESS;AttachDbFilename=D:\2\WinApp\WinApp\Data\NORTHWIND.SDF;Integrated Security=SSPI")
        ' Ключевое слово не поддерживается: "provider".
        ' Persist Security Info=False;Integrated Security=true;Initial Catalog=Northwind;server=(local)
        ' в ОКНЕ "ОБОЗРЕВАТЕЛЬ СЕРВЕРОВ" отсутствует строка подключения базы
 
        '2+-  Dim Con As New SqlClient.SqlConnection("Provider=sqlclient;Data Source=.\SQLEXPRESS;AttachDbFilename=D:\2\WinApp\WinApp\Data\NORTHWIND.SDF;server=(local")
        ' Ключевое слово не поддерживается: "provider".
        ' в ОКНЕ "ОБОЗРЕВАТЕЛЬ СЕРВЕРОВ" отсутствует строка подключения базы
 
        '3+- Dim Con As New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\2\WinApp\WinApp\Data\NORTHWIND.SDF;server=(local")
        ' При установлении соединения с SQL Server произошла ошибка, связанная
        ' с сетью или с определенным экземпляром. Сервер не найден или
        ' недоступен. Убедитесь, что имя экземпляра указано правильно и что
        ' на SQL Server разрешены удаленные соединения. (provider: Named Pipes  
        ' Provider, error: 40 - Не удалось открыть подключение к SQL Server)
        ' в ОКНЕ "ОБОЗРЕВАТЕЛЬ СЕРВЕРОВ" отсутствует строка подключения базы
 
        '+-4 Dim Con As New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\2\WinApp\WinApp\Data\NORTHWIND.SDF;")
        ' Ошибка входа пользователя "".
        ' в ОКНЕ "ОБОЗРЕВАТЕЛЬ СЕРВЕРОВ" отсутствует строка подключения базы
 
        '+-5 Dim Con As New SqlClient.SqlConnection("Data Source=.\BEST-VASYL\Vasyl;AttachDbFilename=D:\2\WinApp\WinApp\Data\NORTHWIND.SDF;")
        ' вместо SQLEXPRESS я вставил BEST-VASYL\Vasyl - имя моего сервера.
        ' в ОКНЕ "ОБОЗРЕВАТЕЛЬ СЕРВЕРОВ" отсутствует строка подключения базы
        ' Northwind.sdf or более точно Northwind. тип файла "SQL Server Compact Edition Database File"
        ' При установлении соединения с SQL Server произошла ошибка, связанная
        ' с сетью или с определенным экземпляром. Сервер не найден или
        ' недоступен. Убедитесь, что имя экземпляра указано правильно и что
        ' на SQL Server разрешены удаленные соединения. (provider: SQL Network
        ' Interfaces, error: 26 - Ошибка при обнаружении указанного сервера
        ' или экземпляра)
 
        '+-6 Dim Con As New SqlClient.SqlConnection("Data Source=.\BEST-VASYL;AttachDbFilename=D:\2\WinApp\WinApp\Data\NORTHWIND.SDF;")
        ' вместо SQLEXPRESS я вставил BEST-VASYL\ - имя моего сервера.
       
        '+-7 Dim Con As New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\2\WinApp\WinApp\Data\NORTHWIND.SDF;Integrated Security=true;")
        ' в ОКНЕ "ОБОЗРЕВАТЕЛЬ СЕРВЕРОВ" присутствует строка подключения базы
       
        ' +-8 14.09.2015 Dim Con As New SqlClient.SqlConnection("Data Source=D:\2\WinApp\WinApp\Data\NORTHWIND.SDF; Password=")
        ' При установлении соединения с SQL Server произошла ошибка,
       
        '+- Dim Con As New SqlClient.SqlConnection("Data Source=D:\2\WinApp\WinApp\Data\Northwind.sdf")
        '+- Dim Con As New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;D:\2\WinApp\WinApp\Data\Northwind.sdf")
        ' Формат строки инициализации не соответствует спецификации, начиная с индекса 25.
 
        '+- Dim Con As New SqlClient.SqlConnection("Data Source=.\best-vasyl;D:\2\WinApp\WinApp\Data\Northwind.sdf")
        ' Формат строки инициализации не соответствует спецификации, начиная с индекса 25.
 
                       '+-var_1 Dim Con As New SqlClient.SqlConnection("Server=.\SQLExpress;AttachDbFilename=D:\2\WinApp\WinApp\Data\Northwind.sdf;Database=Northwind.sdf;Trusted_Connection=Yes;")
       
        ' Не удалось открыть
        ' физический файл "D:\2\WinApp\WinApp\Data\Northwind.sdf".
        ' Ошибка операционной системы 32: "32(Процесс не может получить
        'доступ к файлу, так как этот файл занят другим процессом.)".
        ' Не удалось присоединить файл "D:\2\WinApp\WinApp\Data\Northwind.sdf"
        ' в качестве базы данных "Northwind.sdf".
 
        '+-var_2 - текст сообщения тот, что и выше в var_1, поэтому не дублирую!
        '+- var_2 Dim Con As New SqlClient.SqlConnection("Server=.\SQLExpress;AttachDbFilename=D:\2\WinApp\WinApp\Data\Northwind.sdf;Database=Northwind;Trusted_Connection=Yes;")
 
        '+- var_3 Dim Con As New SqlClient.SqlConnection("Server=.\SQLExpress;AttachDbFilename=D:\2\WinApp\WinApp\Data\Northwind.sdf;Trusted_Connection=Yes;")
        ' Не удалось прикрепить базу данных, которой автоматически было
        ' присвоено имя, к файлу D:\2\WinApp\WinApp\Data\Northwind.sdf.
        ' База данных с таким именем уже существует, указанный файл нельзя
        ' открыть, или он находится на общем ресурсе UNC.
 
        '+- var_4 Dim Con As New SqlClient.SqlConnection("Data Source=.\SQLExpress;AttachDbFilename=D:\2\WinApp\WinApp\Data\Northwind.sdf;Trusted_Connection=Yes;")
        '+- var_4 - текст сообщения тот, что и выше в var_3, поэтому не дублирую!
 
        '+- var_5  Dim Con As New SqlClient.SqlConnection("Server=(localdb)\v11.0;Integrated Security=true;AttachDbFileName=D:\2\WinApp\WinApp\Data\Northwind.sdf;Trusted_Connection=Yes;")
        ' При установлении соединения с SQL Server произошла ошибка,
       
        '+- var_6 Dim Con As New SqlClient.SqlConnection("Server=(localdb);Integrated Security=true;AttachDbFileName=D:\2\WinApp\WinApp\Data\Northwind.sdf;Trusted_Connection=Yes;")
        ' При установлении соединения с SQL Server произошла ошибка,
        ' связанная с сетью или с определенным экземпляром. Сервер не
        ' найден или недоступен. Убедитесь, что имя экземпляра указано
        ' правильно и что на SQL Server разрешены удаленные соединения.
        '(provider: Named Pipes Provider, error: 40 - Не удалось открыть
        ' подключение к SQL Server)
 
        '+- var_7 Dim Con As New SqlClient.SqlConnection("Server=(Northwind.sdf);Integrated Security=true;AttachDbFileName=D:\2\WinApp\WinApp\Data\Northwind.sdf;Trusted_Connection=Yes;")
        '+- var_8 Dim Con As New SqlClient.SqlConnection("Server=best-vasyl;Integrated Security=true;AttachDbFileName=D:\2\WinApp\WinApp\Data\Northwind.sdf;Trusted_Connection=Yes;")
        '+- var_9 Dim Con As New SqlClient.SqlConnection("Server=best-vasyl\vasyl;Integrated Security=true;AttachDbFileName=D:\2\WinApp\WinApp\Data\Northwind.sdf;Trusted_Connection=Yes;")
 
        '+- var_10 Dim Con As New SqlClient.SqlConnection("Server=.\SQLExpress;AttachDbFilename=D:\2\WinApp\WinApp\Data\Northwind.sdf;Database=Northwind;Trusted_Connection=Yes;")
        ' Заголовок файла "D:\2\WinApp\WinApp\Data\Northwind.sdf" не
        ' является действительным заголовком файла базы данных.
 
        '+- var_11 Dim Con As New SqlClient.SqlConnection("Server=.\SQLExpress;AttachDbFilename=D:\2\WinApp\WinApp\Data\Northwind.sdf;Database=Northwind,sdf;Trusted_Connection=Yes;")
        '+- var_12 Dim Con As New SqlClient.SqlConnection("Data Source=.\SQLExpress;Integrated Security=true;AttachDbFilename=D:\2\WinApp\WinApp\Data\Northwind.sdf;User Instance=true;")
        ' Не удалось прикрепить базу данных, которой автоматически было
       
        '+- var_12  Dim Con As New SqlClient.SqlConnection("Server=.\SQLExpress;AttachDbFilename=D:\2\WinApp\WinApp\Data\Northwind.sdf;Database=Northwind;User Instance=true;")
        ' Ошибка входа пользователя "".
 
        '+- var_13 Dim Con As New SqlClient.SqlConnection("Server=.\SQLExpress;AttachDbFilename=D:\2\WinApp\WinApp\Data\Northwind.sdf;Database=Northwind;User Instance=""vasyl"";")
        ' Недопустимое значение ключа "user instance".
 
        '+- var_14 Dim Con As New SqlClient.SqlConnection("Server=.\SQLExpress;AttachDbFilename=D:\2\WinApp\WinApp\Data\Northwind.sdf;Database=Northwind;User=""vasyl"";")
        ' Ошибка входа пользователя "vasyl".
 
        '+- var_15 Dim Con As New SqlClient.SqlConnection("Server=.\SQLExpress;AttachDbFilename=D:\2\WinApp\WinApp\Data\Northwind.sdf;Database=Northwind;User=""best-vasyl\vasyl"";")
        ' Ошибка входа пользователя "best-vasyl\vasyl".
 
        '+- var_16 Dim Con As New SqlClient.SqlConnection("Server=.\SQLExpress;AttachDbFilename=D:\2\WinApp\WinApp\Data\Northwind.sdf;Database=Northwind;User=""best-vasyl\\vasyl"";")
        ' Ошибка входа пользователя "best-vasyl\\vasyl".
 
        '+- var_17 Dim Con As New SqlClient.SqlConnection("Data Source=.\SQLExpress;AttachDbFilename=D:\2\WinApp\WinApp\Data\Northwind.sdf;Trusted_Connection=Yes;")
        'Server=.\SQLExpress;AttachDbFilename=D:\2\WinApp\WinApp\Data\Northwind.sdf;Database=Northwind;User=""best-vasyl\\vasyl"";")
 
        '+- var_18  Dim Con As New SqlClient.SqlConnection("Data Source=AttachDbFilename=D:\2\WinApp\WinApp\Data\Northwind.sdf;Integrated Security=SSPI;")
               ' на SQL Server разрешены удаленные соединения. (provider:
        ' SQL Network Interfaces, error: 25 - Недопустимая строка подключения)
 
        '+- var_19 Dim Con As New SqlClient.SqlConnection("Data Source=D:\2\WinApp\WinApp\Data\Northwind.sdf;Integrated Security=SSPI;")
 
        '+- var_20 Dim Con As New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\2\WinApp\WinApp\Data\Northwind.sdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
        ' Не удалось прикрепить базу данных, которой автоматически было
        ' присвоено имя, к файлу D:\2\WinApp\WinApp\Data\Northwind.sdf.
       
 
        '+- var_21 Dim Con As New SqlClient.SqlConnection("Data Source=.\sqlexpress;Initial Catalog=Northwind;Integrated Security=True;providerName = ""System.Data.SqlClient""")
        ' Ключевое слово не поддерживается: "providername".
        '
 
        '+- var_22 Dim Con As New SqlClient.SqlConnection("Data Source=.\sqlexpress;Initial Catalog=Northwind;Integrated Security=True;provider=""System.Data.SqlClient""")
        ' Ключевое слово не поддерживается: "provider".
     
        '+- var_23 Dim Con As New SqlClient.SqlConnection("Data Source=.\sqlexpress;Initial Catalog=Northwind;Integrated Security=True;provider=System.Data.SqlClient")
        ' Ключевое слово не поддерживается: "provider".
        ' текст строки кода я взял из файла app.config, тип файла "XML Configuration File"
        ' app.config - тип ".config" показала программе Notepad++.EXE
        ' находящемся in folder "D:\2\WinApp\WinApp"
 
        '+- var_24 Dim Con As New SqlClient.SqlConnection("Data Source=.\sqlexpress;Initial Catalog=Northwind;Integrated Security=True;")
        ' Не удается открыть базу данных "Northwind", запрашиваемую именем
        ' входа. Не удалось выполнить вход.
        ' Ошибка входа пользователя "BEST-VASYL\Vasyl".
        '
 
        '+- var_25 Dim Con As New SqlClient.SqlConnection("Data Source=.\sqlexpress;Initial Catalog=D:\2\WinApp\WinApp\Data;Integrated Security=True;")
        ' Не удается открыть базу данных "D:\2\WinApp\WinApp\Data",
        "
         '+- var_26 Dim Con As New SqlClient.SqlConnection("Data Source=.\sqlexpress;Initial Catalog=D:\2\WinApp\WinApp\Data\Northwind.sdf;Integrated Security=True;")        ' Не удается открыть базу данных "D:\2\WinApp\WinApp\Data\Northwind.sdf",        
         Dim Con As New SqlClient.SqlConnection("Data Source=.\sqlexpress;Initial Catalog=D:\2\WinApp\WinApp\Data\Northwind;Integrated Security=True;")        '  Не удается открыть базу данных "D:\2\WinApp\WinApp\Data\Northwind",        ' запрашиваемую именем входа. Не удалось выполнить вход.        ' Ошибка входа пользователя "BEST-VASYL\Vasyl".                'Dim Con As New SqlClient.SqlConnection("Data Source=.\sqlexpress;Initial Catalog=Northwind;Integrated Security=True;provider=""System.Data.SqlClient""")
         Dim SqlCom As SqlClient.SqlCommand ' Переменная для Sql запросов        Dim DT As New Data.DataTable ' Таблица для хранения результатов запроса        ' Dim DA As OleDb.OleDbDataAdapter ' Адаптер для заполнения таблицы после запроса        Dim DA As SqlClient.SqlDataAdapter ' Адаптер для заполнения таблицы после запроса
         DT.Clear() 'Очищаем таблицу" ЕЁ ОЧИЩАТЬ И НЕ НАДО, т.к. она новая!
        ' форумчанин bazile ответил 28.07.2015 г.
        ' Новая DataTable и так пустая. Очищать ничего не надо.
 
        '- SqlCom = New SqlClient.SqlCommand("SELECT * FROM [Customers]", Con) ' Указываем строку запроса и привязываем к соединению
        SqlCom = New SqlClient.SqlCommand("SELECT * FROM [Customers]", Con) ' Указываем строку запроса и привязываем к соединению
 
        Con.Open() ' Открываем соединение
        ' 02.09.2015 07.09.2015 Не удалось прикрепить базу данных, которой автоматически
        ' было присвоено имя, к файлу D:\2\WinApp\WinApp\Data\NORTHWIND.SDF.
        ' База данных с таким именем уже существует, указанный файл нельзя
        ' открыть, или он находится на общем ресурсе UNC.
 
        ' раньше были нижеприведенные соощения:
        ' Невозможно открыть пользовательскую базу данных по умолчанию.
        ' Не удалось выполнить вход.
        ' Недопустимый атрибут строки подключения
 
        SqlCom.ExecuteNonQuery() 'Выполняем запрос
        DA = New SqlClient.SqlDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
        DA.Fill(DT) ' Заполняем таблицу результатми
        Me.DGV1.DataSource = DT ' Привязываем Грид к источнику данных
        Con.Close() ' Закрываем соединение
    End Sub
2 ответа

Можно, я отвечу ссылкой? http://stackoverflow.com/questions/2...act-connection


k13, большое спасибо, это то!