DevHB

Hi, mal ne andere Frage: Kannst Du nicht einfach den IE schließen, den unten genannten Tip ausführen und den IE neu starten? Ansonsten such mal im Netz nach einer Möglichkeit, den Verlauf per Commandline zu löschen ("Verlauf löschen cmd"). Den Befehl das mit "Shell" ausführen. Mit VB Boardmitteln wirst Du nicht weiterkommen, es sei denn, Du lässt Dich auf die o.g. Möglichkeit ein (IE schließen, neu öffnen).

Hi, also 1.) Quellcode falsch abgetippt/kopiert, denn es muss - erst ein On Error Resume Next um die Behandlung auszuschalten - Command ausführen - Fehlerbehandlung wieder einschalten (On Error Goto 0) Du schaltest die Fehlerbehandlung ein! 2.) "Ungültiger Prozeduraufruf oder ungültiges Argument": Vielleicht solltest Du auch sagen, an welcher Stelle (Zeile) der Fehler auftritt.

Hi, das Problem an der Sache ist, dass der Verlauf kein "richtiger" Ordner ist. (Mach mal ein DOS Fenster auf und versuche damit den Zugriff ;-) ). Probier mal folgendes: Dim vShellDummy As Variant ' Fehlerbehandlung ausschalten On Error Resume Next vShellDummy = Shell("command.com /c deltree /y C:\Windows\Verlauf\*.*", vbHide) Call AppActivate(vShellDummy) ' Fehlerbehandlung einschalten On Error GoTo 0

Hi, ich glaube das geht nicht mit Kill, zumindest bei mir auch nicht. Event. ist das etwas für Dich: http://www.activevb.de/tipps/vb6tipps/tipp0600.html

Der Lüfter ist nachträglich draufgebaut worden, habe die günstig von nem Kumpel bekommen. Original war die wohl mit passiven Kühler.

bez. ECC: OK, schon mal ein Kriterium weniger, um das ich mir Sorgen machen muss. bez. AM2: Auch ok, kommt halt nur 1 CPU aufs Board, werde den Rechner dann erstmal ein paar Jahre (wenn natürlich möglich) nicht aufrüsten (außer event. Speicher/Platte, 2. GraKa).

Hi, @Mondling Die Zusammenstellung hört sich ja schon mal sehr gut an, passt fast auf meine. Zum Anwendungsgebiet: Ich weiß, viele werden sich jetzt denken, der hat doch nen Schaden, aber primär soll das Gerät zum Arbeiten sein. Da ich dafür aber relativ viele Dienste laufen habe (alleine SQLSvr05 zieht schon ordentlich Ressourcen) und primär mit VS 2005 entwickel, brauch ich schon ein wenig Performance. Da die nächste Zeit event. noch 3D Modellierung / Entwicklung ansteht noch ein Grund für die Stärke des Gerätes. Sicher werde ich auch spielen, jedoch ist das in den letzten Jahren eher sekundär geworden. So eine Zusammenstellung möchte ich haben, da ich keine Lust habe, wenn ich dann mal spielen will, mich ärgern zu müssen, das irgendwas nicht läuft (wie bei meinem aktuellen PC). Zu ECC: Ein Klassenkamerad meinte, die sollte man auf jeden Fall nehmen, daher die Auswahl. Wenn es aber keinen merkbaren Unterschied gibt, ist mir das auch Wurscht. Zu Lautstärke der GraKa: Ich bin mir z.B. auch nicht sicher, ob für meine Anforderungen nicht eine GraKa mit passivem Kühler reicht, da ich eh nicht viel spielen werde und wenn, dann auch nicht mehr als 5 Stunden. Da die GraKa beim Arbeiten ja eh nicht so viel gefordert wird, war der passive Kühler eine Überlegung wert. Meine akt. Karte (GeForce5600, 512 MB) hat einen aktiven Kühler mit 3-poligem Stromanschluss fürs Board und der rödelt doch schon ordentlich, was nach einiger Zeit schon stört.

Hi, das habe ich schon gemacht. Jedoch bin ich mir teilweise halt nicht sicher, ob die Komponenten wirklich gut zusammenpassen. Vielleicht hat ja jemand eine Zusammenstellung im Kopf, oder kann kurz umreißen, worauf ich achten sollte, was man nehmen sollte und was nicht. Vielen lieben Dank.

