HOW TO ASSIGN VARIABLE VALUE IN MULTIPLE WINDOWS

See more:

VB

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f1 As New Form1
Dim S As String
S = f1.t
Dim con As New SqlConnection
con.ConnectionString = "server=hcl-pc\SQLEXPRESS;Initial Catalog=UBGB_HRMS;Integrated Security=True"
Dim sql As String = "SELECT * FROM emp_personal_details where emp_no= s"
Dim dataadapter As New SqlDataAdapter(sql, con)
Dim ds As New DataSet()
con.Open()
dataadapter.Fill(ds, "emp_personal_details")
con.Close()
f3.DataGridView1.DataSource = ds
f3.DataGridView1.DataMember = "emp_personal_details"
F3.Show()
End Sub
End Class

THE CODE FOR FORM1 IS


Public Class Form1
Inherits Windows.Forms.Form
Dim f2 As New Form2
Shared emp_no As String = ""

Shared emp_adhaar As String = ""

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


Dim con As New SqlConnection
con.ConnectionString = "server=hcl-pc\SQLEXPRESS;Initial Catalog=UBGB_HRMS;Integrated Security=True"

con.Open()

Dim cmd As SqlCommand

cmd = New SqlCommand("select emp_no,emp_adhaar from emp_personal_details where emp_no='" + TextBox1.Text + "'and emp_adhaar='" + TextBox2.Text + "'", con)

emp_no = TextBox1.Text

emp_adhaar = TextBox2.Text

Dim da As New SqlDataAdapter
da = New SqlDataAdapter(cmd)
Dim dt As New DataTable
da.Fill(dt)
If (dt.Rows.Count > 0) Then

MessageBox.Show("Login sucess Welcome to UBGB HRMS ")


f2.Show()


Else

MessageBox.Show("Invalid Login please check username and password")
End If
con.Close()
End Sub

Public Property t() As String
Get
Return emp_no
End Get
Set(ByVal Value As String)
emp_no = Value
End Set
End Property

End Class

here in form1 i have created a log in window after the successful log in it will direct to form2 and have assigned the emp_no of looged user in t.in form i have tried to call t in variable s but it is not working. error is invalid column name s