_

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 72 razy

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

Powrót do Forum CAD

Kto przegląda forum

Użytkownicy przeglądający ten dział: Bing [Bot]