---

Hallo,

irgendwie stehe ich wieder auf dem Schlauch! Ich möchte ein Insert auf einer DB absetzen und habe dafür folgenden Code:

Code:

---

      ' Datenbank öffnen
      Set AKKWORKSPACE = CreateWorkspace("NewODBCWorkspace", DBUSER, DBPASS, dbUseODBC)
        Set VERBINDUNG = AKKWORKSPACE.OpenConnection("Connection1", , , _
            "ODBC;DATABASE=AKK;DSN=EKKECAD01;")
        Set qdfMaxZeichnungsnummer = VERBINDUNG.CreateQueryDef("")
        qdfMaxZeichnungsnummer.sql = "SELECT max(Zeichnungsnummern.Zeichnungsnummer) As Zeichnungsnummer FROM Zeichnungsnummern;"
        Set rstMaxZeichnungsnummer = qdfMaxZeichnungsnummer.OpenRecordset()
                    nummer_neu = CLng(rstMaxZeichnungsnummer.Fields("Zeichnungsnummer").Value) + 1
        nummer = CStr(Left(nummer_neu, 3)) & "." & CStr(Right(nummer_neu, 3))
        lblnr.Caption = nummer
        For Each oPropSet In oPropsets
          For Each oProp In oPropSet
              If oProp.name = "Zeichnungs-Nr." Then
                  oProp.Value = nummer
              End If
            Next
      Next
      Set qdfExport = VERBINDUNG.CreateQueryDef("")
      qdfExport.sql = "insert into Zeichnungsnummern (Zeichnungsnummer, Benennung, ACCUsername, ACCDatum, Datei) " & _
                      "values ('" & nummer & "', '" & lbldwg1.Caption & "', '" & STRUSER & "', '" & AKTDATUM & "', '" & datei & "')"
      qdfExport.Execute
      rstMaxZeichnungsnummer.Close
      VERBINDUNG.Close
      AKKWORKSPACE.Close
      Set AKKWORKSPACE = Nothing

---

Irgendwie scheint ACAD kein QueryDef zu kennen! Was mache ich falsch oder gibt es noch einen anderen Weg?

Gruß

Markus

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

---

Frage 1
ODBC Connection auch Schreibrechte ?

Frage 2
Kennt das RecordSetObject nicht ein  AddNew

RecordSetObject.AddNew
RecordSetObject.Fields("Feldname1").value="Value1"
RecordSetObject.Fields("Feldname2").value="Value2"
RecordSetObject.Fields("Feldname3").value="Value3"
...
RecordSetObject.Update

Das SELECT INTO kenne ich eigentlich nur mit einem komepltetten Querydefergeniss in eine neue leere Tabelle.

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

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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

---

Danke fuchsi!
Das Problem hat sich erldigt.
Man hat mi kurzzeitig die Schreibrecht entzogen. grrrr;

Gruß

Markus

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

---

Zitat:

---

Original erstellt von Stechi:
Danke fuchsi!
Das Problem hat sich erldigt.
Man hat mi kurzzeitig die Schreibrecht entzogen. grrrr;

Gruß

Markus

---

LOL. War wirklich meine erste Vermutung.
Da ich nämlich auf unseren Firmenrechnern die ODBC-Verbindung auf unsere Grossrechenanlage immer lediglich 'SELECT Only' einrichte
Obwohl mir das select into trotzdem nicht gefallen tut. Aber egal, wenn es funktioniert.

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

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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