DataGridView als Mail versenden, aber nur den aktuellen Monat!

  • VB.NET

Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von carwashbuxtehude.

    DataGridView als Mail versenden, aber nur den aktuellen Monat!

    Hi!

    Das versenden vom ganzen Inhalt funktioniert.
    Was muss ich anstellen, das nur der Inhalt des aktuellen Monats gesendet wird???


    VB.NET-Quellcode

    1. Try
    2. Msg.IsBodyHtml = True ' Im HTML-Format erstellen
    4. Msg.From = New MailAddress("info@.........de") ' Von
    5. Msg.To.Add("info@...................de") ' An
    6. Msg.Subject = "Test am: " & Date.Now.ToString ' Betreff
    8. ' Aus den DataGridView-Zeilen und Spalten eine HTML-Tabelle erstellen
    9. Msg.Body = TabelleStart & vbCrLf
    11. Zeile = "<TR>"
    12. For Each S As DataGridViewColumn In DataGridView1.Columns ' Die Spaltenüberschriften auslesen
    13. Zeile = Zeile & "<TH>" & S.HeaderText & "</TH>"
    14. Next
    15. Zeile = Zeile & "</TR>" & vbCrLf
    16. Msg.Body = Msg.Body & Zeile
    18. For Each Z As DataGridViewRow In DataGridView1.Rows ' Für jede Zeile ...
    19. Zeile = "<TR>"
    20. For I As Integer = 0 To DataGridView1.ColumnCount - 1 ' ... die einzelnen Felder auslesen
    21. Zeile = Zeile & ZelleStart & Z.Cells(I).Value & ZelleEnde
    22. Next
    23. Zeile = Zeile & "</TR>" & vbCrLf
    24. Msg.Body = Msg.Body & Zeile
    25. Next
    26. Msg.Body = Msg.Body & TabelleEnde
    28. 'MessageBox.Show(Msg.Body, Date.Now.ToString)
    30. PostausgangsServer.Send(Msg) ' Nachricht verschicken
    31. MessageBox.Show("E-Mail erfolgreich versandt.", "Information", _
    32. MessageBoxButtons.OK, MessageBoxIcon.Information)
    34. Catch ex As Exception
    35. MessageBox.Show(Err.Number & ex.Message & ex.StackTrace.ToString) ' Falls ein Fehler auftritt
    36. End Try





    danke schon mal für die Hilfe..

    carwashbuxtehude schrieb:

    Was muss ich anstellen
    Zunächst mal sagen, was sonst noch so drin steht, dann die erste und die letzte Zeile des aktuellen Monats finden (falls die zusammenstehen) und alle Zeilen
    oder
    jede Zeile des aktuellen Monats einzeln (falls die gemixt sind)
    an die Ausgabe dranhängen. Feddich. :D
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hab versucht das DGV gleich zu filtern, bekomme beim ausführen des Filters immer die Meldung:

    Evaluate Exeption wurde nicht behandelt???

    Was muß ich tun, damit der Filter ausgeführt wird???

    So wird es gefüllt und funktioniert auch ohne Filter

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    3. TextBox1.Text = Format(Now, "d")
    7. Conn = New OleDbConnection
    8. Conn.ConnectionString = String.Concat(PROVIDER, DBPFAD, DBNAME)
    13. ds_Datum = New DataSet()
    14. dt_Datum = New DataTable("Datum")
    15. ds_Datum.Tables.Add(dt_Datum)
    16. da = New OleDbDataAdapter("", Conn)
    17. da.SelectCommand.CommandText = "SELECT Datum, Bearbeiter, Waschzahlen, Umsatzgesamt FROM Umsatzdaten11"
    18. da.SelectCommand.CommandType = CommandType.Text
    19. da.Fill(dt_Datum)
    23. dv = New DataView(ds_Datum.Tables("Datum"))
    24. DataGridView1.DataSource = dv
    27. Try
    28. TextBox1.Text = Format(Now, "d")
    30. 'filtern()
    32. Catch ex As Exception
    34. End Try
    36. End Sub




    So rufe ich den Filter auf und bekomme beim aufrufen die besagte Meldung!

    VB.NET-Quellcode

    1. dv.RowFilter = "Datum LIKE '" & TextBox1.Text _
    2. & "*' AND Bearbeiter LIKE '" & TextBox2.Text & "*'"



    Matthias
    Bilder

    • Bild1.JPG

      69,19 kB, 886×605, 182 mal angesehen

    Gute Frage!!
    Vielleicht habe ich auch nur wieder falsch gedacht. den Bearbeiter brauch ich im Filter gar nicht.
    Im DGV soll immer nur die Daten vom aktuellen Monat angezeigt werden.
    Also eine Combobox mit den Monaten von Januar bis Dezember falls man etwas in der Vergangenheit nachschauen will und Default immer auf den aktuellen Monat.

    Kleinen Tipp für mich?
    Matthias

    immerhin ist ein lauffähiges Codebeispiel dabei, bei dem auf Zeitwerte gefiltert wird.
    Das würde ich an deiner Stelle mir mal angugge tatsächlich versuchen zu verstehen.

    Man kann ja auch nachfragen...

    Edit: Ups - sry: das Sample mit ZeitFilter ist in Daten laden, speichern, verarbeiten, im DatasetOnly-Projekt.

    Es ist vom Prinzip her auch ganz simpel:

    VB.NET-Quellcode

    1. myBindingSource.Filter = "DatumSpalte > #9/11/2001# and DatumSpalte < #9/12/2001# "
    ergibt alle Datensätze von diesem Tag.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Habe einmal ein wenig ausprobiert.
    setze ich den Filter auf "Bearbeiter" geht es.
    Setze ich ihn auf "Datum", dann geht er nicht und schmeißt eine Meldung.
    EvaluateExeption wurde nicht behandelt

    Kann es der Grund vom Datumsformat sein.

    in die TextBox schreibe ich 07.02.2014

    in der Access Datenbank ist das Feld Datum als Felddatentyp Datum/Uhrzeit eingetragen.


    Mache ich etwas mit dem Datumsformat falsch???

    So lese ich Daten in DGV ein.

    VB.NET-Quellcode

    1. Private Sub Anzeige() 'Was im DataGridView1 angezeigt werden soll
    2. Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Umsatzdaten11.accdb")
    3. Dim cmdStr As String = "SELECT Datum,Bearbeiter,Waschzahlen,Umsatzgesamt,Aufbereitung,Anhaenger,Festangestellte, Aushilfen,Stillstand,Barausgabe,BarAushilfen FROM Umsatzdaten11"
    4. Dim cmd As New OleDbCommand(cmdStr, conn)
    6. Dim da As New OleDbDataAdapter(cmd)
    7. Dim ds As New DataSet()
    8. conn.Open()
    9. da.Fill(ds, "Umsatzdaten11")
    10. conn.Close()
    11. DataGridView2.DataSource = ds
    12. DataGridView2.DataMember = "Umsatzdaten11"
    13. Dim summe As Decimal = 0
    15. End Sub




    Jetzt muß ich doch noch eine BindingSource erstellen?

    naja - der ganze Ansatz ist nix, was ich unterstützen würde.
    Eine DB-Anwendung sollte nur ein einziges Dataset haben, und zwar ein typisiertes Dataset, und das sollte im Designer bereits aufs Form gepackt sein, und die DGVs sollten ebenfalls bereits im Designer dran angebunden sein.

    bei dir wird bei jeder Anzeige() ein neues Dataset erstellt, und zwar ein untypisiertes. Das ist keine Basis für eine Datenverarbeitung.

Facebook