Guten Tag zusammen, ich möchte mir demnächst einen neuen Rechner kaufen (so bis max 1200€), jedoch habe ich mich so lange nicht mehr mit Hardware auseinandergesetzt, das vieles für mich doch ein wenig verwirrend / nicht deutlich ist. Ich habe folgende (ungefähre) Vorstellung von meinem PC: - AMD 64 CPU von 3,8 bis 4,4 GHz (optiomal dualcore) - ASUS Mainboard (PCIe 16x, SLI fähig, 2xDVI) [optimal: 2 CPUs möglich] - 2 GB (2x1024) Kingston/Corsair Speicher (möglichst ECC, hohe Taktrate) - GeforceFX 7800 mit 256 PCIe / SLI fähig Nun ist meine Frage, ob - jemand ein paar Tips für die Zusammenstellung geben kann (was nehmen, was nicht) - Empfehlung für GraKa (Gainward, MSI,...) - vielleicht kennt ja auch jemand einen Shop, in dem auch DAUs wie ich einkaufen können, in dem die Auswahl eines passenden Boards z.B. gefiltert nach CPU ist o.ä. Die Komponenten müssen nicht übertaktbar sein, jedoch sollten Lüfter / GraKa schon leiße sein. Mein grundlegendes Problem ist, dass ich z.B. nicht genau weiß, welches Board, CPU, RAM , Kühler man nehmen sollte (das der o.g. Spek entspr.). Würde mich über ein paar Tips freuen. Vielen lieben Dank.

Hi, ich meine, ich habe es damals auch anders gemacht. Jedoch war das nicht Version 11, sondern 9 oder 10. Ich schaue zu Hause nochmal nach. Ansonsten hab ich auch keine Ahnung mehr, sorry.

Hi, habe ich mich wohl ein wenig quer ausgedrückt, mit Datencontainer meine ich Dein Recordset. Schau Dir mal das Beispiel "MultiTab" an, falls Du es hast, wenn nicht, kann ich Dir das schicken.

Hi, mein Problem ist, dass ich folgende Eigenschaft gar nicht habe (ListLabelVB1.AutoDatasource). In den Beispielen durchlaufen die einen Datencontainer (Data.Recordset) und fügen dem Report die Werte hinzu. Eventuell ist das eine Möglichkeit ?

Hi, habe vor ein paar Jahren mal damit gearbeitet, aber das mit dem DataObject ist mir nicht bekannt. Welche Version verwendest Du? Habe mir grade mal testweise die 11er als Trial runtergeladen, aber auch nichts entspr. (DataSource) gefunden. Welches Control von L&L nimmst Du ?

Tja, das liegt wohl rein an Access. Das Problem habe ich schon seit einigen Jahren, daran sieht man, dass Access eben keine "richtige" Datenbank ist, sondern nur eine Art Flatfile mit Indexierung und ein paar Erweiterungen. Liegt die Datei im Netzwerk? Wird die Abfrage in Access ausgeführt oder durch ein Frontend (z.B. VB o.ä.)? Eventuell hast Du die Möglichkeit die Abfragen in sich nochmal zu splitten, um so die steigende DS-Anzahl zu verringern, kann man aber schwer als Außenstehender beurteilen.

Hi, irgendwie erkenne ich den Sinn des Parameters für die Funktion nicht, aber das ist ja erstma Wurscht. Zudem ist nicht ersichtlich woher "arrEinzelTeile" kommt und was Du mit der Funktion erreichen willst. Kann sein, dass Du mit UBound weiterkommst: 'Funktion Public Function GetArray(index As String) As String() Dim rs As Recordset Dim sql As String Dim array() As String sql = "select ... " Set rs = databaseVerschleiss.OpenRecordset(sql) If (Not (Rs Is Nothing)) Then With Rs If (Not (.EOF)) Then If (.RecordCount <> 0) Then ReDim arEinzelteile(.RecordCount - 1) GetArray = array End If End If End With End If End Function '---- Funktionsaufruf array = GetArray(index) If (UBound(array) >0) Then For Each value In array .. <tu etwas> ... Next End If Ansonsten mal hier schauen: FAQ 0067: Wie ermittle ich die Grenzen eines Feldes? http://www.activevb.de/rubriken/faq/faq0067.html

Hi, ob C++ oder NET ist keine leichte Entscheidung, jedoch habe ich gelesen, dass ein schlecht programmierter C++ Code nicht schneller und leistungsfähiger ist, als NET. Ansonsten schau mal hier ganz unter, vielleicht ist was dabei: http://www.activevb.de/tutorials/index-tutorials.html

Ok, vielen Dank für die Hilfe.

