Dear Users ,
While connecting to my database I run into the following error {System.____ComObject}
WHy?
Here is the code behind an action button..
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim DB As DAO.Database ' Decaration of database
Dim WS As DAO.Workspace 'Decaration of workspace used
Dim Main_TD As DAO.TableDef 'Decaration of Table definitions
Dim Main As DAO.Recordset
Dim Main_Dynaset As DAO.Recordset
'Dim db_Database As Object
Dim nStart As String
Dim nStop As String
Dim nItem As String
Dim strSQL As String
nStart = txtStart.Text
nStop = txtEnd.Text
nItem = CboItems.Text
'Open database
db_Database = DAODBEngine_definst.OpenDatabase("C:\DATA\ACCESS\1 3FloorEquipment.mdb")
'SELECT Requests.*FROM Requests;
'Main = db_Database.OpenRecordset("Requests", DAO.RecordsetTypeEnum.dbOpenTable)
'Main.Close()
strSQL = "SELECT * FROM [Requests]"
'Main = DB.OpenRecordset(strSQL, DAO.RecordsetTypeEnum.dbOpenDynaset)
Main = db_Database.openRecordset(strSQL, DAO.RecordsetTypeEnum.dbOpenDynaset)
Listbox1.Items.Add(Main)
db_Database.Close()
End Sub
***********
Also have UpgradeSupport
VB (Declaration) page
Module UpgradeSupport
Friend DAODBEngine_Definst As New DAO.DBEngine()
End Module