Botao Guardar para varias tabelas

Batista15 · February 19, 2009 at 06:21 PM

Boas Pessoal, a minha questão e a seguinte, com este código guardo todos os campos que tenho na form mas em apenas uma tabela, e queria guardar o resto dos campos das outras tabelas alguem que me ajude? Thanks ;D

Ps. E as checkbocks estao em comentario porqe nao sei se sao em ValChar, Integer...

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try

            'Dim lm As String = "INSERT INTO `dados` (`Id_Cliente`, `Nome`, `Idade`, `Morada`, `Peso`, `Altura`, `Tipo_Diabetes`, `Insulinoterapia`, `IMC`, `Hiperlipidemia`, `Habitos_alcoolicos`, `Habitos_tabagicos`, `Hipertensao`, `Obesidade`, `Antecedentes_Pessoais`, `Auto_Vigilancia`, `Defice_Visual`, `Amputacao`, `Dialise`, `Enfarte`, `AVC`, `Lesao_pes`) VALUES ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"

            Dim lm As String = "INSERT INTO `dados` (`Id_Cliente`, `Nome`, `Idade`, `Morada`, `Peso`,`Altura`, `Tipo_Diabetes`, `IMC`) VALUES (?, ?, ?, ?, ?, ?, ?, ?)"

            ' Inicia uma ligação à base de dados
            Using connection As New OleDbConnection(pap.My.Settings.ligacao)

                ' Define o comando e os parâmetros
                Dim command As New OleDbCommand(lm, connection)

                'pergunta se quer guardar ou nao
                Dim msg = MsgBox("Pretende guardar o registo? ", MsgBoxStyle.YesNoCancel)
                If msg = MsgBoxResult.Yes Then

                    If Id_ClienteTextBox.Text.Trim <> String.Empty Then

                        command.Parameters.Add("Id_CLiente", OleDbType.Integer).Value = Id_ClienteTextBox.Text
                    Else
                        command.Parameters.Add("Id_Cliente", OleDbType.Integer).Value = 0
                    End If


                    command.Parameters.Add("Nome", OleDbType.VarChar).Value = NomeTextBox.Text()

                    If IdadeTextBox.Text.Trim <> String.Empty Then

                        command.Parameters.Add("Idade", OleDbType.Integer).Value = IdadeTextBox.Text
                    Else
                        command.Parameters.Add("Idade", OleDbType.Integer).Value = 0
                    End If

                    command.Parameters.Add("Morada", OleDbType.VarChar).Value = MoradaTextBox.Text()

                    If PesoTextBox.Text.Trim <> String.Empty Then

                        command.Parameters.Add("Peso", OleDbType.Integer).Value = PesoTextBox.Text
                    Else
                        command.Parameters.Add("Peso", OleDbType.Integer).Value = 0
                    End If



                    If AlturaMaskedTextBox.Text.Trim <> String.Empty Then

                        command.Parameters.Add("Altura", OleDbType.Decimal).Value = AlturaMaskedTextBox.Text
                    Else
                        command.Parameters.Add("Altura", OleDbType.Decimal).Value = 0
                    End If

                    If Tipo_DiabetesComboBox.Text.Trim <> String.Empty Then

                        command.Parameters.Add("Tipo_Diabetes", OleDbType.Integer).Value = Tipo_DiabetesComboBox.Text
                    Else
                        command.Parameters.Add("Tipo_Diabetes", OleDbType.Integer).Value = 0
                    End If


                    'command.Parameters.Add("Insulinoterapia", OleDbType.VarChar).Value = InsulinoterapiaCheckBox.Text()



                    command.Parameters.Add("IMC", OleDbType.Decimal).Value = IMCTextBox.Text()


                    



                    'command.Parameters.Add("Hiperlipidemia", OleDbType.VarChar).Value = HiperlipidemiaCheckBox.Text


                    'command.Parameters.Add("Habitos_alcoolicos", OleDbType.VarChar).Value = Habitos_alcoolicosCheckBox.Text

                    'command.Parameters.Add("Habitos_tabagicos", OleDbType.VarChar).Value = Habitos_tabagicosCheckBox.Text

                    'command.Parameters.Add("Hipertensao", OleDbType.VarChar).Value = HipertensaoCheckBox.Text()

                    'command.Parameters.Add("Obesidade", OleDbType.VarChar).Value = ObesidadeCheckBox.Text()

                    'command.Parameters.Add("Antecedentes_Pessoais", OleDbType.VarChar).Value = Antecedentes_PessoaisTextBox.Text()

                    'command.Parameters.Add("Auto_Vigilancia", OleDbType.VarChar).Value = Auto_VigilanciaCheckBox.Text()

                    'command.Parameters.Add("Defice_Visual", OleDbType.VarChar).Value = Defice_VisualCheckBox.Text()

                    'command.Parameters.Add("Amputacao", OleDbType.VarChar).Value = AmputacaoCheckBox.Text()

                    ' command.Parameters.Add("Dialise", OleDbType.VarChar).Value = DialiseCheckBox.Text()

                    'command.Parameters.Add("Enfarte", OleDbType.VarChar).Value = EnfarteCheckBox.Text()

                    'command.Parameters.Add("AVC", OleDbType.VarChar).Value = AVCCheckBox.Text()

                    'command.Parameters.Add("Lesao_pes", OleDbType.VarChar).Value = Lesao_pesCheckBox.Text()





                ElseIf msg = MsgBoxResult.No Then
                End If

                    If msg = MsgBoxResult.Cancel Then
                        Form1.Show()
                        Me.Close()

                    End If





                    ' Abre a ligação e insere o registo
                    connection.Open()
                    Dim x As Integer = command.ExecuteNonQuery()
                    If x <> 1 Then
                        Throw New ArgumentException("Não foi possível inserir o registo na base de dados!")

                    End If

            End Using

        Catch ex As Exception

            MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try
    End Sub

jpaulino · February 19, 2009 at 08:56 PM

Boas Pessoal, a minha questão e a seguinte, com este código guardo todos os campos que tenho na form mas em apenas uma tabela, e queria guardar o resto dos campos das outras tabelas alguem que me ajude? Thanks ;D

Só tens de fazer a mesma coisa para outra tabela, cou os campos que queres gravar, ou não entendi ?

Valadas · February 19, 2009 at 08:59 PM

Só tens de fazer a mesma coisa para outra tabela, cou os campos que queres gravar, ou não entendi ?

mas para isso ele nao tem de fazer uma nova ligaçao à bd!?

jpaulino · February 19, 2009 at 09:02 PM

mas para isso ele nao tem de fazer uma nova ligaçao à bd!?

Sim, mas neste caso, e para não complicar muito o código, é mail fácil criar dois subrotinas: uma para gravar na tabela x e outra para gravar na tabela y. Depois no evento click do botão chama as duas subrotinas.

Batista15 · February 19, 2009 at 09:02 PM

Pois, ja tentei mas da erro! Penso que como ja esta declarado um insert into nao da para mais! :S

anolsi · February 19, 2009 at 09:03 PM

E que erro dá?

Valadas · February 19, 2009 at 09:09 PM

Sim, mas neste caso, e para não complicar muito o código, é mail fácil criar dois subrotinas: uma para gravar na tabela x e outra para gravar na tabela y. Depois no evento click do botão chama as duas subrotinas.

sim realmente esta correcto o que disseste... fui confirmar e de facto funciona correctamente!! 😛

Batista15 · February 19, 2009 at 09:18 PM

Eu tou a preencher um inquerito! E depois na 2ª tabela a que tambem quero guardar os nomes repetem-se varias vezes na combobox e quando guardo o nome e sempre o mesmo, mesmo que mude o nome para todos os registos ?

Ivo Pereira · February 19, 2009 at 09:28 PM

e nesse 2º insert não estás a colocar o código assim deste estilo pois não?

Dim lm As String = "INSERT INTO `dados` (`Id_Cliente`, `Nome`, `Idade`, `Morada`, `Peso`,`Altura`, `Tipo_Diabetes`, `IMC`) VALUES (?, ?, ?, ?, ?, ?, ?, ?)"

se sim, aconselho-te que alteres o nome da variável no segundo insert por exemplo para:

Dim lm2 As String = "INSERT INTO `dados` (`Id_Cliente`, `Nome`, `Idade`, `Morada`, `Peso`,`Altura`, `Tipo_Diabetes`, `IMC`) VALUES (?, ?, ?, ?, ?, ?, ?, ?)"

Valadas · February 19, 2009 at 09:29 PM

desta maneira assima fazer duas rotinas, para nao repetir a pergunta se quer gravar so se pode meter na segunda rotina. e assim quer se meta nao ou cancelar vai sempre gravar a primeira rotina... :s

Batista15 · February 19, 2009 at 09:29 PM

e nesse 2º insert não estás a colocar o código assim deste estilo pois não?
Dim lm As String = "INSERT INTO `dados` (`Id_Cliente`, `Nome`, `Idade`, `Morada`, `Peso`,`Altura`, `Tipo_Diabetes`, `IMC`) VALUES (?, ?, ?, ?, ?, ?, ?, ?)"
se sim, aconselho-te que alteres o nome da variável no segundo insert por exemplo para:
Dim lm2 As String = "INSERT INTO `dados` (`Id_Cliente`, `Nome`, `Idade`, `Morada`, `Peso`,`Altura`, `Tipo_Diabetes`, `IMC`) VALUES (?, ?, ?, ?, ?, ?, ?, ?)"

Vou tentar, mas sim estava a fazer igual ao outro insert

Batista15 · February 19, 2009 at 09:33 PM

Ja tentei! Aquilo pergunta se quero guardar meto sim! Depois quando vou la aparece o nome que esta em 1º na combobox

jpaulino · February 19, 2009 at 10:06 PM

Mostra lá o codigo !

Batista15 · February 19, 2009 at 10:11 PM

Mostra lá o codigo !

1º O nome na combobox repete-se

2º depois se me puder dizer como declaro os checkbocks

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try

            'Dim lm As String = "INSERT INTO `dados` (`Id_Cliente`, `Nome`, `Idade`, `Morada`, `Peso`, `Altura`, `Tipo_Diabetes`, `Insulinoterapia`, `IMC`, `Hiperlipidemia`, `Habitos_alcoolicos`, `Habitos_tabagicos`, `Hipertensao`, `Obesidade`, `Antecedentes_Pessoais`, `Auto_Vigilancia`, `Defice_Visual`, `Amputacao`, `Dialise`, `Enfarte`, `AVC`, `Lesao_pes`) VALUES ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"

            Dim lm As String = "INSERT INTO `dados` (`Id_Cliente`, `Nome`, `Idade`, `Morada`, `Peso`,`Altura`, `Tipo_Diabetes`) VALUES (?, ?, ?, ?, ?, ?, ?)"

            ' Inicia uma ligação à base de dados
            Using connection As New OleDbConnection(pap.My.Settings.ligacao)

                ' Define o comando e os parâmetros
                Dim command As New OleDbCommand(lm, connection)

                'pergunta se quer guardar ou nao
                Dim msg = MsgBox("Pretende guardar o registo? ", MsgBoxStyle.YesNoCancel)
                If msg = MsgBoxResult.Yes Then

                    If Id_ClienteTextBox.Text.Trim <> String.Empty Then

                        command.Parameters.Add("Id_CLiente", OleDbType.Integer).Value = Id_ClienteTextBox.Text
                    Else
                        command.Parameters.Add("Id_Cliente", OleDbType.Integer).Value = 0
                    End If


                    command.Parameters.Add("Nome", OleDbType.VarChar).Value = NomeTextBox.Text()

                    If IdadeTextBox.Text.Trim <> String.Empty Then

                        command.Parameters.Add("Idade", OleDbType.Integer).Value = IdadeTextBox.Text
                    Else
                        command.Parameters.Add("Idade", OleDbType.Integer).Value = 0
                    End If

                    command.Parameters.Add("Morada", OleDbType.VarChar).Value = MoradaTextBox.Text()

                    If PesoTextBox.Text.Trim <> String.Empty Then

                        command.Parameters.Add("Peso", OleDbType.Integer).Value = PesoTextBox.Text
                    Else
                        command.Parameters.Add("Peso", OleDbType.Integer).Value = 0
                    End If



                    If AlturaMaskedTextBox.Text.Trim <> String.Empty Then

                        command.Parameters.Add("Altura", OleDbType.Decimal).Value = AlturaMaskedTextBox.Text
                    Else
                        command.Parameters.Add("Altura", OleDbType.Decimal).Value = 0
                    End If

                    If Tipo_DiabetesComboBox.Text.Trim <> String.Empty Then

                        command.Parameters.Add("Tipo_Diabetes", OleDbType.Integer).Value = Tipo_DiabetesComboBox.Text
                    Else
                        command.Parameters.Add("Tipo_Diabetes", OleDbType.Integer).Value = 0
                    End If


                    'command.Parameters.Add("Insulinoterapia", OleDbType.VarChar).Value = InsulinoterapiaCheckBox.Text()



                    'command.Parameters.Add("IMC", OleDbType.Decimal).Value = IMCTextBox.Text()


                    



                    'command.Parameters.Add("Hiperlipidemia", OleDbType.VarChar).Value = HiperlipidemiaCheckBox.Text


                    'command.Parameters.Add("Habitos_alcoolicos", OleDbType.VarChar).Value = Habitos_alcoolicosCheckBox.Text

                    'command.Parameters.Add("Habitos_tabagicos", OleDbType.VarChar).Value = Habitos_tabagicosCheckBox.Text

                    'command.Parameters.Add("Hipertensao", OleDbType.VarChar).Value = HipertensaoCheckBox.Text()

                    'command.Parameters.Add("Obesidade", OleDbType.VarChar).Value = ObesidadeCheckBox.Text()

                    'command.Parameters.Add("Antecedentes_Pessoais", OleDbType.VarChar).Value = Antecedentes_PessoaisTextBox.Text()

                    'command.Parameters.Add("Auto_Vigilancia", OleDbType.VarChar).Value = Auto_VigilanciaCheckBox.Text()

                    'command.Parameters.Add("Defice_Visual", OleDbType.VarChar).Value = Defice_VisualCheckBox.Text()

                    'command.Parameters.Add("Amputacao", OleDbType.VarChar).Value = AmputacaoCheckBox.Text()

                    ' command.Parameters.Add("Dialise", OleDbType.VarChar).Value = DialiseCheckBox.Text()

                    'command.Parameters.Add("Enfarte", OleDbType.VarChar).Value = EnfarteCheckBox.Text()

                    'command.Parameters.Add("AVC", OleDbType.VarChar).Value = AVCCheckBox.Text()

                    'command.Parameters.Add("Lesao_pes", OleDbType.VarChar).Value = Lesao_pesCheckBox.Text()





                ElseIf msg = MsgBoxResult.No Then
                End If

                    If msg = MsgBoxResult.Cancel Then
                        Form1.Show()
                        Me.Close()

                    End If





                    ' Abre a ligação e insere o registo
                    connection.Open()
                    Dim x As Integer = command.ExecuteNonQuery()
                    If x <> 1 Then
                        Throw New ArgumentException("Não foi possível inserir o registo na base de dados!")

                    End If

            End Using



        Catch ex As Exception

            MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try









        Try



            Dim lm2 As String = "INSERT INTO `medicamento` (`Nome_medicacao`) VALUES (?)"

            ' Inicia uma ligação à base de dados
            Using connection As New OleDbConnection(pap.My.Settings.ligacao)

                ' Define o comando e os parâmetros
                Dim command As New OleDbCommand(lm2, connection)

                'pergunta se quer guardar ou nao
                Dim msg = MsgBox("Pretende guardar o registo? ", MsgBoxStyle.YesNoCancel)
                If msg = MsgBoxResult.Yes Then



                    command.Parameters.Add("Nome_medicacao", OleDbType.VarChar).Value = Nome_medicacaoComboBox.Text








                ElseIf msg = MsgBoxResult.No Then
                End If

                If msg = MsgBoxResult.Cancel Then
                    Form1.Show()
                    Me.Close()

                End If





                ' Abre a ligação e insere o registo
                connection.Open()
                Dim x As Integer = command.ExecuteNonQuery()
                If x <> 1 Then
                    Throw New ArgumentException("Não foi possível inserir o registo na base de dados!")

                End If

            End Using









        Catch ex As Exception
            MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)


        End Try
    End Sub

