Подключение к SQL Server не работает

Question

Я с помощью vb.net 2010 и управление сервером SQL Express 2008. бушель я немного запутался, что не так с кодом для подключения SQL и vb.net

Imports System.Data.SqlClient 

Module Module1 
    Public Class connection 
    Public Function GetConnect() 
     Dim conn As SqlConnection = Nothing 
     Dim connString As String = "Data Source=.\SQLEXPRESS; Initial Catalog=dbMedical;Integrated Security=true" 
     conn = New SqlConnection(connString) 
     conn.Open() 
     If conn.State <> ConnectionState.Open Then 
     Return False 
     Else 
     Return True 
     End If 
    End Function 
    End Class 
End Module 

но зато он делает не работает, появляется сообщение об ошибке.

Answer 1

У вас есть внутренний класс внутри модуля, это то, что вы действительно хотели? Кроме того, вы не можете открывать соединения и т. Д. Вне контекста метода, и это то, что вы сделали iny наш connection -Class. Создайте метод, который возвращает соединение.

Например:

Public NotInheritable Class DatabaseFactory 

    Private Sub New() 
    End Sub 

    Public Shared Function GetConnection(openNow as Boolean) As SqlConnection 
      Const connString = "Data Source=.\SQLEXPRESS; Initial Catalog=dbMedical;Integrated Security=true" 
      Dim conn As SqlConnection = New SqlConnection(connString) 
      If openNow Then conn.Open() 
      Return conn 
    End Function 
End Class 

Answer 2

Imports System.Data 
Imports System.Data.SqlClient  
Module Connect 
Public con As SqlConnection  
    Public Function GetConnect() 
    con = New SqlConnection("Data Source='(LOCAL)';Initial Catalog='School';Database='School';User ID='sa';Password='';") 
    Return con 
    End Function 
    End Module 

После того, как в форме активированного события:

con=GetConnect() 
con.open() 
----- 
----- 
con.close()