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
        Try
            dbconn.Open()
            query = "insert into Customer (CustName,Address,City,PostCode,Phone) values ('" & cname & "','" & adr & "','" & city & "'," & pcode & ",'" & phone & "')"
            dbcmd = New OleDb.OleDbCommand(query, dbconn)
            dbcmd.ExecuteNonQuery()
            dbconn.Close()
            Return True
        Catch ex As OleDb.OleDbException
            Return False
        End Try
    End Function

The error is the dbconn.open() in the public function New Client.

Your assistance will be appreciated.

Many thanks

Hi Yung,

What is the error message?

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

MsgBox(dbconn.DataSource)

just before the dbconn.open() 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.

OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & spath & ";Persist Security Info=True")

Your connection string might be incorrect, it looks like it is missing some things.

Here is a good reference for connection strings:

http://www.connectionstrings.com/excel

Thanks everyone, the app is good to go.

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.