Hellblazer · February 20, 2009 at 09:47 AM

isto:

Dim lm As String = "INSERT INTO `dados` (`Id_Cliente`, `Nome`, `Idade`, `Morada`, `Peso`,`Altura`, `Tipo_Diabetes`) VALUES (?, ?, ?, ?, ?, ?, ?)"

não é nada... ele apenas te mostrou o exemplo...

Queres algo do tipo:

Dim lm As String = "INSERT INTO dados (Id_Cliente, Nome, Idade, Morada, Peso,Altura, Tipo_Diabetes, IMC) VALUES (@Id_Cliente, @Nome, @Idade, @Morada, @Peso, @Altura, @Tipo_Diabetes, @IMC)"

            ' Inicia uma ligação à base de dados
            Using connection As New OleDbConnection(pap.My.Settings.ligacao)

                ' Define o comando e os parâmetros
                Dim command As New OleDbCommand(lm, connection)

                'pergunta se quer guardar ou nao
                Dim msg = MsgBox("Pretende guardar o registo? ", MsgBoxStyle.YesNoCancel)
                If msg = MsgBoxResult.Yes Then

                    If Id_ClienteTextBox.Text.Trim <> String.Empty Then

                        command.Parameters.Add("@Id_CLiente", OleDbType.Integer).Value = Id_ClienteTextBox.Text
                    Else
                        command.Parameters.Add("@Id_Cliente", OleDbType.Integer).Value = 0
                    End If


                    command.Parameters.Add("@Nome", OleDbType.VarChar).Value = NomeTextBox.Text()

                    If IdadeTextBox.Text.Trim <> String.Empty Then

                        command.Parameters.Add("@Idade", OleDbType.Integer).Value = IdadeTextBox.Text
                    Else
                        command.Parameters.Add("@Idade", OleDbType.Integer).Value = 0
                    End If

                    command.Parameters.Add("@Morada", OleDbType.VarChar).Value = MoradaTextBox.Text()

                    If PesoTextBox.Text.Trim <> String.Empty Then

                        command.Parameters.Add("@Peso", OleDbType.Integer).Value = PesoTextBox.Text
                    Else
                        command.Parameters.Add("@Peso", OleDbType.Integer).Value = 0
                    End If



                    If AlturaMaskedTextBox.Text.Trim <> String.Empty Then

                        command.Parameters.Add("@Altura", OleDbType.Decimal).Value = AlturaMaskedTextBox.Text
                    Else
                        command.Parameters.Add("@Altura", OleDbType.Decimal).Value = 0
                    End If

                    If Tipo_DiabetesComboBox.Text.Trim <> String.Empty Then

                        command.Parameters.Add("@Tipo_Diabetes", OleDbType.Integer).Value = Tipo_DiabetesComboBox.Text
                    Else
                        command.Parameters.Add("@Tipo_Diabetes", OleDbType.Integer).Value = 0
                    End If

                    command.Parameters.Add("@IMC", OleDbType.Decimal).Value = IMCTextBox.Text()

Batista15 · February 20, 2009 at 10:13 AM

isto:

Dim lm As String = "INSERT INTO `dados` (`Id_Cliente`, `Nome`, `Idade`, `Morada`, `Peso`,`Altura`, `Tipo_Diabetes`) VALUES (?, ?, ?, ?, ?, ?, ?)"

não é nada... ele apenas te mostrou o exemplo...

Queres algo do tipo:

