Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Configuration
Imports System.Collections.Generic
Public Class AwesomeDataLayer
Private Shared ReadOnly _connectionString As String
Private Sub Page_Load()
lblMovieTitle.Text = GetMovieTitle().ToString()
End Sub
Public Shared Function GetMovieTitle() As String
Dim result As String = String.Empty
Dim con As New SqlConnection(_connectionString)
Dim cmd As New SqlCommand("GetMovieTitle", con)
cmd.CommandType = CommandType.StoredProcedure
Using con
con.Open()
Dim reader As SqlDataReader = cmd.ExecuteReader()
If reader.Read() Then
result = CType(reader("Title"), String)
End If
End Using
Return result
End Function
Shared Sub New()
_connectionString = WebConfigurationManager.ConnectionStrings("MyDatabase").ConnectionString
End Sub
End Class