---

Hallo Acad VBA Forum,
habe bis jetzt nur im Inventor rumgemacht und mit folgendem part. Code ein bisschen aus der SQL DB ausgelesen. Wie mache ich dieses mit Acad VBA??

Dim oDoc As Document
Set oDoc = ThisApplication.ActiveEditObject

If oDoc.DocumentType = kPartDocumentObject Then
    Dim conn As New Connection
    Dim recs As Recordsets
    Dim rec As New Recordset, f1, f2, f3 As Field
    Dim odateiname As String
     
    Dim sql$, i&
   
 
    conn.Open "Provider=MSDASQL;DSN=PPSTD"

...

Für jeden Hinweis dankbar
Gruß
Seher

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

---

Hallo Seher,

hier hast Du mal einen Ansatz, wie man mehrere Daten aus der Datenbank holen kann. Du mußt aber in der Form eine ADODB erstellen und diese bei den Eigenschaften mit der SQL-Datenbank verbinden. (siehe unter connectionString)

Public Sub GetZNRDB(??? As String)
   
    Dim SQLstring as string
    Dim Cn As ADODB.Connection
    Set Cn = New ADODB.Connection
   
    SQLstring = "Select * From Datenbank where Tabelle.Spalte = Variable"
    Cn.Provider = "SQLOLEDB.1"
    Cn.Properties("Data Source") = "Servername"
    Cn.Properties("Initial Catalog") = "Datenbankname"
    Cn.Properties("Integrated Security") = "SSPI"
    Cn.Open
   
    Dim RsT As New ADODB.Recordset
   
    On Error GoTo ende
   
    With RsT
        .ActiveConnection = Cn
        .CursorLocation = adUseClient
        .source = SQLstring
        .Open
   
    On Error GoTo 0
   
        Dim oTabField As Variant
        For Each oTabField In .Fields
        On Error Resume Next
            If oTabField.Value = "" Then
        On Error GoTo ende
            End If
            If oTabField.Name = "Spalte" Then
                    ??? = RTrim(oTabField.Value)
            End If
            If oTabField.Name = "Spalte" Then
                    ??? = RTrim(oTabField.Value)
            End If
        Next
ende:
    Cn.Close
    End With
 
End Sub

Hoffe es hilft Dir weiter...

------------------

cu
Heiko

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

---

Danke Heiko,
werde es am Wochenende mal ausprobieren. Geht dies auch mit DSN-Angabe? Dies hat mir bei der oberen Variante so gut gefallen.

Gruß
Seher

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

---

Das weiß ich leider nicht. Mußt Du dann mal ausprobieren. Viel Glück.

------------------

cu
Heiko

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

---

Das Reh
Das Reh springt hoch, das Reh springt weit.
Warum auch nicht - es hat ja Zeit!

Der Specht
Auf einem Baume saß ein Specht.
Der Baum war hoch - dem Specht war schlecht.

Also, Heinz Erhardt ist doch kein unbekannter - oder?

Gruß, Axel

------------------

Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze
Meine Überzeugung...

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

---

Hi Heiko76,
dein Beitrag hilft mir sehr weiter, ich habe nämlich fast das selbe Problem, bin aber zum einen kein VBA-Experte, und habe vor einer Woche angefangen, mich mit AutoCAD zu beschäftigen.
Ich habe eine SQL-Datenbank in AutoCAD eingebunden, die für meine XRefs, bzw. Icons Werte bereitstellen soll, die dann mit einer Art Kombinationsfeld ausgewählt werden sollen. Die Datenbank steht auch schon, wie kann ich dieses mit einem VBA-Code realisieren? Dein Ansatz weiter oben hat mir schon sehr weitergeholfen, nur verstehe ich nicht, für was die ??? stehen und zum anderen,was du mit CN.Properties("Integrated Security") meinst, die User-ID oder das Passwort der Datenbank? Und wie ich dies syntaktisch richtig umsetze!!! :-)

Bis dann!!!

Dominik

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