Dim lm As String = "INSERT INTO dados (Id_Cliente, Nome, Idade, Morada, Peso,Altura, Tipo_Diabetes, IMC) VALUES (@Id_Cliente, @Nome, @Idade, @Morada, @Peso, @Altura, @Tipo_Diabetes, @IMC)"

            ' Inicia uma ligação à base de dados
            Using connection As New OleDbConnection(pap.My.Settings.ligacao)

                ' Define o comando e os parâmetros
                Dim command As New OleDbCommand(lm, connection)

                'pergunta se quer guardar ou nao
                Dim msg = MsgBox("Pretende guardar o registo? ", MsgBoxStyle.YesNoCancel)
                If msg = MsgBoxResult.Yes Then

                    If Id_ClienteTextBox.Text.Trim <> String.Empty Then

                        command.Parameters.Add("@Id_CLiente", OleDbType.Integer).Value = Id_ClienteTextBox.Text
                    Else
                        command.Parameters.Add("@Id_Cliente", OleDbType.Integer).Value = 0
                    End If


                    command.Parameters.Add("@Nome", OleDbType.VarChar).Value = NomeTextBox.Text()

                    If IdadeTextBox.Text.Trim <> String.Empty Then

                        command.Parameters.Add("@Idade", OleDbType.Integer).Value = IdadeTextBox.Text
                    Else
                        command.Parameters.Add("@Idade", OleDbType.Integer).Value = 0
                    End If

                    command.Parameters.Add("@Morada", OleDbType.VarChar).Value = MoradaTextBox.Text()

                    If PesoTextBox.Text.Trim <> String.Empty Then

                        command.Parameters.Add("@Peso", OleDbType.Integer).Value = PesoTextBox.Text
                    Else
                        command.Parameters.Add("@Peso", OleDbType.Integer).Value = 0
                    End If



                    If AlturaMaskedTextBox.Text.Trim <> String.Empty Then

                        command.Parameters.Add("@Altura", OleDbType.Decimal).Value = AlturaMaskedTextBox.Text
                    Else
                        command.Parameters.Add("@Altura", OleDbType.Decimal).Value = 0
                    End If

                    If Tipo_DiabetesComboBox.Text.Trim <> String.Empty Then

                        command.Parameters.Add("@Tipo_Diabetes", OleDbType.Integer).Value = Tipo_DiabetesComboBox.Text
                    Else
                        command.Parameters.Add("@Tipo_Diabetes", OleDbType.Integer).Value = 0
                    End If

                    command.Parameters.Add("@IMC", OleDbType.Decimal).Value = IMCTextBox.Text()

Devo me ter explicado mal! Essa parte ja esta, mas agora a parte da 2ª tabela que e uma combobox os nomes repetem se e o nome fica sempre o mesmo para todos os registo!

Batista15 · February 20, 2009 at 11:05 AM

Quando escolho um elemento da combobox adiciona novamente na combobox e tambem na base de dados, deve ser do novo try! Agora o problema e guardar o que escolhi na combobox!

2º qual a diferenca entre " ' " e " @ "!

O meu 2º Try esta bem feito? e que nao guarda

Hellblazer · February 20, 2009 at 11:52 AM

Quando escolho um elemento da combobox adiciona novamente na combobox e tambem na base de dados, deve ser do novo try! Agora o problema e guardar o que escolhi na combobox!

2º qual a diferenca entre " ' " e " @ "!

O meu 2º Try esta bem feito? e que nao guarda

Desculpa mas nao entendi o que disses-te 😕

Batista15 · February 20, 2009 at 11:57 AM

Desculpa mas nao entendi o que disses-te 🙂

E isto que me acontece! e ja tenho o campo

        Nome_medicacaoComboBox.Items.Clear()

😕

http://img172.imageshack.us/img172/4246/semttulonk9.jpg

E nao guarda! E isto que me esta a acontecer!

Hellblazer · February 20, 2009 at 12:53 PM

Reparei agora que estas a gravar o valor das comboas desta maneira:

Nome_medicacaoComboBox.Text

Tenta antes:

Nome_medicacaoComboBox.SelectedItem.Text

Botao Guardar para varias tabelas

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Important Information