Hi, I'm new in VB.NET and I'm having trouble with creating a public sqlconnection in a VB Module.
I have declared conn as public sqlconnection but when I use it to the other forms its value is equal to "nothing". I hope you can enlighten me here. thanks in advance.
This is my Module:
Imports System
Imports System.Data
Imports System.Data.SqlClient
Module modSindBad
#Region "Variables"
Public con As String
Public conn As SqlConnection
Public cmd As SqlCommand
Public da As SqlDataAdapter
Public dt As DataTable
Public ds As DataSet
#End Region
Public Sub ServerConnection()
Try
con = "Data Source=SAMI-HP\SQLSERVER;Initial Catalog=SINDBAD;User ID=sa;Password=Administrator@123"
Dim conn = New SqlConnection(con)
conn.Open()
If conn.State = ConnectionState.Open Then
MsgBox("conn open")
End If
Catch
MsgBox("Unexpected Error Occured!" & vbNewLine & "Error Code: " & Err.Number & "Error Description: " & Err.Description & _
"Error Source: " & Err.Source, vbExclamation, "Error Handler")
End Try
End Sub
End Module
And this is my form:
Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class mdBank
Dim dt As DataTable
#Region "Form Load"
Private Sub mdBank_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ServerConnection()
ReadmdBankInfo()
End Sub
#End Region
#Region "Database Commands"
Private Sub ReadmdBankInfo()
Dim cmd = New SqlCommand
cmd.Connection = conn ''Value = nothing
cmd.CommandType = CommandType.Text
cmd.CommandText = "SELECT * FROM mdBank"
Dim dt = New DataTable
Dim da = New SqlDataAdapter
da.SelectCommand = cmd
da.Fill(dt)
Me.dgvBank.DataSource = dt
Me.dgvBank.Refresh()
End Sub
#End Region
End Class