---

Ich habe mein Access 2010 Frontend erfolgreich an den MS SQL Server verbunden, kann lesen und schreiben von meinem Access Frontend. Mit dem VBA Enabler im AutoCAD 2015 möchte ich nun auf die SQL Datenbank ebenfalls schreiben und Lesen können.
Hat jemand eine Lösung?, mit der Access Jet Engine hatte ich das folgendermassen realisiert:

Code:

---

' ZV mit der geladenen Zeichnung lesen und in frmEditAttrX eintragen
' Attribute von MS Access holen und in der Form einlesen
Dim oConnect As New ADODB.Connection
Dim oRecSet As New ADODB.Recordset
Dim strDWG As String
Dim sSQL As String
Dim dwgPrefix As String
Dim dwgName As String
Dim DWGpath As String
Dim coderesult As Integer
Dim RecCnt As Long
Dim i As Long

' welche Zeichnung is im Autocad geladen?
strDWG = ThisDrawing.GetVariable("dwgname")
strDWG = Mid(strDWG, 1, (Len(strDWG) - 4))

' build ADO connection string
oConnect.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data"

' MS Access Datenbank Verbindungspfad
oConnect.Properties("Data Source") = "L:\x\xx.mdb"
oConnect.Open

' build the recordset
oRecSet.CursorLocation = adUseClient
oRecSet.CursorType = adOpenKeyset
oRecSet.LockType = adLockOptimistic
sSQL = "Select * From [tbl_Zeichnungen];"
oRecSet.Open sSQL, oConnect

oRecSet.MoveFirst

oRecSet.Find "[F23] = '" & strDWG & "'"
'MsgBox "Gefunden mit .Find " & oRecSet!F23 & "  mit find.. d " & strDWG

If Not oRecSet.EOF Then ' found a record matching current block ref
    dwgPrefix = ThisDrawing.GetVariable("dwgprefix")
    dwgName = ThisDrawing.GetVariable("dwgname")
    DWGpath = dwgPrefix & dwgName

        If Nz(oRecSet!F76, "") <> "" Then
          'MsgBox oRecSet!F76, , "SF-wechsel zu vorhandenem layout..."
          ThisDrawing.ActiveLayout = ThisDrawing.Layouts(Nz(oRecSet!F76, ""))
          'MsgBox ThisDrawing.Layouts.Count, , "Anzahl Layouts"
        End If
       
    ' requires update ?
    'If oRecSet!requpd = False Then
    If oRecSet!optAction = 0 Then
        'MsgBox "Zeichnung braucht kein update", vbInformation, dwgPrefix & dwgName
        Set oRecSet = Nothing
        Set oConnect = Nothing
        Unload frmEditAttrX
        Exit Sub
    End If

---

Danke für eure Hilfe!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nicht VBA, aber der Zugriff via ADO auf den SQL Server sollte dir ggf. auch nach Übertragen dieses Beispiels gelingen.

[EDIT] Link geflickt

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

[Diese Nachricht wurde von CAD-Huebner am 06. Jan. 2016 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Herzlichen Dank für die schnelle Antwort. Der Link läuft leider ins Leere. Gibt es keine Möglichkeit mit VBA innerhalb AutoCAD auf eine SQL Server Datenbank zu verbinden?
Gruss Vitorio50

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

habe kein SQL Server laufen, aber hast du mal gesucht ?

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Udo
Besten Dank für den geflickten Link. Ich kenn mich mit .NET nicht aus und muss die Verbindung mit AutoCAD 2015 VBA Enabler realisieren. Ist das überhaupt möglich? Gruss und Danke Vitorio50

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Stelli1
Viel gesucht und viel gefunden, leider komm ich trotzdem nicht weiter. Danke trotzdem und Gruss Vitorio0

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP