'Import the required things
Imports System.Data, System.Data.SqlClient
Class _Default
Inherits System.Web.UI.Page
'Set the variables
Dim SQLConnectionString As String
Dim SQLConnectionStatus As String = "Closed"
Dim SQLConnection As New SqlConnection()
Dim SQLCommand As New SqlCommand()
Dim SQLData As SqlDataReader
'Function used to open up the SQL connection
Function sqlDBConnection() As Object
'Create the Connection String
SQLConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Owner\My Documents\Visual Studio 2008\WebSites\Overland\App_Data\Overland.mdf;Integrated Security=True;User Instance=True"
'Set the connection string into the SQL connection
SQLConnection.ConnectionString = SQLConnectionString
'Open up the connection
SQLConnection.Open()
'Check to see if it was succesful
If SQLConnection.State = ConnectionState.Open Then
'If so tell them so
ValidationWarning.Text = "Success!"
'Set the connection status to open
SQLConnectionStatus = "Open"
End If
'Return the connection status
Return SQLConnectionStatus
End Function
'Function used to close the SQL connection
Function sqlDBConnectionClose() As Object
'Close the connection
SQLConnection.Close()
'Check to see if it's still open
If SQLConnection.State = ConnectionState.Open Then
'If it is tell them that the database closing failed
ValidationWarning.Text = "Failed closing database!"
'Keep the connection status as open
SQLConnectionStatus = "Open"
Else
'Else the connection isn't open so tell them
ValidationWarning.Text = "Connection Closed"
'Set the connections status as closed
SQLConnectionStatus = "Closed"
End If
'Return the connection status
Return SQLConnectionStatus
End Function
'The sub procedure that validates the boxes
Protected Sub ValidateInput_Command(ByVal sender As Object, ByVal e As System.EventArgs) Handles ValidateInput.Command
'Check to see if any of the fields are empty
If UserAlias.Text.Length = 0 Or UserName.Text.Length = 0 Or UserPass.Text.Length = 0 Then
'Tell them that they've left a field or two empty
ValidationWarning.Text = "You left a field blank!"
'Ensure that the two passwords are equal
ElseIf UserPass.Text <> UserPassCheck.Text Then
'If they don't tell them that
ValidationWarning.Text = "You're passwords didn't match"
'Check to see if the password length is above 6
ElseIf UserPass.Text.Length < 6 Then
'If not tell them that it's too short
ValidationWarning.Text = "You're password is too short!"
Else
'We're going to try and open a database connection
Try
'Try and open it
sqlDBConnection()
'Catch any exceptions
Catch exception As System.Exception
'Tell them that it failed and for my use why
ValidationWarning.Text = "Could not connect to the database" & exception.Message
'MsgBox(exception.Message, MsgBoxStyle.Critical, "Exception Error")
End Try
'If the connection was succesful
If SQLConnectionStatus = "Open" Then
'Then we're going to check if the user already exists - doesn't actually work...at all
Dim SQLCheckForUser As String = "SELECT * FROM Users WHERE UserAlias = " & UserAlias.Text
SQLCommand.Connection = SQLConnection
SQLCommand.CommandText = SQLCheckForUser
SQLCommand.ExecuteNonQuery()
SQLData = SQLCommand.ExecuteReader
If SQLData.Read() Then
ValidationWarning.Text = "Found the user already?"
End If
End If
End If
End Sub
'The sub procedure that closes the connection
Protected Sub CloseConnection_Command(ByVal sender As Object, ByVal e As System.EventArgs) Handles CloseConnection.Command
'The function that closes the connection
sqlDBConnectionClose()
End Sub
End Class
