any pros coders out there cna help me solve?

• m)phosis

  8 Aug 05, 00:23

  i got this error msg when i debug my application using visual basic program... i was doing my project... can someone help me and tell me wad is wrong y i keep gettign this error msg and couldnt debug...
  
  Server Error in '/project' Application.
  --------------------------------------------------------------------------------
  
  Could not lock file.
  Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.
  
  Exception Details: System.Data.OleDb.OleDbException: Could not lock file.
  
  Source Error:
  
  Line 96: Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Line 97: 'Put user code to initialize the page here
  Line 98: OleDbConnection1.Open()
  Line 99:
  Line 100: Dim OleDbCommand1 As OleDb.OleDbCommand
  
  Source File: c:\inetpub\wwwroot\project\MobileWebForm1.aspx.vb Line: 98
  
  Stack Trace:
  
  [OleDbException (0x80004005): Could not lock file.]
  System.Data.OleDb.OleDbConnection.ProcessResults(Int32 hr)
  System.Data.OleDb.OleDbConnection.InitializeProvider()
  System.Data.OleDb.OleDbConnection.Open()
  project.MobileWebForm1.Page_Load(Object sender, EventArgs e) in c:\inetpub\wwwroot\project\MobileWebForm1.aspx.vb:98
  System.Web.UI.Control.OnLoad(EventArgs e)
  System.Web.UI.MobileControls.MobilePage.OnLoad(EventArgs e)
  System.Web.UI.Control.LoadRecursive()
  System.Web.UI.Page.ProcessRequestMain()
  
  
• dark_snowboy

  8 Aug 05, 00:35

  try hardware zone
• m)phosis

  8 Aug 05, 00:39

  hmmm i tried dbforums..... maybe too late le...
• stellazio

  8 Aug 05, 00:41

  I'm clueless..
• k4korny

  8 Aug 05, 00:41

  got check your connection string?
• m)phosis

  8 Aug 05, 00:48

  Originally posted by k4korny:

  got check your connection string?

  wad is connection string?this is my aspx.vb codes
  
  Public Class MobileWebForm1
  Inherits System.Web.UI.MobileControls.MobilePage
  
  #Region " Web Form Designer Generated Code "
  
  'This call is required by the Web Form Designer.
  Private Sub InitializeComponent()
  Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection
  Me.AreaDataAdapter = New System.Data.OleDb.OleDbDataAdapter
  Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCommand
  Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand
  Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand
  Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand
  Me.DisplayAreaDS = New project.DisplayAreaDS
  CType(Me.DisplayAreaDS, System.ComponentModel.ISupportInitialize).BeginInit()
  '
  'OleDbConnection1
  '
  Me.OleDbConnection1.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDBatabase L" & _
  "ocking Mode=1;Data Source=""C:\Inetpub\wwwroot\project\db1.mdb"";Jet OLEDB:Engine " & _
  "Type=5;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System database=;Jet OLEDB:S" & _
  "FP=False;persist security info=False;Extended Properties=;Mode=Share Deny None;J" & _
  "et OLEDB:Encrypt Database=False;Jet OLEDB:Create System Database=False;Jet OLEDB" & _
  "on't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=Fal" & _
  "se;User ID=Admin;Jet OLEDB:Global Bulk Transactions=1"
  '
  'AreaDataAdapter
  '
  Me.AreaDataAdapter.DeleteCommand = Me.OleDbDeleteCommand1
  Me.AreaDataAdapter.InsertCommand = Me.OleDbInsertCommand1
  Me.AreaDataAdapter.SelectCommand = Me.OleDbSelectCommand1
  Me.AreaDataAdapter.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Area", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("Area", "Area"), New System.Data.Common.DataColumnMapping("ID", "ID")})})
  Me.AreaDataAdapter.UpdateCommand = Me.OleDbUpdateCommand1
  '
  'OleDbDeleteCommand1
  '
  Me.OleDbDeleteCommand1.CommandText = "DELETE FROM Area WHERE (ID = ?) AND (Area = ? OR ? IS NULL AND Area IS NULL)"
  Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1
  Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
  Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Area", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Area", System.Data.DataRowVersion.Original, Nothing))
  Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Area1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Area", System.Data.DataRowVersion.Original, Nothing))
  '
  'OleDbInsertCommand1
  '
  Me.OleDbInsertCommand1.CommandText = "INSERT INTO Area(Area) VALUES (?)"
  Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
  Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Area", System.Data.OleDb.OleDbType.VarWChar, 50, "Area"))
  '
  'OleDbSelectCommand1
  '
  Me.OleDbSelectCommand1.CommandText = "SELECT Area, ID FROM Area"
  Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
  '
  'OleDbUpdateCommand1
  '
  Me.OleDbUpdateCommand1.CommandText = "UPDATE Area SET Area = ? WHERE (ID = ?) AND (Area = ? OR ? IS NULL AND Area IS NU" & _
  "LL)"
  Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
  Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Area", System.Data.OleDb.OleDbType.VarWChar, 50, "Area"))
  Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
  Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Area", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Area", System.Data.DataRowVersion.Original, Nothing))
  Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Area1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Area", System.Data.DataRowVersion.Original, Nothing))
  '
  'DisplayAreaDS
  '
  Me.DisplayAreaDS.DataSetName = "DisplayAreaDS"
  Me.DisplayAreaDS.Locale = New System.Globalization.CultureInfo("en-US")
  CType(Me.DisplayAreaDS, System.ComponentModel.ISupportInitialize).EndInit()
  
  End Sub
  Protected WithEvents Image1 As System.Web.UI.MobileControls.Image
  Protected WithEvents ObjectList1 As System.Web.UI.MobileControls.ObjectList
  Protected WithEvents Label1 As System.Web.UI.MobileControls.Label
  Protected WithEvents Label2 As System.Web.UI.MobileControls.Label
  Protected WithEvents Label3 As System.Web.UI.MobileControls.Label
  Protected WithEvents Form2 As System.Web.UI.MobileControls.Form
  Protected WithEvents AreaSelectionList As System.Web.UI.MobileControls.SelectionList
  Protected WithEvents PriceSelectionList As System.Web.UI.MobileControls.SelectionList
  Protected WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection
  Protected WithEvents AreaDataAdapter 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 DisplayAreaDS As project.DisplayAreaDS
  Protected WithEvents Form1 As System.Web.UI.MobileControls.Form
  
  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()
  End Sub
  
  #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
  OleDbConnection1.Open()
  
  Dim OleDbCommand1 As OleDb.OleDbCommand
  OleDbCommand1 = New OleDb.OleDbCommand
  
  Dim DataReader1 As OleDb.OleDbDataReader
  DataReader1 = OleDbCommand1.ExecuteReader
  
  'connecting to the Listbox
  ObjectList1.DataSource = DataReader1
  ObjectList1.LabelField = "Hotels"
  ObjectList1.BackCommandText = "Back to Main"
  ObjectList1.DataBind()
  DataReader1.Close()
  
  'to bind the parts selection list
  Me.AreaDataAdapter.Fill(DisplayAreaDS, "Area")
  AreaSelectionList.DataSource = DisplayAreaDS
  AreaSelectionList.DataBind()
  
  OleDbConnection1.Close()
  
  End Sub
  End Class
