Dobrý den, každej měsíc se mi strhává předplatné na kartě 369 Kč a nejde to dohledat.

Ahoj Mateji,

zus se obratit na podporu Microsoft (idealne primo na billing), ti by ti mohli pomoci

MP

    Dim Pripojeni As New OleDb.OleDbConnection


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Pripojeni.ConnectionString = "Provider=Microsoft.ace.oledb.12.0;Data Source=plemenapsu.mdb"
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        VykonejSQL("SELECT psi.Jmeno, 
                    psi.Vek, 
                    Plemena.Plemeno FROM 
                    Plemena INNER JOIN psi 
                    ON Plemena.[IDPlemene] = psi.[PlemenoPsa]")

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim PrikazSQL As New OleDb.OleDbCommand("SELECT * FROM plemena", Pripojeni)
        Pripojeni.Open()
        Dim Balicek As OleDb.OleDbDataReader = PrikazSQL.ExecuteReader
        Do While Balicek.Read
            Dim NovyRadek As New ListViewItem({Balicek(0), Balicek(1)})
            ListView2.Items.Add(NovyRadek)
        Loop
        Pripojeni.Close()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        VykonejSQL("SELECT psi.Jmeno, 
                    psi.Vek, 
                    Plemena.Plemeno FROM 
                    Plemena INNER JOIN psi 
                    ON Plemena.[IDPlemene] = psi.[PlemenoPsa] ORDER BY psi.jmeno")

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        VykonejSQL("SELECT psi.Jmeno, 
                    psi.Vek, 
                    Plemena.Plemeno FROM 
                    Plemena INNER JOIN psi 
                    ON Plemena.[IDPlemene] = psi.[PlemenoPsa] ORDER BY psi.jmeno DESC")

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        VykonejSQL("SELECT psi.Jmeno, 
                    psi.Vek, 
                    Plemena.Plemeno FROM 
                    Plemena INNER JOIN psi 
                    ON Plemena.[IDPlemene] = psi.[PlemenoPsa] ORDER BY psi.vek")

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        VykonejSQL("SELECT psi.Jmeno, 
                    psi.Vek, 
                    Plemena.Plemeno FROM 
                    Plemena INNER JOIN psi 
                    ON Plemena.[IDPlemene] = psi.[PlemenoPsa] ORDER BY psi.vek DESC")

    End Sub


    Sub VykonejSQL(Prikaz As String)
        ListView1.Items.Clear()
        Dim PrikazSQL As New OleDb.OleDbCommand(Prikaz, Pripojeni)
        Pripojeni.Open()
        Dim CteckaDat As OleDb.OleDbDataReader = PrikazSQL.ExecuteReader
        Do While CteckaDat.Read
            Dim NovyRadekLV As New ListViewItem({CteckaDat(0),
                                                CteckaDat(1),
                                                CteckaDat(2)})

            ListView1.Items.Add(NovyRadekLV)
        Loop
        Pripojeni.Close()
    End Sub