Соединение с SQL Server не работает

Question

Я использую vb.net 2010 и sql server management 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

 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()

Answer 2

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

Например:

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