Zum Inhalt springen

Lady1201

Mitglieder
 Profil anzeigen  Aktivitäten des Benutzers anzeigen

  • Gesamte Inhalte

    131

  • Benutzer seit

  • Letzter Besuch

 Inhaltstyp 

Beiträge von Lady1201

    eBooks

    in IT Allg./Literaturtipps IT-Berufe/BWL/Sonst. Fachl.

    Geschrieben

    Hi!

    Ich hoffe, ich kann dir mit meinen gesammelten Links weiterhelfen.

    --> Links direkt zu den Downloads zum Thema Programmieren

    http://mitglied.lycos.de/boxingshort/show.php?kategorie=1

    http://www.computer-literatur.de/buecher/Programmiersprachen_nachTitel.html

    --> Auf dieser Seite findest du Links zu allen möglichen Themen,

    u. a. auch zum Thema ebookz

    http://www.juergen.at/~bloodron/linksoben.html

    Ich hoffe, es ist das Richtige für dich dabei. Viel Glück bei der Suche!

    Lady

    Access und VB6

    in Delphi/RPG+CL/Sonstige

    Geschrieben

    Hallo nochmal!

    Habe es allein geschafft! Nach 100 Versuchen endlich der richtige Einfall!!

    Vielleicht interessiert sich jemand für die Lösung:

    Der Anfang ist genau wie oben, statt

    litEintrag.SubItems(8) = rs.Fields("Fakturierbar")

    habe ich dann einfach folgendes eingesetzt.

    strFakturierbar = rs.Fields("Fakturierbar")

    If strFakturierbar = True Then

    litEintrag.SubItems(8) = "x"

    Else

    litEintrag.SubItems(8) = ""

    End If

    Muss jetzt nur noch das x durch ein Häckchen ersetzten. Das werde ich wohl auch noch schaffen! :-))

    Access und VB6

    in Delphi/RPG+CL/Sonstige

    Geschrieben

    Hallo zusammen!

    Habe mal wieder ein Problem.

    Ich habe eine Tabelle in Access, in der ich über ein Ja/Nein-Feld eingebe, ob etwas Fakturierbar ist, oder nicht. Jetzt möchte ich über VB6 in einer Listbox ausgeben lassen, ob etwas fakturierbar ist. Dies funktioniert auch noch. Er gibt mir für fakturierbar wahr und für nicht fakturierbar falsch aus. So weit, so gut. Da dies aber auf die Dauer für viele Einträge recht unübersichtlich ist, würde ich gerne für nicht fakturierbar "nichts" ausgeben lassen und für fakturierbar ein Häckchen oder sonst was. Habe versucht über eine IF-Anweisung das Problem zu lösen und einen neuen Wert zuzuweisen. Da er aber die Daten in der Tabelle nicht überschreiben kann und es auch nicht darf, bekomme ich dann natürlich eine Fehlermeldung!

    Meine Frage:

    Wie bekomme ich es hin, dass ich den Wert in der Tabelle nicht ändern muss und er mir das ausgibt, was ich oben beschrieben habe (Häckchen = Wahr, Leeres Feld = Falsch)???? :confused:

    Der Teil des Codes, in dem ich meine Daten in einer Listbox ausgeben lasse:

    ListViewBearbeitung.View = lvwReport

    lblMitarbeiter.Caption = strUserName

    'Aufteilung der Listbox in die gewünschte Spaltenanzahl und

    Beschriftung der Spalten

    Set colX = ListViewBearbeitung.ColumnHeaders.Add()

    colX.Text = "Mitarbeiter"

    colX.Width = ListViewBearbeitung.Width / 9

    Set colX = ListViewBearbeitung.ColumnHeaders.Add()

    colX.Text = "BusinessUnit"

    colX.Width = ListViewBearbeitung.Width / 9

    Set colX = ListViewBearbeitung.ColumnHeaders.Add()

    colX.Text = "Bereich"

    colX.Width = ListViewBearbeitung.Width / 9

    Set colX = ListViewBearbeitung.ColumnHeaders.Add()

    colX.Text = "Taetigkeitsbereich"

    colX.Width = ListViewBearbeitung.Width / 9

    Set colX = ListViewBearbeitung.ColumnHeaders.Add()

    colX.Text = "Taetigkeit"

    colX.Width = ListViewBearbeitung.Width / 9

    Set colX = ListViewBearbeitung.ColumnHeaders.Add()

    colX.Text = "Erlaeuterung"

    colX.Width = ListViewBearbeitung.Width / 9

    Set colX = ListViewBearbeitung.ColumnHeaders.Add()

    colX.Text = "Datum"

    colX.Width = ListViewBearbeitung.Width / 9

    Set colX = ListViewBearbeitung.ColumnHeaders.Add()

    colX.Text = "Zeit"

    colX.Width = ListViewBearbeitung.Width / 9

    Set colX = ListViewBearbeitung.ColumnHeaders.Add()

    colX.Text = "Fakturierbar"

    colX.Width = ListViewBearbeitung.Width / 9

    Set db = OpenDatabase _

    (App.Path "\" "Arbeitsberichtsdatenbank.mdb")

    strSQL = "SELECT Uebersicht.Datum, BusinessUnit.Name AS _

    BusinessUnit, Bereiche.Name AS Bereich, Uebersicht.Zeit, _

    Taetigkeiten_kurz.Name AS Kurzbeschreibung, _

    Mitarbeiter.Name & ', ' & Mitarbeiter.Vorname AS _

    Mitarbeiter, Taetigkeiten_Lang.Name AS_

    Langbeschreibung, Uebersicht.Erlaeuterung,_

    Uebersicht.Fakturierbar FROM Taetigkeiten_Lang INNER_

    JOIN (Taetigkeiten_kurz INNER JOIN (Mitarbeiter INNER_

    JOIN (BusinessUnit INNER JOIN (Bereiche INNER JOIN_

    Uebersicht ON Bereiche.Bereichs_ID =_

    Uebersicht.Bereichs_ID) ON BusinessUnit.BusinessUnit_ID_

    = Uebersicht.BusinessUnit_ID) ON _

    Mitarbeiter.Mitarbeiter_ID = Uebersicht.Mitarbeiter_ID) ON_

    Taetigkeiten_kurz.Kurz_ID = Uebersicht.Kurz_ID) ON_

    Taetigkeiten_Lang.Lang_ID = Uebersicht.Lang_ID;"

    Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)

    'Wenn keine Einträge in der Access-Tabelle enthalten sind, ...

    If rs.EOF Then

    MsgBox ("Keine Ausgabe möglich, da keine Einträge_

    vorhanden!")

    Else

    'Ausgabe der Spalteneinträge aus der Accesstabelle in der_

    Listbox, bis alle Zeilen abgearbeitet sind

    rs.MoveFirst

    Do Until rs.EOF

    Set litEintrag = ListViewBearbeitung.ListItems.Add(, , _

    (rs.Fields("Mitarbeiter"))) 'Zeile

    litEintrag.SubItems(1) = rs.Fields("BusinessUnit")

    'BusinessUnit ist die Bezeichnung der Spalte in der Tabelle Uebersicht, in der die entsprechenden Daten gespeichet werden

    litEintrag.SubItems(2) = rs.Fields("Bereich")

    litEintrag.SubItems(3) = rs.Fields("Kurzbeschreibung")

    litEintrag.SubItems(4) = rs.Fields("Langbeschreibung")

    litEintrag.SubItems(5) = rs.Fields("Erlaeuterung")

    litEintrag.SubItems(6) = rs.Fields("Datum")

    litEintrag.SubItems(7) = rs.Fields("Zeit")

    litEintrag.SubItems(8) = rs.Fields("Fakturierbar")

    rs.MoveNext

    Loop

    End If

    Ich hoffe, ihr könnt mir helfen.

    VLG Lady

    Format in VB 6.0

    in Delphi/RPG+CL/Sonstige

    Geschrieben

    Hallo zusammen!

    Mein Problem:

    Möchte über ein Formular eine Zeit in Industriestunden eingeben. Die Eingabe soll immer in folgendem Format erfolgen: 3,25 bzw. 5,5 oder 6,75. Auf jeden Fall immer mit Komma!

    Wie ich das mit dem ,25 usw. hinbekomme weiß ich inzwischen. Aber wie kann ich z. B. bei einer Eingabe mit Punkt statt Komma den Punkt durch ein Komma ersetzen?

    Kann mir jemand eine Anweisung nennen/ schicken, die abfragt, ob sich ein Punkt in der Eingabe befindet und diesen durch ein Komma ersetzt? Oder kennt jemand eine bessere Lösung??????

    Danke schön

    Dokumentation für PC-Netzwerk Aufbau

    in Referate

    Geschrieben

    Hallo!

    Kann versuchen dir eine allgemeine Vorlage für Dokumentationen zu schicken, wenn du magst mit Bewertungsgrundlage.

    D. h.: Zum einen, aus welchen Teilen eine Dokumentation im Allgemeinen besteht, nicht speziell zu einem Thema und zum anderen, wie hoch die einzelnen Teile meist bewertet werden.

    Wir haben diese Unterlagen in der Berufsschule bekommen, als wir eine Dokumentation über TCP/IP schreiben sollten. Die kann ich dir gerne mitschicken, wenn du magst (Note: 1-).

    Wenn mein PC nicht wieder rumspinnt :rolleyes: schaffe ich es, dir die Sachen heute oder morgen zu schicken!

    VLG

    Referat über RAID-Systeme

    in Referate

    Zeiteingabe nur in bestimmtem Format

    in Delphi/RPG+CL/Sonstige

    Geschrieben

    Hallo!

    Möchte, dass der Benutzer meines Programmes in eine Textbox einen Zeitaufwand seiner Tätigkeiten eingibt. Dies soll in Industriestunden (z. B.: 1,5 h, 1,25 h) erfolgen und somit nur in diesem Format eine Eingabe möglich sein. Gibt der Benutzer stattdessen z. B. 0.67 oder sonstiges ein, so sollte eine Fehlermeldung ausgegeben werden.

    Bräuchte eben einen Tipp für die Formatvorgabe.

    Danke euch schon mal

    VLG

    Internet = Neustart

    in Anwendungssoftware

    Geschrieben

    Hallo!

    Habe da ein Problem! Habe mit November 2001 einen neuen Rechner gekauft, mit Betriebssystem Windows XP. Seitdem haben wir auch ISDN und ich gehe über das TSinus 61 K ins Internet. Jedoch bekomme ich nach einiger Zeit, die ich schon eifrig am surfen bin eine Meldung "Verbindung nicht möglich" und er bricht alles ab. Gibt er mir diese Fehlermeldung nicht, tut sich plötzlich gar nix mehr. Kann dann nicht mal mehr meinen Rechner auf normalem Wege runterfahren! Wenn er sich nicht auf diese beiden Arten verabschiedet, dann startet er sich eben ohne Vorwarnung einfach von alleine neu!

    Da ich dachte, es könne an XP liegen, und auch von vielen gehört habe, dass es wohl daran liegen würde, habe ich halt die Festplatte formatiert und Windows 2000 installiert.

    Doch die Freude am funktionstüchtigen Internetanschluss ist schon wieder getrübt. Nachdem ich jetzt seit wenigen Tagen endlich Windows 2000 installiert habe, hat er sich gestern beim Surfen doch schon wieder einfach neu gestartet!

    Woran um alles in der Welt liegt das denn? Da hat ja meine alte Kiste vorher (Pentium 100 mit Modem) besser funktioniert! Hat da zwar ewig lange gedauert, aber er net wenigstens net mittendrin abgebrochen!

    Wer kann mir helfen?

    Wäre euch echt dankbar!

    VLG Lady1201

    Dringend! Windows 98

    in Windows

    Geschrieben

    Hallo!

    Bräuchte dringend Infos über:

    - Voraussetzung

    - Installation

    - Konfiguration

    - Testverlauf

    Fall:

    Bei einem Peer-to-Peer-Netzwerk mit 4 Rechner soll Windows 98 eingesetzt werden! :rolleyes:

    Bitte um schnelle Antworten

    Besten Dank

    Lady 1201

    Buch für SQL-Einsteiger

    in Datenbanken

    Geschrieben

    Hallo!

    Suche ein Buch zum erlernen von SQL, d. h. ein Buch, dass so geschrieben ist, dass auch jemand, für den das Thema 'SQL' völliges Neuland ist, etwas verstehen bzw. lernen kann.

    Hat jemand einen Tip für mich?

    VLG Lady1201

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Links

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...