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

When did Power Query debut in Excel?
Although it was an add-in in Excel 2010 & Excel 2013, Power Query became a part of Excel in 2016, in Data, Get & Transform Data.

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,042
Messages
5,484,348
Members
407,437
Latest member
alfaroM

This Week's Hot Topics

  • Finding issue in If elseif else with For each Loop
    Finding issue in If elseif else with For each Loop I have tried this below code but i'm getting in Y column filled with W005. Colud you please...
  • MsgBox Error
    Hi Guys, I have the below error show up when i try and run my macro in File1 but works fine if i copy and paste the same code into file2. [ATTACH...
  • CELL FORMAT - IF CONDITION
    My Cell Format is [B]""0.00" Cr". [/B]But in the cell, it is showing 123.00 for editing. (123 is entry figure). (Data imported from other...
  • Show numbers nearly the same
    Is this possible. I have a number that can change very time eg 0.00001234 Then I have a lot of numbers 0.0000001, 0.0000002, 0.00000004...
  • Please i need your help to create formula
    I need a formula in cell B8 to do this >>if b1=1 then multiply ( cell b8) by 10% ,if b1=2 multiply by 20%,if=3 multiply by 30%. Thank you in...
  • Got error while adding column and filter
    Got error while adding column and filter In column Z has some like "Success" and "Error". I want to add column in AA if the Z cell value is...
Top