Kaeyu

Funktioniert es denn, wenn du die Statements direkt in Access abjagst? Kommentier testweise mal .setWarnings aus (Hochkomma). Ich bin mir nicht 100%ig sicher, aber möglicherweise funktioniert es hier wie "On Error Resume Next".

So, also leider habe ich immernoch keine Lösung für das Problem finden können. Ich konnte es nur weiter analysieren. Ich habe das Programm insgesamt 3 mal gestartet, bei jedem Start habe ich 10 mal den Button für die Erstellung der Diagramme angeklickt, mit folgenden Ergebnissen: Durchlauf Start 1 Start 2 Start 3 1: hängt hängt hängt 2: kein Problem kein Problem kein Problem 3: hängt hängt hängt 4: kein Problem kein Problem kein Problem 5: hängt hängt hängt 6: hängt hängt hängt 7: kein Problem kein Problem kein Problem 8: kein Problem kein Problem kein Problem 9: hängt hängt hängt 10: hängt hängt hängt Da ja anscheinend ein festes Muster vorhanden ist, habe ich es mir angetan alle Codezeilen mit Einzelschritten abzuarbeiten. Am Code liegt es defenitiv nicht. Er wird ohne Fehler komplett durchlaufen und am Ende läuft nurnoch ein Timer, der die Uhrzeit im Hauptprogramm aktualisiert - sonst nichts. Wie gesagt, unter älteren Versionen von Excel verliefen alle Tests erfolgreich. Nur Excel 2007 macht diese Probleme. Gibt es da evtl. Einstellungen die was Einschränken oder so?

Hm.... Ganz ehrlich? Eigentlich nicht. Schön, ich habe zwar ein wenig dazu gelernt und mich auch als Mensch weiterentwickelt. Wenn ich allerdings darüber nachdenke, was ich berufsspezifisches gelernt habe in den letzten 3 Jahren, dann würde ich sagen ich sehe nun ca 10% klarer in der IT-Welt. Natürlich, ein Großteil des Wissens kommt in den Jahren, aber das was ich bisher gelernt habe finde ich eindeutig wenig. Hätte ich vielleicht lieber Koch lernen sollen. Dann könnte ich was anderes außer Pizza und Nudeln kochen

Hallo, ich spiele aktuell ein wenig mit VB.Net rum. Habe mir eine Form gebaut die mir alle 10ms ein Bild (basierend auf PictureBox) erstellt, welches sich dann für 1000ms in der Form bewegt und sich dann selbst zerstört (eigene Klasse mit zusätzlichen Funktionen eines Timers). Ab ca. 20 Bildern sinkt die Framerate drastisch. Von einem Ausgangswert von 60 krückt das Programm nurnoch auf etwa 29~30 rum und das ist kein schöner Anblick Anfangs hat das Programm bis zu 40 Mb Arbeitsspeicher verschlungen. Nach einigen Optimierungen frisst es nicht mehr wie 14 Mb. Transparenz ist in keinem Bild vorhanden. Bei den Bildern handelt es sich um eine .GIF-Datei die 59 Bytes klein ist. Double Buffer auf true macht nix. Gibt es eine Möglichkeit, möglichst ohne DirectX oder anderen "Erweiterungen", die Performance zu erhöhen? Bzw. gibt es eine Möglichkeit die Grafikkarte hierfür einzubeziehen? Die Grafikkarte gurkt auf 0% Auslastung rum während das Programm läuft, daher wird sie sich wohl nicht um die Anzeige kümmern Bevor jetzt wer meint "Hol dir halt nen schnelleren Prozessor": Eine CPU mit mehr als 2.7 Ghz je Prozessor als Quadcore sollte keine Mindestanforderung für ein Programm sein. Hoffe auf Antworten^^

Ich glaube eher weniger, dass es am Quellcode liegt. Auf älteren Excel Versionen läuft es einwandfrei. Naja... Set xlApp = CreateObject("Excel.Application") Set xlWb = xlApp.Workbooks.Add Set xlWs = xlWb.Worksheets(1) xlApp.Visible = false xlApp.DisplayAlerts = False 'Variablen/Tabellenkopf ausgeben fldCount = Tabelle.Fields.count For iCol = 1 To fldCount xlWs.Cells(1, iCol).Value = Tabelle.Fields(iCol - 1).Name Next 'Daten kopieren 'ab Excel 2000 If Val(Mid(xlApp.Version, 1, InStr(1, xlApp.Version, ".") - 1)) > 8 Then xlWs.Cells(2, 1).CopyFromRecordset Tabelle Else 'vor Excel 2000 recArray = Tabelle.GetRows recCount = UBound(recArray, 2) + 1 For iCol = 0 To fldCount - 1 For iRow = 0 To recCount - 1 If IsDate(recArray(iCol, iRow)) Then recArray(iCol, iRow) = Format(recArray(iCol, iRow)) ElseIf IsArray(recArray(iCol, iRow)) Then recArray(iCol, iRow) = "Array Field" End If Next iRow Next iCol xlWs.Cells(2, 1).Resize(recCount, fldCount).Value = recArray End If xlApp.Range("E1").Select xlApp.ActiveCell.FormulaR1C1 = "Total" x = 2 For x = 2 To Tabelle.RecordCount + 1 xlApp.Range("E" & x).Select xlApp.ActiveCell.FormulaR1C1 = "=SUM(RC[-3]:RC[-1])" Next x xlApp.Columns("B:D").Select xlApp.Selection.EntireColumn.Hidden = True xlApp.Columns("E:E").Select xlApp.Selection.NumberFormat = "#,##0 [$€-1]" xlApp.Range("E2").Select xlApp.Selection.Sort Key1:=xlApp.Range("E2"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom xlApp.Range("A1").Select xlApp.Cells(1, 1).CurrentRegion.Select 'Excel-Diagramm hinzufügen: Set xlChart = xlApp.Charts.Add() xlChart.ChartType = xl3DPie 'xlChart.ChartType = xlBubble3DEffect xlChart.ChartTitle.Characters.Text = cmb_Jahr.Text & " " & cmb_gb.Text xlChart.ApplyDataLabels Type:=xlDataLabelsShowPercent, LegendKey:=False _ , HasLeaderLines:=True xlChart.PlotArea.Select With xlApp.Selection.Interior .ColorIndex = 2 .PatternColorIndex = 1 .Pattern = xlSolid End With With xlApp.Selection.Border .Weight = xlThin .LineStyle = xlNone End With xlChart.ChartArea.Select xlApp.Selection.AutoScaleFont = True With xlApp.Selection.Font .Name = "Arial" .FontStyle = "Fett" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic .Background = xlAutomatic End With With xlChart.TextBoxes.Add(360, 204, 86, 15) .Select .AutoSize = True .Text = "Country filter: " & Länder End With xlApp.Selection.ShapeRange.IncrementLeft -345.82 xlApp.Selection.ShapeRange.IncrementTop -194.4 xlApp.ActiveChart.ChartArea.Select xlApp.Visible = True xlApp.DisplayAlerts = False

Tag auch! Hab ein kleines Problem mit Excel. Undzwar hängt es sich in unregelmäßigen Abständen einfach auf. Aber nicht im Sinne von "Keine Rückmeldung..." oder "Das Programm reagiert nicht mehr". Vielmehr sieht es danach aus, dass Excel in einer Endlosschleife des Nichtstuns festhängt. Ich rufe Excel über mein Programm auf (VB6), um Daten aus einer Datenbank rüber nach Excel zu exportieren, um anschließend eine Pivot zu erstellen. Das Programm läuft auch ohne Probleme durch ist im Wartezustand für neue Befehle. Nurnoch Excel hängt noch. Zum Verhalten von Excel: Excel ist nicht zu schließen. Das geht nur, wenn man den Prozess killt. In Excel kann man normal weiterarbeiten. Cursor ist allerdings der "Wartekreis" bzw. die Sanduhr. Und in der Formelanzeige flackert der gesamte Text. Wie gesagt kommt das unregelmäßig vor. Aber im Schnitt würde ich sagen, von 10 Versuchen passiert es 3 Mal. Falls das Thema in den VB Bereich gehört, Entschuldigung! Bitte rüberschieben. Gruß Kaeyu

Stimmt, warum sind wir nicht früher darauf gekommen :upps Unter Win Xp funktioniert es so. Müssen es nurnoch unter Win7 und Vista testen. Danke

Hallo, ich habe hier ein Programm in VB6 geschrieben. Bei Benutzern mit Adminrechten läuft es problemlos. Bei allen anderen Benutzerarten startet es direkt mit Fehlern. Wenn ich den anderen Benutzern Rechte auf das Programmverzeichnis gebe funktionierts. Sicherlich kann man das auch irgendwie über das AD steuern, allerdings soll das Programm in verschiedenen Standorten eingesetzt werden und das würde bedeuten, dass dies in allen Filialen über das AD gesteuert werden müsste. Gibt es da evtl. eine bessere Lösung? Warum genau geht das eigentlich nicht? Es gibt reichlich Programme, welche auch ohne Adminrechte funktionsfähig sind. Liegt es an bestimmten Komponenten/Verweisen? Folgende Verweise verwende ich: - VB eigene .dlls (VBA, runtime obj. & procedures) - OLE automation - MS DAO 3.6 - Data Binding Collection - Data Environment Instance - MS ActiveX Data Obj. - MS Data Report Designer - MS Data Formatting Obj. Lib. - MS Excel 12.0 Obj. Lib. - MS Internet Controls - MS Scripting Runtime Komponenten: - Calendar - Common Dialog - Common Control - Databound List - Datagrid Control - MS Internet Controls - MS Multimedia Control - MS Tabbed Dialog Control - Softbutton - Vertical Menu - Data Environment - Data Report - DHTML Page - WebClass Danke!

Üben üben üben und nochmals, üben. Vor allem vorm Spiegel und vor anderen Leuten. Auch immer schön im stehen, nicht im sitzen, weil man keine Lust hat sich vor den Spiegel zu stellen. Im sitzen ist man eigentlich immer gelassener, daher stehen(!). Du solltest die ersten drei, vier Sätze im Schlaf können. Wenn die ersten Sätze sitzen, sitzt auch der Rest. Fängst du allerdings schon in den ersten Sätzen an zu stottern oder vergisst was du sagen willst, ist das sub-optimal. Von Beruhigungsmitteln, egal ob chemisch oder natürlich, kann ich nur abraten. Das kann nämlich ganz schön nach hinten losgehen. (Nein, keine persönliche Erfahrung. Aber ein Bekannter hat das mal versucht ). Die können eine ganz schön große Leere in deinem Kopf erschaffen. Ansonsten, in den letzten paar Tagen bloß den Kopf frei bekommen. Am besten einfach nur relaxen/Musik hören etc. //edit: man man man, die Hitze...ich kann nichtmal ordentlich schreiben

Dankeschön, funktioniert nun wunderbar!

Hallo auch, versuche grad ein kleines Spielchen zu programmieren. Dabei habe ich allerdings ein kleines Problemchen. Ich möchte eine Gerade rotieren lassen. Der Mittelpunkt soll fix sein und die beiden "Enden". Sollen sich drehen - quasi um die eigene Achse. Wie geht sowas theoretisch?

Finde 1,8 auch etwas wenig für 2 Jahre Berufserfahrung, als FIAE in doch einem recht großen Unternehmen. 1,8 ist bei uns das Einstiegsgehalt nach der Ausbildung zum Informatikkaufmann. Unternehmensgröße zwischen 250-300 Mitarbeitern.

Soll nicht böse gemeint sein, aber dieser Aufbau ist ja keine Weltneuheit - eher der Standard

Wenn ich dich richtig verstanden habe suchst du: [...] HAVING id_ort_neu = 0 ? Nehm dir am besten ein Buch oder eine online Manual dazu, wenn du noch keine Erfahrung mit SQL-Befehlen hast. Das bringt dir mehr als wenn du für jede 'Kleinigkeit' nachfragen musst

Quatsch. Bei mir fehlt GA1 auch und der Name ist auch nicht eingetragen (bei den Online Ergebnissen). Sieht bei dem Rest unserer Berufsschulklassen auch so aus

Schon ins Bios geschaut? Im Regelfall kannst du da auch Onboardfunktionen wie Sound und Grafik abstellen. //edit: Oder im Gerätemanager deaktivieren?

4 Riegel im Dualchannel? Ich dachte Dualchannel ist für 2 ausgelegt? Für 4 gibts Quadchannel.

Die Anlagen beziehen sich ja eigentlich auf das Anschreiben, da das deine Bewerbung ist. Daher würde ich diese auch nur in dem Anschreiben erwähnen. //edit: Anschreiben nach dem Deckblatt? Heißt es nicht 'Deckblatt'?

Blöde Frage, aber die IHK wird sich das wahrscheinlich auch stellen, wenn sie den Antrag liest: Was ist ein WDS-Server? Bei RIS hast du es ja zusätzlich ausgeschrieben

Hm? Also 'listeMitDateien' ist eine Listbox und 'txtSuchwort' ist die Textbox. einfach deine Objektnamen verwenden. Gruß, ~Raphael

Hallöchen, also du brauchst im Prinzip ja eine einfache Suche. Zum Bleistift sowas: Dim i As Integer Dim wasGefunden As Boolean For i = 0 To listeMitDateien.ListCount - 1 If InStr(1, listeMitDateien.List(i), txtSuchwort.Text) = 0 _ Or txtSuchwort.Text <> listeMitDateien.List(i) Then wasGefunden = False Else wasGefunden = True Exit For End If Next If Not wasGefunden Then MsgBox "Datei nicht in Liste gefunden" Else MsgBox "Datei gefunden" End If Damit sollte dein Problem dann auch gelöst sein. Der andere Teil sieht ok aus. Gruß, ~Raphael

Da kann ich mich meinen Vorrednern nur anschließen. Ich meine aber mit setPreferredSize sollte es auch funktionieren - zumindest beim FlowLayout.

Hallo tomthomsen, ich glaube du suchst so etwas: label1.setText(combobox.getSelectedItem().toString()); Eine If-Abfrage brauchst du ja garnicht, es seidenn du hast deinem ActionListener mehrere Objekte zugeordnet. Dann brauchst du natürlich eine Abfrage, die überprüft welches Objekt das ActionEvent ausgelöst hat. Gruß Raphael

Außen vorgelassen, dass man Quellcode in Code Tags posten und verständlich schreiben sollte... Du füllst nur dein Panel, nicht aber dein Fenster. Du musst schon dein Panel dem Fenster hinzufügen. [...]gbc.gridx=0; gbc.gridy=0; panel.add(litem,gbc); gbc.gridx=1; gbc.gridy=0; panel.add(tfitem,gbc); gbc.gridx=0; gbc.gridy=1; panel.add(ldeskripsi,gbc); gbc.gridx=1; gbc.gridy=1; panel.add(tfdeskripsi,gbc); gbc.gridx=0; gbc.gridy=2; panel.add(ljumlah,gbc); gbc.gridx=1; gbc.gridy=2; panel.add(tfjumlah,gbc); gbc.gridx=0; gbc.gridy=3; panel.add(bok,gbc); gbc.gridx=1; gbc.gridy=3; panel.add(bcancel,gbc);[...] add(panel);

Google gibt die Antwort The main Method in Java by Richard G Baldwin