VB und SQL Problem

  • VB6

    VB und SQL Problem

    Hallo Zusammen


    Hab ein kleines Problem. Und zwar folgendes: Ich habe in meinen Code zwei Abfragen gemacht. Diese Funktionieren soweit.

    Jetzt geht es aber darum, das aus der zweiten Abfrage nur noch ein Fälligkeitsdatum benötigt wird, welches jedoch mit der jeweiligen Person der oberen Abfrage übereinstimmen muss. Ebenso sind für jede Person immer 3-10 verschiedene Einträge gemacht, da es sich um Daten für Ratenzahlungen handelt.

    Ich möchte jetzt gerne die SQL-Abfragen verknüpfen, sodass dass das Datum zur richtigen Person kommt, sowie das letzte Datum ausgeben wird. Also das Datum der allerletzen Rate die Fällig wird.

    Hier schon mal mein Code:

    Visual Basic-Quellcode

    1. Private Sub Befehl130_Click()
    2. Dim Cn As New ADODB.Connection
    3. Cn.CursorLocation = adUseClient
    4. Cn.Mode = adModeShareDenyNone
    5. Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    6. Cn.ConnectionString = "Data Source=i:\LARIX\einw00.mdb"
    7. Cn.Open
    10. Dim Daten As New ADODB.Recordset
    11. Daten.CursorType = adOpenKeyset
    12. Daten.LockType = adLockPessimistic
    13. Dim Daten1 As New ADODB.Recordset
    14. Daten1.CursorLocation = adOpenKeyset
    15. Daten1.LockType = adLockPessimistic
    18. Dim Word As Object
    19. Set Word = CreateObject("word.application")
    20. With Word
    21. .Visible = True
    22. .WindowState = 1
    23. .Documents.Add ("C:\Dokumente und Einstellungen\Lucas.EWGZERMATT\Desktop\Stundungen.dotx")
    24. End With
    27. 'Select Befehl, welche Daten wollen wir? Syntax oben beschrieben'
    28. Daten.Open "SELECT LARIX_DB_VIEW_POSTE.NO_POSTE, LARIX_DB_VIEW_POSTE.DT_VALEUR, LARIX_DB_VIEW_POSTE.NO_RUBRIQUE, LARIX_DB_VIEW_POSTE.NO_DEBITEUR, LARIX_DB_VIEW_POSTE.PRENOM, LARIX_DB_VIEW_POSTE.NOM, LARIX_DB_VIEW_POSTE.ANNEE_PIECE, LARIX_DB_VIEW_POSTE.NO_PIECE, LARIX_DB_VIEW_POSTE.NO_PIECE_COMPL " & _
    29. "FROM LARIX_DB_STD_KOPF INNER JOIN LARIX_DB_VIEW_POSTE ON LARIX_DB_STD_KOPF.NO_POSTE = LARIX_DB_VIEW_POSTE.NO_POSTE " & _
    30. "GROUP BY LARIX_DB_VIEW_POSTE.DT_VALEUR, LARIX_DB_VIEW_POSTE.NO_RUBRIQUE, LARIX_DB_VIEW_POSTE.NO_DEBITEUR, LARIX_DB_VIEW_POSTE.PRENOM, LARIX_DB_VIEW_POSTE.NOM, LARIX_DB_VIEW_POSTE.ANNEE_PIECE, LARIX_DB_VIEW_POSTE.NO_PIECE, LARIX_DB_VIEW_POSTE.NO_PIECE_COMPL, LARIX_DB_STD_KOPF.END_DAT, LARIX_DB_VIEW_POSTE.ANNEE_PIECE, LARIX_DB_VIEW_POSTE.NO_PIECE " & _
    31. "ORDER BY LARIX_DB_VIEW_POSTE.NO_RUBRIQUE, LARIX_DB_STD_KOPF.END_DAT, LARIX_DB_VIEW_POSTE.ANNEE_PIECE, LARIX_DB_VIEW_POSTE.NO_PIECE", Cn
    33. Daten1.Open "SELECT LARIX_DB_STD_POS.NO_POSTE, LARIX_DB_STD_POS.DT_FAELLIG " & _
    34. "FROM LARIX_DB_STD_POS", Cn
    36. Cn.Close
    38. End Sub


    Versteht jmd. was ich meine? Und kann mir jmd weiterhelfen? Hab schon mal probiert mir einer IF-Bedingung das ganze zu erledigen, das schluckt er jedoch nicht.

    Freundliche Grüsse und hoffe auf Hilfe :)
    Lehrling91..