| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| Nahe an industriellen Realbedingungen, eine Pressemitteilung
|
Autor
|
Thema: ODBC - Abfrage (293 mal gelesen)
|
A.Rolf Mitglied Dipl.-Ing. (FH)
Beiträge: 16 Registriert: 06.03.2006
|
erstellt am: 10. Aug. 2006 10:16 <-- editieren / zitieren --> Unities abgeben:
Guten Morgen zusammen, folgendes Problem: Wir haben ein Script geschrieben, mit dem wir die Artikeltabelle einer externen Datenbank über ODBC abfragen wollen. Hierzu brauchen wir das Feld Artikelnummer aus DBWorks. Die Zeilen Set swApp = CreateObject ("SldWorks.Application") DBWInit(TRUE) ArtNr = DBWInput("ARTIKELNR") usw... liefern leider keinen Wert für ArtNr. Was tun? Es wäre toll wenn uns da jemand helfen könnte. mfg Alexander Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
nahe Ehrenmitglied
Beiträge: 1764 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 10. Aug. 2006 12:43 <-- editieren / zitieren --> Unities abgeben: Nur für A.Rolf
Hallo Alexander ich denke, dass das nur über die Funktion "DBWGetStringFieldData" funktioniert müsste meiner Meinung nach so funktionieren ------------------------------------------------ DBWInit(TRUE) call DBWShell( "CurrentDocument" ) if (okDBW = False) then exit sub docUId = DBWResult( "@DOCUMENT_UNIQUE_ID" ) if DBWGetStringFieldData("DBWORKS" ,"DOKUMENT", "ARTIKELNR" , "EINDEUTIGE_NR", docUId , sResult)=true then msgbox sResult else msgbox "nicht gefunden" end if ------------------------------------------------
------------------ Grüße Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
A.Rolf Mitglied Dipl.-Ing. (FH)
Beiträge: 16 Registriert: 06.03.2006
|
erstellt am: 10. Aug. 2006 16:19 <-- editieren / zitieren --> Unities abgeben:
|
A.Rolf Mitglied Dipl.-Ing. (FH)
Beiträge: 16 Registriert: 06.03.2006
|
erstellt am: 10. Aug. 2006 16:20 <-- editieren / zitieren --> Unities abgeben:
|
nahe Ehrenmitglied
Beiträge: 1764 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 11. Aug. 2006 07:10 <-- editieren / zitieren --> Unities abgeben: Nur für A.Rolf
Hallo Alexander anbei nochmals ein komplettes Script das bei mir funktioniert mit dem einzigen Unterschied, dass ich die Zeichnungsnummer das gerade gewählten Dokuments abfrage. Versuch mal ein anderes Feld abzufragen. Ich hab die Erfahung gemacht, dass es manchmal problematisch ist, wenn ein Feld den Wert NULL hat. Welche DBWORKS Version verwendet ihr? In welcher Tabelle der DBWORKS Datenbank ist das Feld ARTIKELNR enthalten? Wenn es nicht in der DOKUMENT Tabelles ist, dann musst Du natürlich auch den Tabellennamen anpassen sub main DBWInit(TRUE) call DBWShell( "CurrentDocument" ) if (okDBW = False) then exit sub end if docUId = DBWResult( "@DOCUMENT_UNIQUE_ID" ) if DBWGetStringFieldData("DBWORKS" ,"DOKUMENT", "Zeichnungsnummer" , "EINDEUTIGE_NR", docUId , sResult)=true then msgbox sResult else msgbox "nicht gefunden" end if end sub ------------------ Grüße Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BerndB Mitglied Ingenieur
Beiträge: 616 Registriert: 28.09.2001
|
erstellt am: 11. Aug. 2006 14:38 <-- editieren / zitieren --> Unities abgeben: Nur für A.Rolf
Hallo Alexander, 1. Wichtig wie wo wann benutzt ihr was als Skript. Danach richtet sich der Befehl den Ihr Braucht. Ist es eine .VBS die Ihr im LST Verzeichnis habt? Ist es ein Skript .vbs in der Shortcutbar oder unter der Rechten maus von DBW.... entweder geht dann DBWInput("ARTIKELNUMMER") oder DBWQUERYBYUID(UID,"ARTIKELNUMMER") In der API Hilfe stehen die Befehle. Hilfe unter DBWORKS\DBWCommandShell.chm
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |