_

VBA\ podłączenie pod .mdb

Forum ogólne, ale nie do zadawania "prostych pytań". Wszystko o CAD, czego nie da się bezpośrednio połączyć z tematyką jednego z poniższych forów tematycznych.

VBA\ podłączenie pod .mdb

Postprzez multicom7 » cze 28, 2017 14:22

Witam.

Chciałem częściowo przenieść skrypty z excela do autocada i zaciąłem się na podłączeniu bazy access.
Ten sam kod w excelu działa bez problemu... a w cadzie wysypuje. Próbowałem użyć kilka gotowców z internetu napisanych bezpośrednio pod autocada... ale niestety efekt jest ten sam.

Próbowałem kilka wariacji tego kodu ze zmianą deklaracji ale bez rezultatów.

Przykład1

Kod: Zaznacz cały
Sub testt()
'zapis do bazy aster
On Error GoTo myErr

Dim conn As ADODB.Connection
Dim cmd As ADODB.Command

'Replaced BY:
'Dim conn As Variant
Set conn = CreateObject("ADODB.Connection")
'Dim cmd As Variant
Set cmd = CreateObject("ADODB.Command")

'Set conn = New ADODB.Connection
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\BAZA.mdb;"
end sub


kończy się komunikatem "User-defined type not defined"

Przykład2

Kod: Zaznacz cały
Public wksObj As Object
Public dbsObj As Object
Public tblObj As Object
Public fldObj As Object
Public rstObj As Object


Sub Comm()

 Set wksObj = DBEngine.Workspaces(0)
 Set dbsObj = wksObj.CreateDatabase("C:\CADCAM-PACK\mydbase.mdb", dbLangGeneral)
 Set tblObj = dbsObj.CreateTableDef("mytable")
 With tblObj
 .Fields.Append .CreateField("text", dbText)
 .Fields.Append .CreateField("integer", dbInteger)
 .Fields.Append .CreateField("long", dbLong)
 .Fields.Append .CreateField("double", dbDouble)
 .Fields.Append .CreateField("boolean", dbBoolean)
 .Fields.Append .CreateField("memo", dbMemo)
 .Fields.Append .CreateField("currency", dbCurrency)
 .Fields.Append .CreateField("date", dbDate)
 End With
 dbsObj.TableDefs.Append tblObj
 dbsObj.TableDefs.Refresh
End Sub

konczy sie komunikatem "Actives component can't create object"

miał ktoś może podobny problem?

mam Win7 64

2.JPG
2.JPG (29.56 KiB) Przeglądane 437 razy

1.JPG
1.JPG (29.87 KiB) Przeglądane 437 razy
multicom7
 
Posty: 16
Dołączył(a): kwi 10, 2014 18:19

Re: VBA\ podłączenie pod .mdb

Postprzez pytelg » sie 07, 2018 08:46

Czołgiem!

Jest możliwe, że Microsoft coś dodaje swojego w Excelu w swoim tzw. środowisku uruchomieniowym. Zrobić kopię bezpieczeństwa, wyrzucić wszystko co się zrobiło i patrzeć w którym miejscu przestaje działać. Najprościej.
pytelg
 
Posty: 7
Dołączył(a): mar 27, 2015 19:42


Powrót do Forum CAD

Kto przegląda forum

Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników