vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ADO.NET / Datenbanken
Re: SQL Abfrage AccessDatenbank in VB.net mit (aufwendigem?) Count 
Autor: Bloing
Datum: 05.03.18 14:12

Erstmal viiiiielen lieben Dank für die Hilfe an alle

Mein ganz besonderer Dank geht an Manfred X!
Mit deiner Lösung habe ich es hinbekommen - ultrageil! (freu mich grad schusselig )

So schaut jetzt mein funktionierender Code aus:

        Dim dt As New DataTable
        Dim dtx As DataTable
 
        With dt.Columns
            .Add("ID", GetType(Integer))
            .Add("P_Name", GetType(String))
            .Add("P_As", GetType(String))
        End With
 
        Try
 
            SQLstr = ("SELECT P_Name, P_As FROM Zeiterfassung")
            Mycn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data" & _
              "Source=" & sPfad & DbPw)
            Mycn.Open()
 
            Using cmd = New OleDbCommand(SQLstr, Mycn)
 
                Dim reader As OleDbDataReader = cmd.ExecuteReader()
                dt.Load(reader)
                reader.Close()
 
                'LINQ: Gruppieren/Sortieren und Zählen der Datensätze
                Dim q = From r As DataRow In dt.AsEnumerable
                        Let name As String = r("P_Name").ToString
                        Let schritt As String = r("P_As").ToString
                        Order By name, schritt
                        Group By name, schritt
                        Into Anzahl = Group, Count()
 
                'Listenelemente des anonymen Typs in die Sätze einer Datatable 
                ' eintragen
                dtx = dt.Clone
                dtx.Columns.Add("Anzahl", GetType(Integer))
 
                For i As Integer = 0 To q.Count - 1
                    dtx.Rows.Add(i, q(i).name, q(i).schritt, q(i).Count)
                Next i
 
                'Anzeigen
                DataGridView5.DataSource = dtx
                DataGridView5.Columns("ID").Visible = False
                DataGridView5.ClearSelection()
 
            End Using
            Mycn.Close()
 
        Catch ex As Exception
            MessageBox.Show(ex.Message & " - " & ex.Source)
        End Try
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
SQL Abfrage AccessDatenbank in VB.net mit (aufwendigem?) Cou...2.711Bloing01.03.18 10:58
Re: SQL Abfrage AccessDatenbank in VB.net mit (aufwendigem?)...1.578Franki04.03.18 06:09
Re: SQL Abfrage AccessDatenbank in VB.net mit (aufwendigem?)...1.641Manfred X04.03.18 08:16
Re: SQL Abfrage AccessDatenbank in VB.net mit (aufwendigem?)...1.619effeff04.03.18 22:49
Re: SQL Abfrage AccessDatenbank in VB.net mit (aufwendigem?)...1.535Bloing05.03.18 14:12
Re: SQL Abfrage AccessDatenbank in VB.net mit (aufwendigem?)...1.528Franki06.03.18 02:28
Re: SQL Abfrage AccessDatenbank in VB.net mit (aufwendigem?)...1.600Manfred X06.03.18 11:36
Re: SQL Abfrage AccessDatenbank in VB.net mit (aufwendigem?)...1.598Franki07.03.18 04:03
Re: SQL Abfrage AccessDatenbank in VB.net mit (aufwendigem?)...1.825Manfred X07.03.18 08:05

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel