Открытая функция в VB.NET

Question

Я хочу написать глобальную функцию для всего моего проекта, чтобы использовать ее в любой форме.Я попытался создать публичный модуль и создать публичную функцию, но когда я вызываю его в своей форме, он генерирует ошибку.

скажем, моя глобальная функция связана с подключением к базе данных.Затем, когда я вызываю его, он говорит, что свойство подключения не инициализировано.

В своем функциональном файле я использовал:

 Imports System.Data.SqlClient
 Public Module Connection
    Dim myConnection As SqlConnection
    Public Sub ConnectToDatabase()
       myConnection = New SqlConnection(".............")
       myConnection.Open()
    End Sub
 End Module

И в своей форме я использовал:

 Private Sub Form_Load(...........) Handles MyBase.Load
    ConnectToDatabase()   'I call the function here
    ...............................................
 End Sub

И это не работает.Спасибо.

Answer 1

Я подозреваю, что это не имеет никакого отношения к тому факту, что это публичный модуль или публичная функция, и все, что связано с тем, что вы неправильно инициализируете ваше соединение.

Попробуйте следующий код:

Imports System.Data.SqlClient
Imports System.Data

Public Sub ConnectToSQL()
    Dim con As New SqlConnection
    Dim cmd As New SqlCommand
    Try
        con.ConnectionString = "Data Source=atisource;Initial Catalog=BillingSys;Persist Security Info=True;User ID=sa;Password=12345678"
        con.Open()
    Catch ex As Exception
        MessageBox.Show("Error while connecting to SQL Server." & ex.Message) Finally
        con.Close() 'Whether there is error or not. Close the connection.
    End Try
End Sub