eVB - ActiveX component cannot be created

Hi

I've been issued with some eVB code which I need to get working... when I run the code the app fails 'ActiveX component cannot be
created' has anyone ever come across the same problem using
embedded VB code..........

Code:

---

Private Sub CreateDB()
Dim cat As ADOCE.Catalog

  'Create the database
  Set cat = CreateObject("ADOCE.Catalog.3.1") 'errors on this line
  cat.Create gSQLEProvider + gFullFileSpec
  Set cat = Nothing

End Sub

---

Thanks

Yes i have seen it lots lol. The way I usually try to fix it first is by removing the reference saving then readding the reference then save. That should do it. Always fixed the problem for me.

Another thing to think about: you have "ADOCE.Catalog.3.1", which assumes version 3.1 is available.

I don't know how essential it is to use that particular version, but it might not be installed.

Tek and Si_the_geek...I have tried your suggestions and none of
them appear to work....the reference activeX is adoce31.dll.

Have you any other suggestions.....I'm actually thinking about
re-installing Evb...do you think this will make a difference!!

Thanks
;) ;)

it's more likely to be the ado installation that has problems (if it's separate from eVB)

if it isn't separate, then yep.. reinstall eVB ;) ;)

and if it is seperate would you download again from Microsoft..??

;) ;) ;) ;)

i'd try a local copy first (if you have one), but then go to MS ;) ;) :p ;)

*DAMM* *BLAST* :( :( I cannot get it to work....This is a pain in
the A**e.... on my PC I have active sync, SQL Server CE, EVB and IIS.....The HH scanner will be used to connect to a DB on our SQL server download some info and then write back to the DB.....Now to get all communicating
a) Do I need to setup something in IIS? if so what?
c) Do I need to create a SQL replication?

Thanks

:( ;) ;)

erm.. no idea!! never actually done any eVB.


i can't answer a) or c), but heres the answer to b) :

;) :( ;)




:wave:

here's my answer to a, b, and c

:confused: :confused: :confused: :confused: :confused: :confused
: :confused: :confused: :confused:

Thanks for your help!!!

:( :( :( ;) ;)

Hi,

This is the code you wrer given:


Private Sub CreateDB()
Dim cat As ADOCE.Catalog

'Create the database
Set cat = CreateObject("ADOCE.Catalog.3.1") 'errors on this line
cat.Create gSQLEProvider + gFullFileSpec
Set cat = Nothing

End Sub

("ADOCE.Catalog.3.1") should be:

("ADOCE.Connection.3.0").