"USING" - キーワードを使用してください。 usingブロックを終了すると、オブジェクトに対して.Dispose()が呼び出されます。このオブジェクトは、SqlConnectionに対して接続と開いているリソースを閉じます。
Using connection As New SqlConnection(connection)
Dim command As New SqlCommand("Select * From dbo.table1",connection)
command.ExecuteNonQuery()
End Using
EDIT:
Module Module1
Public Sub DbConnection()
Dim connectionString as String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=yourServerAddress;Initial Catalog=university.mdb;
Integrated Security=SSPI;"
Using connection as New Sqlconnection(connectionstring)
Dim command As New SqlCommand("Select * From dbo.table1",connection)
command.ExecuteNonQuery()
End Using
End Sub
End Module
デバッグの助け**求めて –
質問あなたのコードを提供する場合、それは良いだろう**望ましい行動を含める必要があります(「なぜこのコードは動作しませんの?」) 、特定の問題またはエラー、およびそれを再現するのに必要な最短コード**を含んでいます** **明確な問題文**のない質問は、他の読者にとって有用ではありません。 [質問]を読んで[ツアー] – Plutonix