连接到SQL Server不能正常工作

-3

用vb.net 2010和SQL Server管理快递2008年我卜我有点困惑什么是错与连接SQL和vb.net连接到SQL Server不能正常工作

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

的代码，但但它确实不工作，出现错误信息。

来源

2011-10-06 jdisurja

_What_错误讯息？ – Oded

4个问题与所有downvotes？真的，该阅读常见问题解答（http://stackoverflow.com/faq）或[leave]（http://stackoverflow.com/users/logout）了。 – Bojangles

你有一个模块内的内部类，是你真正想要的吗？除此之外，您不能在方法环境之外打开连接等，这就是您在我们的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

来源

2011-10-06 14:19:53

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

来源

2011-10-06 20:29:47

连接到SQL Server不能正常工作

回答

相关问题