Avatar billede SommerFyr Seniormester
15. januar 2017 - 13:17

Auto invoice

Hej jeg er ved at være træt af at holde øje med domains udløb dato og vil derfor gerne have lave det om sådan at jeg automatisk faktura system til min kunder..

Jeg

Mit script ser sådan ud..

        Public Sub AutoInvoice()
        Dim Conn As New MySqlConnection("server=localhost;database=mydb;uid=user;pwd=password;")
        'System_Abonnement
        'System_Abonnement_Line

        Try
            Conn.Open()
            Using Abonnement As New MySqlCommand("SELECT * FROM system_abonnement inner join debitor ON debitor.DebitorID=system_abonnement.DebitorID and (system_abonnement.AbonnementNext>=NOW() OR system_abonnement.AbonnementNext is null)", Conn)
                Using AbonnemCMD As MySqlDataReader = Abonnement.ExecuteReader()
                    While AbonnemCMD.Read()
                        If AbonnemCMD.HasRows Then
                            'Create Debitor_Order
                            'Oprettels af Order og modtage id til orderline

                            Using AbonnementLine As New MySqlCommand("SELECT * FROM system_abonnement_line WHERE AbonnementID=@ID", Conn)
                                AbonnementLine.Parameters.AddWithValue("@ID", AbonnemCMD("AbonnementID").ToString)
                                Using AbonnementLineCMD As MySqlDataReader = Abonnement.ExecuteReader()
                                    While AbonnementLineCMD.Read()
                                        'Create Debitor_Orderline

                                    End While
                                End Using
                            End Using
                            'Update system_abonnement to next
                            'UPDATE `system_abonnement` SET `AbonnementNext` = NOW() WHERE `system_abonnement`.`AbonnementID` = 1
                            Using MyAuto As New MySqlCommand("UPDATE `system_abonnement` SET `AbonnementNext`=NOW() WHERE `system_abonnement`.`AbonnementID`= @ID", Conn)
                                MyAuto.Parameters.AddWithValue("@ID", AbonnemCMD("AbonnementID").ToString)
                                MyAuto.ExecuteNonQuery()
                            End Using
                            'Udsend mails

                        End If
                    End While
                End Using
            End Using
        Catch ex As Exception
            Me.Label1.Text = ex.Message
        Finally
            Me.Label1.Text = "Done"
            Conn.Close()

        End Try


    End Sub

Jeg har problem at jeg ikke kan oprette order eller orderline samt pt problemer med at updater min auto

Håber der er en der er beder en mig til asp.net + mysql. som kan hjælpe mig vider..
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester