Public
Class DataEntryScreen
Private _orgName As
String
Private _connectString As
String
Private con As
System.Data.SqlClient.SqlConnection
Private cmd As
System.Data.SqlClient.SqlCommand
Private _sqlStr As
String
Public Property
orgname() As String
Get
Return _orgName
End Get
Set(ByVal value
As String)
_orgName = value
End Set
End Property
Public Property
connectString() As String
Get
Return _connectString
End Get
Set(ByVal value
As String)
_connectString = value
End Set
End Property
Public Property
sqlStr() As String
Get
Return _sqlStr
End Get
Set(ByVal value
As String)
_sqlStr = value
End Set
End Property
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button1.Click
con = New
System.Data.SqlClient.SqlConnection(connectString)
cmd = New
System.Data.SqlClient.SqlCommand(sqlStr)
cmd.ExecuteNonQuery()
End Sub
Private Sub
DataEntryScreen_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
End Sub
End
Class