Start New Discussion within our Software Development Community

Hi everyone,
I'm creating a booking application for a hotel and have encountered an error on the following code;

Public Class Seaside_Hotel_DB
    Dim dbconn As OleDb.OleDbConnection
    Dim dbcmd As New OleDb.OleDbCommand
    Dim dbread As OleDb.OleDbDataReader
    Dim spath As String
    Public Sub New()
        spath = Application.StartupPath
        spath = spath.Replace("\bin\Debug", "")
        spath = spath + "\Seaside Hotel.mdb"
        dbconn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & spath & ";Persist Security Info=True")
    End Sub
    Public Function NewClient(ByVal cname As String, ByVal adr As String, ByVal city As String, ByVal pcode As Int32, ByVal phone As String) As Boolean
        Dim query As String
            query = "insert into Customer (CustName,Address,City,PostCode,Phone) values ('" & cname & "','" & adr & "','" & city & "'," & pcode & ",'" & phone & "')"
            dbcmd = New OleDb.OleDbCommand(query, dbconn)
            Return True
        Catch ex As OleDb.OleDbException
            Return False
        End Try
    End Function

The error is the in the public function New Client.

Your assistance will be appreciated.

Many thanks

This error may relate to which excel edition you use or you can choose another provider instead "Microsoft.Jet.OLEDB.4.0"

Your database path setup looks a bit odd.
do a


just before the command and see if the database is stored at the path that is shown in the messagebox.

Try to put your database in the same location as your application and run it again.

This question has already been answered. Start a new discussion instead.