Morko
Jan 31st, 2004, 12:36 AM
Hi, this woks in localhost but when uploaded to server the message (unable to open database)
Why?
Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Data.OleDb
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.Web.Security
Public Class Login1
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.OleDbDataAdapter1 = New System.Data.OleDb.OleDbDataAdapter
Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection
Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbDataAdapter1.DeleteCommand = Me.OleDbDeleteCommand1
Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Users", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("loginID", "loginID")})})
Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
'
'OleDbDeleteCommand1
'
Me.OleDbDeleteCommand1.CommandText = "DELETE FROM Users WHERE (loginID = ?)"
Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_loginID", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "loginID", System.Data.DataRowVersion.Original, Nothing))
'
'OleDbConnection1
'
Me.OleDbConnection1.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
"ocking Mode=1;Data Source=""C:\Inetpub\wwwroot\VB\MyWebSite\Login.mdb"";Jet OLEDB:" & _
"Engine Type=5;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System database=;Jet " & _
"OLEDB:SFP=False;persist security info=False;Extended Properties=;Mode=Share Deny" & _
" None;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Create System Database=False;Je" & _
"t OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Rep" & _
"air=False;User ID=Admin;Jet OLEDB:Global Bulk Transactions=1"
'
'OleDbInsertCommand1
'
Me.OleDbInsertCommand1.CommandText = "INSERT INTO Users(loginID) VALUES (?)"
Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("loginID", System.Data.OleDb.OleDbType.VarWChar, 50, "loginID"))
'
'OleDbSelectCommand1
'
Me.OleDbSelectCommand1.CommandText = "SELECT loginID FROM Users"
Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
'
'OleDbUpdateCommand1
'
Me.OleDbUpdateCommand1.CommandText = "UPDATE Users SET loginID = ? WHERE (loginID = ?)"
Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("loginID", System.Data.OleDb.OleDbType.VarWChar, 50, "loginID"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_loginID", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "loginID", System.Data.DataRowVersion.Original, Nothing))
End Sub
Protected WithEvents nameList As System.Web.UI.WebControls.DropDownList
Protected WithEvents passwordTextBox As System.Web.UI.WebControls.TextBox
Protected WithEvents submitButton As System.Web.UI.WebControls.Button
Protected dataReader As OleDbDataReader
Protected WithEvents OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter
Protected WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
Protected WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCommand
Protected WithEvents OleDbUpdateCommand1 As System.Data.OleDb.OleDbCommand
Protected WithEvents OleDbDeleteCommand1 As System.Data.OleDb.OleDbCommand
Protected WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection
Protected WithEvents requiredPasswordValidator As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents inValidPasswordValidator As System.Web.UI.WebControls.CustomValidator
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
If Not IsPostBack Then
Try
OleDbConnection1.Open()
dataReader = OleDbDataAdapter1.SelectCommand.ExecuteReader()
While (dataReader.Read())
nameList.Items.Add(dataReader.GetString(0))
End While
Catch exception As OleDbException
Response.Write("Unable to open database!")
Finally
OleDbConnection1.Close()
End Try
End If
End Sub
Private Sub invalidPasswordValidator_ServerValidate( _
ByVal source As Object, _
ByVal args As ServerValidateEventArgs) _
Handles invalidPasswordValidator.ServerValidate
Try
OleDbConnection1.Open()
OleDbDataAdapter1.SelectCommand.CommandText = "SELECT * FROM Users WHERE loginID = '" & _
Request.Form("nameList").ToString() & "'"
dataReader = OleDbDataAdapter1.SelectCommand.ExecuteReader()
dataReader.Read()
If args.Value = dataReader.GetString(1) Then
FormsAuthentication.SetAuthCookie(Request.Form("namelist"), False)
Session.Add("name", Request.Form("nameList").ToString())
Response.Redirect("RickAndLita.aspx")
Else
args.IsValid = False
End If
Catch exception As OleDbException
Response.Write("Unable to open database!")
Finally
OleDbConnection1.Close()
End Try
End Sub ' InvalidPasswordValidator_ServerValidate
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
End Sub
Private Sub CustomValidator1_ServerValidate(ByVal source As System.Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs)
End Sub
Private Sub OleDbDataAdapter1_RowUpdated(ByVal sender As System.Object, ByVal e As System.Data.OleDb.OleDbRowUpdatedEventArgs) Handles OleDbDataAdapter1.RowUpdated
End Sub
End Class
Why?
Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Data.OleDb
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.Web.Security
Public Class Login1
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.OleDbDataAdapter1 = New System.Data.OleDb.OleDbDataAdapter
Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection
Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbDataAdapter1.DeleteCommand = Me.OleDbDeleteCommand1
Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Users", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("loginID", "loginID")})})
Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
'
'OleDbDeleteCommand1
'
Me.OleDbDeleteCommand1.CommandText = "DELETE FROM Users WHERE (loginID = ?)"
Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_loginID", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "loginID", System.Data.DataRowVersion.Original, Nothing))
'
'OleDbConnection1
'
Me.OleDbConnection1.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
"ocking Mode=1;Data Source=""C:\Inetpub\wwwroot\VB\MyWebSite\Login.mdb"";Jet OLEDB:" & _
"Engine Type=5;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System database=;Jet " & _
"OLEDB:SFP=False;persist security info=False;Extended Properties=;Mode=Share Deny" & _
" None;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Create System Database=False;Je" & _
"t OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Rep" & _
"air=False;User ID=Admin;Jet OLEDB:Global Bulk Transactions=1"
'
'OleDbInsertCommand1
'
Me.OleDbInsertCommand1.CommandText = "INSERT INTO Users(loginID) VALUES (?)"
Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("loginID", System.Data.OleDb.OleDbType.VarWChar, 50, "loginID"))
'
'OleDbSelectCommand1
'
Me.OleDbSelectCommand1.CommandText = "SELECT loginID FROM Users"
Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
'
'OleDbUpdateCommand1
'
Me.OleDbUpdateCommand1.CommandText = "UPDATE Users SET loginID = ? WHERE (loginID = ?)"
Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("loginID", System.Data.OleDb.OleDbType.VarWChar, 50, "loginID"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_loginID", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "loginID", System.Data.DataRowVersion.Original, Nothing))
End Sub
Protected WithEvents nameList As System.Web.UI.WebControls.DropDownList
Protected WithEvents passwordTextBox As System.Web.UI.WebControls.TextBox
Protected WithEvents submitButton As System.Web.UI.WebControls.Button
Protected dataReader As OleDbDataReader
Protected WithEvents OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter
Protected WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
Protected WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCommand
Protected WithEvents OleDbUpdateCommand1 As System.Data.OleDb.OleDbCommand
Protected WithEvents OleDbDeleteCommand1 As System.Data.OleDb.OleDbCommand
Protected WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection
Protected WithEvents requiredPasswordValidator As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents inValidPasswordValidator As System.Web.UI.WebControls.CustomValidator
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
If Not IsPostBack Then
Try
OleDbConnection1.Open()
dataReader = OleDbDataAdapter1.SelectCommand.ExecuteReader()
While (dataReader.Read())
nameList.Items.Add(dataReader.GetString(0))
End While
Catch exception As OleDbException
Response.Write("Unable to open database!")
Finally
OleDbConnection1.Close()
End Try
End If
End Sub
Private Sub invalidPasswordValidator_ServerValidate( _
ByVal source As Object, _
ByVal args As ServerValidateEventArgs) _
Handles invalidPasswordValidator.ServerValidate
Try
OleDbConnection1.Open()
OleDbDataAdapter1.SelectCommand.CommandText = "SELECT * FROM Users WHERE loginID = '" & _
Request.Form("nameList").ToString() & "'"
dataReader = OleDbDataAdapter1.SelectCommand.ExecuteReader()
dataReader.Read()
If args.Value = dataReader.GetString(1) Then
FormsAuthentication.SetAuthCookie(Request.Form("namelist"), False)
Session.Add("name", Request.Form("nameList").ToString())
Response.Redirect("RickAndLita.aspx")
Else
args.IsValid = False
End If
Catch exception As OleDbException
Response.Write("Unable to open database!")
Finally
OleDbConnection1.Close()
End Try
End Sub ' InvalidPasswordValidator_ServerValidate
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
End Sub
Private Sub CustomValidator1_ServerValidate(ByVal source As System.Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs)
End Sub
Private Sub OleDbDataAdapter1_RowUpdated(ByVal sender As System.Object, ByVal e As System.Data.OleDb.OleDbRowUpdatedEventArgs) Handles OleDbDataAdapter1.RowUpdated
End Sub
End Class