-------------------------SAVE----------------------
Public sub SAVE_RECORD(ByVal val1 As String, ByVal val2 As String )
Try
Dim sqlcmd As New SqlCommand("StoredProcedure_Sa_DATABASE", sqlcon)
sqlcmd.CommandType = CommandType.StoredProcedure
With sqlcmd.Parameters
.Add("@inVal1", SqlDbType.VarChar, 20).Value = val1
.Add("@inVal2", SqlDbType.VarChar, 20).Value = val2
sqlcmd.ExecuteNonQuery()
End With
Catch ex As Exception
End Try
sqlcon.Close()
Return Nothing
End Sub
-------------------------RETRIEVE----------------------
Public sub RETRIEVE_RECORD(ByVal parameterVAL As String)
Try
Dim sqlcmd As New SqlCommand("StoredProcedure_Sa_DATABASE", sqlcon)
sqlcmd.CommandType = CommandType.StoredProcedure
With sqlcmd.Parameters
.Add("@inVal1", SqlDbType.VarChar, 20).Value = val1
.Add("@inVal2", SqlDbType.VarChar, 20).Value = val2
End With
Dim sqldr As SqlDataReader = sqlcmd.ExecuteReader
If sqldr.HasRows Then
While sqldr.Read
textbox1.text = sqldr("value1")
textbox2.text = sqldr("value2")
End While
End If
Catch ex As Exception
End Try
sqlcon.Close()
Return Nothing
End Sub