|
VBasic : von AUtoCaD in Access Datenbank schreiben
BloodyMess am 09.01.2005 um 19:03 Uhr (0)
Hallo Guido, hab Dir nen kleines Beispiel erstellt, welches Die zeigt, wie man was machen kann. Hab das über DAO gemacht (musst also noch über die Verweise mit einbinden). Code: Sub test() öffnen der Datenbank und anlegen einer Tabelle Dim db As Database Set db = OpenDatabase( C:db2.mdb ) Dim TabDef As TableDef Set TabDef = db.CreateTableDef( Test ) TabDef.Fields.Append TabDef.CreateField( Name , dbText) db.TableDefs.Append TabDef befüllen der Tabelle mit Einträgen Dim strSQL As String Dim strArray(3) ...
|
| In das Form VBasic wechseln |
|
VBasic : von AUtoCaD in Access Datenbank schreiben
BloodyMess am 11.01.2005 um 00:35 Uhr (0)
Hallo Guido, keine Frage, das WAS Du da machst funktioniert - nur WIE? Deinen Code würdest von mir zurückbekommen und müßtest nochmal machen. Hast Du Dir meinen Code überhaupt angeschaut? Um auf Access Datenbanken zuzugreifen kann man es so machen wie Du, oder man benutzt DAO, weil es für den Zugriff auf eine Access Datenbank optimiert ist. Ueberdenk Dir bitte mal die folgende Dinge in deinem Code : - die If Schleife mit der Sprungmarke hinter einem Else - irgendwie fraglich das Ganze - wozu ein Object von ...
|
| In das Form VBasic wechseln |
|
VBasic : AutoCad VBA Übungen zum Selbststudium
BloodyMess am 02.02.2005 um 14:43 Uhr (0)
Hallo Cadilac, mir ist kein Tutorial bekannt, welches sich mit VBA und AutoCAD beschäftigt. Da diese Makrosprache ursprünglich für das Officepaket entwickelt wurde gibt es auch einige Tutorials dafür. Um einen Einblick zu bekommen, würde ich Dir raten sowas zu machen. Wie man dann mit den speziellen Objekten und Eigenschaften von AutoCAD umgeht kann man sich dann sehr einfach aus der Hilfe oder hier im AutoCAD VBA Forum rausziehen. http://www.ti5.tu-harburg.de/manual/vba5/httoc.htm ... Gruss an Nancy ...
|
| In das Form VBasic wechseln |
|
VBasic : AvViewX --> Tollbar immer anzeigen
BloodyMess am 06.03.2005 um 19:39 Uhr (0)
Hallo Feyza, bin heute morgen davon ausgegangen, dass Du es aus Excel-VBA machen möchtest. Wenn Du nun allerdings VB6 benutzt und in AutoCAD eine Werkzeugleiste öffnen möchtest, sollte das mit diesem Code funktionieren. Als Beispiel die Toolbar Zeichnen . Code: Dim acMenuGrp As AcadMenuGroups Set acMenuGrp = AutoCAD.MenuGroups acMenuGrp.Item( ACAD ).Toolbars.Item( Draw ).Visible = True Gruss TP ------------------
|
| In das Form VBasic wechseln |
|
VBasic : AvViewX --> Tollbar immer anzeigen
BloodyMess am 04.04.2005 um 07:35 Uhr (0)
Hallo Feyza, habe die Version 2.01 verwendet, war allerdings auch VoloViewExpress! Eventuell findest Du die Datei ja wo anders oder schaust mal in deiner Befehlsübersicht ( F2 im VBAEditor) nach und findest eine ähnliche Methode in deinem VoloView. Die Datei vve201setup.exe liegt leider nicht mehr bei Autodesk auf dem Server, kann Sie Dir aber schicken, wenn Du magst ( ca. 25MB). Gruss TP ------------------
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
BloodyMess am 14.04.2005 um 15:05 Uhr (0)
Hallo Feyza, ein komplettes Beispiel, zum herunterladen, findest Du hier http://www.xcelfiles.com/Shell32_01.html . Mit einem klick auf GetWorkBook bekommst Du die ZipDatei. Es basiert zwar auf Excel, aber der Code in VB bleibt ja in etwa der Selbe. Gruss TP ------------------
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
BloodyMess am 14.04.2005 um 18:44 Uhr (0)
Hallo Feyza, beim debuggen findet er mit objFolder.GetDetailsOf(objFolder.items, i) die einzelnen Eigenschaften (Details) der Datei und schreibt diese in den Tabellenkopf. Dabei interessiert Dich aber nur, wenn Du den Besitzer haben möchtest -- objFolder.GetDetailsOf(objFolder.items, 8) ... hier steht der Eigentümer (Owner) der Datei drinnen. Bisher wurden also nur die Überschriften geschrieben. Ab jetzt wird es interessant ... Er steigt in die ForSchleife ein und zappt wieder durch die ganzen Details ...
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
BloodyMess am 14.04.2005 um 19:22 Uhr (0)
Hallo Feyza, wollte eigentlich etwas anderes machen, aber es hat mir keine Ruhe gelassen ... Code: Sub test() Dim objShell As Object Dim objFSO As New FileSystemObject Dim filFile As File Set filFile = objFSO.GetFile( C:Dokumente und EinstellungenTadeusPEigene DateienEigene BilderBeispiel.jpg ) Set objShell = CreateObject( Shell.Application ) Set objFolder = objShell.Namespace(filFile.Path) Debug.Print objFolder.GetDetailsOf(filFile.Path, 8) End Sub Voraussetzung ist ein Verweis auf die Microsoft ...
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
BloodyMess am 20.04.2005 um 09:51 Uhr (0)
Hi Feyza, nu freilich kann man das ... Code: myForm.myTextFeld.value = objFolder.GetDetailsOf(filFile.Path, 8) Gruss TP ------------------
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
BloodyMess am 20.04.2005 um 10:37 Uhr (0)
Hi Feyza, für ein TextFeld muss man keinen Verweis setzen! Kann es sein, das es kein Textfeld ist? Vielleicht ein Bezeichnungsfeld? Dann muss es myForm.MyLabel.Caption = ... heissen. Gruss TP ------------------
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
BloodyMess am 20.04.2005 um 12:07 Uhr (0)
Hi Feyza, mir ist wohl ein Fehler unterlaufen, weil auch ich nicht alles verstehe. Code: Dim objShell As Object Dim objFSO As New FileSystemObject Dim filFile As File Dim objFolder As Object Set filFile = objFSO.GetFile( C:TempSXE_LOG.html ) Set objShell = CreateObject( Shell.Application ) Set objFolder = objShell.NameSpace( filFile.ParentFolder.Path ) Form1.Label1.Caption = objFolder.GetDetailsOf(filFile.Path, 8) Form1.Text1.Text = objFolder.GetDetailsOf(filFile.Path, 8) probier es nochmal so ... ...
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
BloodyMess am 20.04.2005 um 13:20 Uhr (0)
Hallo Feyza, dann mach es erstmal wie oben beschrieben, über den Umweg, das Du nach der Datei abfragst. Mehr kann ich im Moment nicht tun. Stehe gerade auch auf dem Schlauch. Gruss TP ------------------
|
| In das Form VBasic wechseln |
|
VBasic : Besitzer einer Datei ermitteln
BloodyMess am 21.04.2005 um 09:09 Uhr (0)
Hi Feyza, um das Thema wieder aufzurollen ... ... versuch mal folgendes ... Code: sub ttt() Dim objShell As IShellDispatch2 Dim objFSO As FileSystemObject Dim strDir As String Dim objFolder As Folder Dim objFolder2 As Folder2 Dim test As FolderItem2 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("C:") strDir = CStr(objFolder) Set objShell = CreateObject("Shell.Application") Set objFolder2 = objShell.Namespace("" & strDir & "") Set test = objFolder2.ParseName(" ...
|
| In das Form VBasic wechseln |
