vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

VB & Datenbanken
DB Inhalte in einer Listview mit Summe 
Autor: TZollo
Datum: 03.04.07 10:49

Hallo zusammen,

ich hoffe ich bin nicht wieder nur zu schusselig, aber ich weiss für mein Problem keine Lösung.

Also ich habe ein Formular, auf welchem zwei Listviews sind. In dem ersten Listview wähle ich z. B. eine Firma aus und im zweiten Listview werden dann automatisch alle Mitarbeiter dieser Firma aus einer DB angezeigt. Soweit so gut, jetzt möchte ich jedoch in einem Feld auf dem Formular (muss nicht im Listview sein) die Summe einer Spalte aus dem Listview anzeigen, weiss hier jemand Rat. Anbei der Code...
 
Private Sub ListView1_Click()
Dim CONNECT As New ADODB.Connection
Dim MITARBEITER As New ADODB.Recordset
Dim itmX As ListItem

On Error GoTo ListView1_Click_Error

If ListView1.ListItems.Count = 0 Then Exit Sub
Me.ListView2.Enabled = True

With CONNECT
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source").Value = App.Path & "\db1.mdb"
.Open
End With

MITARBEITER.ActiveConnection = CONNECT
MITARBEITER.CursorType = ADODB.CursorTypeEnum.adOpenStatic
MITARBEITER.LockType = ADODB.LockTypeEnum.adLockOptimistic
MITARBEITER.Source = ("Select * From Arbeitnehmer Where AGID =" & ListView1.SelectedItem.Text)
MITARBEITER.Open

Me.MerkeAG.Caption = MITARBEITER.Fields("AGID")

ListView2.ListItems.Clear

Do While Not MITARBEITER.EOF
Set itmX = ListView2.ListItems.Add(, , MITARBEITER!ANID)
itmX.SubItems(1) = MITARBEITER!ANName1 & ", " & MITARBEITER!ANVName1
itmX.SubItems(2) = MITARBEITER!UMWANDLUNG1
itmX.SubItems(3) = MITARBEITER!SVSPAREN2
itmX.SubItems(4) = MITARBEITER!SVSPARENjahr
MITARBEITER.MoveNext
Loop
lblAnzDatensätze2 = MITARBEITER.RecordCount & " Datensätze vorhanden."
 
Vielen Dank Thobias
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
DB Inhalte in einer Listview mit Summe1.669TZollo03.04.07 10:49
Re: DB Inhalte in einer Listview mit Summe1.166srcdbgr03.04.07 15:57
Ergänzung: DB Inhalte in einer Listview mit Summe1.086srcdbgr03.04.07 16:06
Re: Ergänzung: DB Inhalte in einer Listview mit Summe1.061TZollo04.04.07 08:53
Re: Ergänzung: DB Inhalte in einer Listview mit Summe1.091srcdbgr04.04.07 12:33
Re: Ergänzung: DB Inhalte in einer Listview mit Summe1.055TZollo04.04.07 14: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-2025 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