Excel Debug

calstudent

New Member
Joined
Feb 11, 2019
Messages
1
Having an issue trying to debug someone's work, don't know this style of coding well and so not sure what is wrong here exactly but the error it says is user-defined type not defined, and I tried fixing this by defining it as a different declaration and that didn't work.
' Connect to the Reference Section table
Dim DBConn As ADODB.Connection
Set DBConn = New ADODB.Connection
DBConn.connectionstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & m_Database & "; Persist Security Info=False;"
DBConn.Open
 

Some videos you may like

Excel Facts

Bring active cell back into view
Start at A1 and select to A9999 while writing a formula, you can't see A1 anymore. Press Ctrl+Backspace to bring active cell into view.

Mentor82

Active Member
Joined
Dec 30, 2018
Messages
307
Hi,
I guess it's because you use early binding for declaring DBConn and there might not be set a reference for that. try one of two optooms:
1. In Visual Basic, from the Project menu, select References....
Select Microsoft ActiveX Data Objects x.x Library from the list. Verify that at least the following libraries are also selected:
Visual Basic for Applications
Visual Basic runtime objects and procedures
Visual Basic objects and procedures
OLE Automation
2. Change declararion from early binding to late bindimg declaration as shown below. In this case you no longer need the reference dll set but the disadvantage of that is that the code might work a bit slower and yhe intellisence will not work for late binding.
Let me know if that helped, cause I have not debugged your code because
I'm writing this thread on the mobile.

Code:
Dim DBConn as object
Set DBConn=CreateObject("ADODB.Connection")
 

Watch MrExcel Video

Forum statistics

Threads
1,102,578
Messages
5,487,668
Members
407,609
Latest member
stellaa9x

This Week's Hot Topics

  • Timer in VBA - Stop, Start, Pause and Reset
    [CODE=vba][/CODE] Option Explicit Dim CmdStop As Boolean Dim Paused As Boolean Dim Start Dim TimerValue As Date Dim pausedTime As Date Sub...
  • how to updates multiple rows in muliselect listbox
    Hello everyone. I need help with below code. code is only chaning 1st row in mulitiselect list box. i know issue with code...
  • Delete Row from Table
    I am trying to delete a row from a table using VBA using a named range to find what I need to delete. My Range is finding the right cell. In the...
  • Assigning to a variable
    I have a for each block where I want to assign the value in column 5 of the found row to the variable Serv. [CODE=vba] For Each ws In...
  • Way to verify information
    Hi All, I don't know what to call this formula, and therefore can't search. I have a spreadsheet with information I want to reference...
  • Active Cell Address – Inactive Sheet
    How to use VBA to get the cell address of the active cell in an inactive worksheet and then place that cell address in a location on the current...
Top