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

Question

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

Matej Vecicko 0

Každý měsíc se mi strhává platba 369 Kč, myslím si, že to je za gamepass, jenže nemůžu dohledat na jaký účet to je, abych to zrušil, zkoušel jsem každej email, ale marně.
Takže mi to měsíčně strhává peníze a ja to nemůžu ani využít.
Nevíte jestli by ten účet šel dohledat skrz číslo bankovní karty?
Děkuju moc

Odstraněné

Tento komentář byl odstraněn z důvodu porušení našich Pravidel chování. Komentář byl před provedením akce ručně nahlášen nebo identifikován prostřednictvím automatizovaného zjišťování. Více informací získáte, pokud si projdete naše Pravidla chování.

Odpovědi: 3

Vaše odpověď

Odstraněné

Tento komentář byl odstraněn z důvodu porušení našich Pravidel chování. Komentář byl před provedením akce ručně nahlášen nebo identifikován prostřednictvím automatizovaného zjišťování. Více informací získáte, pokud si projdete naše Pravidla chování.

Answer 1

Odstraněné

Tato odpověď byla odstraněna z důvodu porušení našich Pravidel chování. Odpověď byla nahlášena ručně nebo identifikována prostřednictvím automatizovaného zjišťování, než došlo k provedení akce. Více informací získáte, pokud si projdete naše Pravidla chování.

Komentáře byly vypnuty. Další informace

Answer 2

    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

Answer 3

Miroslav Pragl 78,946 Dobrovolný moderátor

Ahoj Mateji,

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

MP

Počet komentářů: 0