sql Helper
I have a lil web application that Iam developing that allows uploading of pics using the file upload control and saved into sql2005 in Binary format , however in my page to retrieve the photos getphoto.aspx I am getting an error saying SqlHelper is not delcared. the sql|Helper is a class file in my Appcode that contains Functions and methods to connect to database.
please can u assist me with this error I am thinking that I need to reference SqlHelper somewhere on my getphoto.aspx page but I am not sure where?
below is the page load section of my getphoto.aspx
Dim albumid As Integer = Convert.ToInt32(Request.QueryString("albumid"))
'Dim categoryID As Integer = Convert.ToInt32(Request.QueryString("CategoryID"))
Dim p() As SqlParameter = New SqlParameter(1) {}
p(0) = New SqlParameter("@albumid", albumid)
Dim isPublic As Boolean = Boolean.Parse(SqlHelper.ExecuteScalar("select ispublic from albums where albumid=@albumid", p).ToString())
If Not isPublic Then
If Not User.Identity.IsAuthenticated Then
Response.Redirect("~/login.aspx")
End If
End If
Dim albumid As Integer = Convert.ToInt32(Request.QueryString("albumid"))
'Dim categoryID As Integer = Convert.ToInt32(Request.QueryString("CategoryID"))
Dim p() As SqlParameter = New SqlParameter(1) {}
p(0) = New SqlParameter("@albumid", albumid)
Dim isPublic As Boolean = Boolean.Parse(SqlHelper.ExecuteScalar("select ispublic from albums where albumid=@albumid", p).ToString())
If Not isPublic Then
If Not User.Identity.IsAuthenticated Then
Response.Redirect("~/login.aspx")
End If
End If
and below is my sqlHelper
Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Public Class SqlHelper
Inherits System.Web.UI.Page
Private Shared strConn As String
Shared Sub New()
strConn = ConfigurationManager.ConnectionStrings("myConnect" ).ConnectionString
End Sub
Public Shared Function ExecuteNonQuery(ByVal query As String) As Integer
Dim cnn As SqlConnection = New SqlConnection(strConn)
Dim cmd As SqlCommand = New SqlCommand(query, cnn)
cnn.Open()
Dim retval As Integer = cmd.ExecuteNonQuery()
cnn.Close()
Return retval
End Function
Public Shared Function ExecuteNonQuery(ByVal query As String, ByVal p() As SqlParameter) As Integer
Dim cnn As SqlConnection = New SqlConnection(strConn)
Dim cmd As SqlCommand = New SqlCommand(query, cnn)
FillParameters(cmd, p)
cnn.Open()
Dim retval As Integer = cmd.ExecuteNonQuery()
cnn.Close()
Return retval
End Function
Public Shared Function ExecuteReader(ByVal sql As String) As SqlDataReader
Dim cnn As SqlConnection = New SqlConnection(strConn)
Dim cmd As SqlCommand = New SqlCommand(sql, cnn)
Return cmd.ExecuteReader(CommandBehavior.CloseConnection)
End Function
Public Shared Function ExecuteReader(ByVal sql As String, ByVal p() As SqlParameter) As SqlDataReader
Dim cnn As SqlConnection = New SqlConnection(strConn)
Dim cmd As SqlCommand = New SqlCommand(sql, cnn)
FillParameters(cmd, p)
cnn.Open()
Return cmd.ExecuteReader(CommandBehavior.CloseConnection)
End Function
Public Shared Function ExecuteScalar(ByVal sql As String) As Object
Dim cnn As SqlConnection = New SqlConnection(strConn)
Dim cmd As SqlCommand = New SqlCommand(sql, cnn)
cnn.Open()
Dim retval As Object = cmd.ExecuteScalar()
cnn.Close()
Return retval
End Function
Public Shared Function ExecuteScalar(ByVal sql As String, ByVal p() As SqlParameter) As Object
Dim cnn As SqlConnection = New SqlConnection(strConn)
Dim cmd As SqlCommand = New SqlCommand(sql, cnn)
FillParameters(cmd, p)
cnn.Open()
Dim retval As Object = cmd.ExecuteScalar()
cnn.Close()
Return retval
End Function
Public Shared Function ExecuteDataSet(ByVal sql As String) As DataSet
Dim cnn As SqlConnection = New SqlConnection(strConn)
Dim cmd As SqlCommand = New SqlCommand(sql, cnn)
Dim da As SqlDataAdapter = New SqlDataAdapter()
da.SelectCommand = cmd
Dim ds As DataSet = New DataSet()
da.Fill(ds)
Return ds
End Function
Public Shared Function ExecuteDataSet(ByVal sql As String, ByVal p() As SqlParameter) As DataSet
Dim cnn As SqlConnection = New SqlConnection(strConn)
Dim cmd As SqlCommand = New SqlCommand(sql, cnn)
FillParameters(cmd, p)
Dim da As SqlDataAdapter = New SqlDataAdapter()
da.SelectCommand = cmd
Dim ds As DataSet = New DataSet()
da.Fill(ds)
Return ds
End Function
Private Shared Sub FillParameters(ByVal cmd As SqlCommand, ByVal parameters() As SqlParameter)
'Dim cmd As New SqlCommand(Sql, myConnection)
'Dim i As Integer
'For i = 0 To parameters.Length - 1 Step i + 1
' cmd.Parameters.Add(parameters(i))
'Next
End Sub
End Class
|
button below this post to show your appreciation!