• kaobeikaobu

  8 Aug 05, 00:58

  OleDbConnection1
  '
  Me.OleDbConnection1.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDBVery Happyatabase L" & _
  "ocking Mode=1;Data Source=""C:\Inetpub\wwwroot\project\db1.mdb"";Jet OLEDB:Engine " & _
  "Type=5;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System database=;Jet OLEDB:S" & _
  "FP=False;persist security info=False;Extended Properties=;Mode=Share Deny None;J" & _
  "et OLEDB:Encrypt Database=False;Jet OLEDB:Create System Database=False;Jet OLEDB" & _
  "Very Happyon't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=Fal" & _
  "se;User ID=Admin;Jet OLEDB:Global Bulk Transactions=1"
  
  this is your connection string...
• k4korny

  8 Aug 05, 01:15

  Try removing this part from the connection string:
  
  Jet OLEDB: Database Locking Mode=1;
  
  can??
• the.raven

  8 Aug 05, 03:51

  whoa chim.
• m)phosis

  8 Aug 05, 12:11

  Originally posted by k4korny:

  Try removing this part from the connection string:
  
  Jet OLEDB: Database Locking Mode=1;
  
  can??

  same error lei
  
  Server Error in '/project' Application.
  --------------------------------------------------------------------------------
  
  Could not lock file.
  Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.
  
  Exception Details: System.Data.OleDb.OleDbException: Could not lock file.
  
  Source Error:
  
  Line 103: Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Line 104: 'Put user code to initialize the page here
  Line 105: OleDbConnection1.Open()
  Line 106:
  Line 107: Dim OleDbCommand1 As OleDb.OleDbCommand
  
  
• k4korny

  8 Aug 05, 14:53

  check your pm?
• kaobeikaobu

  8 Aug 05, 15:25

  any corresponding .ldb file currently in your folder? delete it if any..
  second, db file damaged probably...
• findingnewidea

  8 Aug 05, 17:53

  you need to have correct permission to access the file.
  
  try admin account
  
  try setting the file permission to allow everyone to access.