Hallo,
ist etwas OT, ich hoffe Ihr könnt mir das trotzdem verzeihen.
Ich benutze ein externes Stücklistensystem zur Artikelverwaltung.
Nun möchte ich im Inventor das Eintragen in diese externe Stücklisten-
Datenbank automatisieren, das soll folgendermasen ablaufen:
Im Inventor starte ich ein Abfrageformular, trage die nötigen Daten
ein, danach wird eine Artikelnummer generiert, ich bestätige
diese Nummer und der endgültige Eintrag in die Stücklisten-DB
wird erstellt. Zudem werden die iProperties des betreffenden
Bauteils oder Baugruppe automatisch abgeglichen.
Der Eintrag in die Datenbank funktioniert, allerdings wird in der
entsprechenden Tabelle ein Autowert(Autoincrement) generiert, diesen
benötige ich für den Eintrag in eine andere DB-Tabelle als Referenz.
Nur ich komme ums ferrecken nicht an diesen Wert
Als WA könnte ich eine neue Abfrage des Eintages starten, und mir
diesen Autowert dann geben lassen, ist aber
<CodeSchnippsel>
Dim Cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
...
...
'// Datenbankverbindung ueber ODBC aufbauen
With Cn
.ConnectionString = "ODBC;DSN=StkListe;SERVER=localhost;" _
& "DRIVER={Microsoft Access Driver (*.mdb)};" _
& "UID=root;PWD="
.Open
End With
...
...
sql = "...der SQL-Befehl"
Set rs = Cn.Execute(sql)
'// jetzt benötige ich den generierten Autowert
</CodeSchnippsel>
------
Erich
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP