none
Auslesen einer AccessAbfrage und auf Inhalt prüfen mit VB.Net RRS feed

 > 

  • Frage

  • Question
    Anmelden
    0
    Anmelden

    Hallo,

    ich habe folgendes Problem: Ich möcht mit einem kleinen VB-Programm in eine Access-Abfrage schauen ob z.B. in Spalte 4 etwas drin steht wenn ja soll er mir den dazugehörigen Bericht drucken.

    Das Drucken des Berichts habe schon ich hinbekommen mit dem Code:

     Sub Main()

        Dim oAccess As Access.Application
        'Start a new instance of Access for Automation:
        oAccess = New Microsoft.Office.Interop.Access.Application()
        'Open a database in exclusive mode:
        oAccess.OpenCurrentDatabase(filepath:="M:\berichtgrundlage.mdb", Exclusive:=True)

        'Open and Print a Report
        oAccess.DoCmd.OpenReport(ReportName:="RMA_Belege", _
        View:=Access.AcView.acViewNormal)

        oAccess.Quit()
    End Sub

    Meine frage nun wie kann ich mit einer einfachen Verzweigung Prüfen ob in der Abfrage "RMA_Belege" etaws drinn steht.

    Vielen dank schon mal im Voraus.


    • Bearbeitet GG-HIG Donnerstag, 16. Februar 2012 09:12
    Donnerstag, 16. Februar 2012 09:11
    |

Antworten

  • Question
    Anmelden
    0
    Anmelden

    Hallo,

    hab es auch ohne eine Antwort geschafft. Für die, die ein Ähnliches Problem haben hier meine Lösung:

    Code:

     Dim conn As ADODB.Connection

        conn = New ADODB.Connection
        conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db.mdb")

        Dim rs As ADODB.Recordset
        rs = New ADODB.Recordset
        
        'Öffnen der Abfrage per SQL-Anweisung
        rs.Open("SELECT * FROM Abfrage", conn)
    
        'Vergleich od das Ende der Tabelle erreichtist
        '-> als Vergleich genutzt ob in der Tabelle 
        'etwas drin steht oder nicht
        If Not rs.EOF Then
       
            'was soll passieren
        End if
    Mir hat das schon gereicht ob die Tabelle/Abfrage gefüllt ist oder nicht.
    • Als Antwort markiert GG-HIG Freitag, 17. Februar 2012 07:43
    Freitag, 17. Februar 2012 07:41
    |