Guten Morgen zusammen, folgende Situation: Habe am 19.06 meine Prüfung bestanden und bin danach übernommen worden (Vertrag stand schon gut 2 Monate vorher fest). Ich habe jedoch für den Monat Juni ein komplettes Azubigehalt bekommen und für diesen Monat (Juli) eine Nachzahlung des Restgehaltes von Juni (als fest angest. Mitarbeiter). Nun habe ich das alles mal durchgerechnet und stelle fest: Ich habe einen Nachteil (durch die Lohnsteuer) von 200€, da die Nachzahlung auf mein jetztiges Gehalt oben drauf geht und somit die Lohnsteuer auch steigt. Wäre das Gehalt im Monat Juni abgerechnet worden, so hätte ich keine Lohnsteuer auf die Gehaltszahlung gezahlt. Nun ist meine Frage, ob ich einen rechtlichen Anspruch auf 2 Gehaltsabrechnungen bzw. Zahlungen habe ? [- ich würde sagen schon.] (anteiliges Gehalt von Juni und normale Abrechnung für diesen Monat). Problem könnte sein, dass dies softwarebedingt nicht möglich ist (von unserer Mutterfirma), aber das kann meiner Meinung nach nicht mein Problem sein, es sind immerhin 200€. Vielen Dank für Eure Antworten.

Hi, auf AccessDBs kannste mit ADO zugreifen (Projekt->Verweise->MS Active Data Objects XXX). Wie Du damit arbeitest, ist hier ausführlich beschrieben: Der große ADO Kurs: http://www.activevb.de/tutorials/tut_adokurs/adokurs.html Einige Tips: http://www.activevb.de/tipps/tipkat/kat9.html Ein sehr gutes Beispiel: URL: http://www.activevb.de/cgi-bin/upload/download.pl?id=2444

Hi, da haben meine Vorredner recht, folgende Grenzen gelten für den Datentyp "Date": Untergrenze = CDate("1.1.100") Obergrenze = CDate("31.12.9999 23:59:59")

Hi, sicher kann ADO reichen (in manchen Fällen reicht auch DAO anstatt ADO), doch hat ADO.NET ein neues Konzept und ist zukunftsicherer. Hier ein Artikel ("Was ist neu in ADO.NET?") http://www.aspheute.com/artikel/20001031.htm Wesentlicher Vorteil ist, dass ADO.NET verbindungslos arbeitet, d.h. die Daten werden im lokalen Speicher des Anwenders gehalten und man hat nicht ständig irgnedwelche Connections offen.

Hi, das kommt daher, dass Du die Word - Lib nicht eingebunden hast: Menü->Projekt->Verweise->Microsoft Word XX Lib : Haken setzen. Ansonsten schau Dir mal dies an, sehr informativ: http://www.activevb.de/rubriken/faq/faq0015.html

Hi, jipp, gibt es: *******. Man kann die Dateiendung (mdb) auf irgendwas ändern, Zugriff funktioniert trotzdem noch (zumindest mit VB/ADO/DAO o.ä).

--> Das kannst Du ja bequem über einen 2. Paremeter in der Funktion machen: Public Function get_free_install_id(ByRef oActiveCon As ADODB.Connection _ ) As Integer Dim lngFehler As Long Dim intInstallID As Integer --> HIER die Zuweisung Set modDatenbank.sqlQuery.ActiveConnection = oActiveCon --> modDatenbank.sqlQuery.CommandText = "select max(installations_id) from " & strQualifier & ".installationstabelle;" Set modDatenbank.rsValues = modDatenbank.sqlQuery.Execute On Error Resume Next intInstallID = CInt(modDatenbank.rsValues.Fields(0).Value) + 1 lngFehler = Err.Number On Error GoTo 0 If lngFehler <> 0 Then get_free_install_id = 1 Else get_free_install_id = intInstallID End If End Function Wie gesagt, mit "On Error Resume Next" vorsichtig umgehen, ein Error Handler sieht im Normalfall so aus (zumindest für VB 6): Private Function get_All_ID(ByRef oActiveCon As ADODb.Connection _ ) As Integer On Error GoTo Err_get_All_ID ' -----------------Procedure-Exit--------------- Exit_get_All_ID: ' --> Zerstörung von Objekten ' --> Set obj = Nothing o.ä. ' Prozedur verlassen Exit Function ' -----------------Err-Handler------------------ Err_get_All_ID: Call MsgBox("Fehler: " & Err.Number & vbCrLf & Err.Description, _ vbExclamation, "TITEL") ' Rückgabewert der Function ' = False o.ä. Resume Exit_get_All_ID End Function Seiteneffekte bei den CommonControls treten auch nur in bestimmten Fällen auf, hauptsächlich beim Zugriff aufs TreeView per API (SetWindowLong, Backcolor setzen etc...).