Botao Guardar para varias tabelas

February 19, 2009

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

February 19, 2009

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 ?

February 19, 2009

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!?

February 19, 2009

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.

February 19, 2009

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

February 19, 2009

E que erro dá?

February 19, 2009

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!!

February 19, 2009

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 🤔

February 19, 2009

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 (?, ?, ?, ?, ?, ?, ?, ?)"

February 19, 2009

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

February 19, 2009

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

February 19, 2009

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

February 19, 2009

Mostra lá o codigo !

February 19, 2009

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

February 20, 2009

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()

February 20, 2009

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!

February 20, 2009

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

February 20, 2009

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

February 20, 2009

Desculpa mas nao entendi o que disses-te

E isto que me acontece! e ja tenho o campo

        Nome_medicacaoComboBox.Items.Clear()

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

February 20, 2009

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

Nome_medicacaoComboBox.Text

Tenta antes:

Nome_medicacaoComboBox.SelectedItem.Text

February 20, 2009

Reparei agora que estas a gravar o valor das comboas desta maneira:
Nome_medicacaoComboBox.Text
Tenta antes:
Nome_medicacaoComboBox.SelectedItem.Text

E é por causa disso que esta a repetir na combobox?

Ps. e SelectItem.Text nao existe :/

February 20, 2009

Duvido que seja porcausa disso mas pode estar a gravar mal porcausa disso lol

e nao e selectitem mas sim selecteditem

February 20, 2009

Duvido que seja porcausa disso mas pode estar a gravar mal porcausa disso lol

e nao e selectitem mas sim selecteditem

Sim enganei-me! xD

Mas mesmo assim nao da ".text"

February 20, 2009

Equece... isso é em Web Applications lol

esprimenta assim:

comboBox1.SelectedIndex.ToString()

February 20, 2009

Equece... isso é em Web Applications lol

esprimenta assim:
comboBox1.SelectedIndex.ToString()

Nao me deu erro, mas agora tenho um problema para testar se deu! Eu tenho um select que quando meto um id Cliente aparece os valores e agora como vou buscar aquele registo da combobox?

A minha relacao e esta(nao sei como eide fazer o select):

E o meu codigo e este:

Private Sub Id_ClienteTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Id_ClienteTextBox.TextChanged
        Dim db As New OleDbConnection(My.Settings.ligacao)

        db.Open()

        Dim comandosql = "Select * from dados where Id_Cliente= " + Id_ClienteTextBox.Text
        Dim cmd As New OleDbCommand(comandosql, db)

        Dim dtr As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)

        While dtr.Read()
            NomeTextBox.Text = dtr.Item(1)
            IdadeTextBox.Text = dtr.Item(2)
            MoradaTextBox.Text = dtr.Item(3)
            PesoTextBox.Text = dtr.Item(4)
            AlturaMaskedTextBox.Text = dtr.Item(5)
            Tipo_DiabetesComboBox.Text = dtr.Item(6)
            'InsulinoterapiaCheckBox.Text = dtr.Item(7)
            IMCTextBox.Text = dtr.Item(8)
            'HiperlipidemiaCheckBox.Text = dtr.Item(9)
            'Habitos_alcoolicosCheckBox.Text = dtr.Item(10)
            'Habitos_tabagicosCheckBox.Text = dtr.Item(11)
            'HipertensaoCheckBox.Text = dtr.Item(12)
            'ObesidadeCheckBox.Text = dtr.Item(13)
            'Antecedentes_PessoaisTextBox.Text = dtr.Item(14)
            'Auto_VigilanciaCheckBox.Text = dtr.Item(15)
            'Defice_VisualCheckBox.Text = dtr.Item(16)
            'AmputacaoCheckBox.Text = dtr.Item(17)
            'DialiseCheckBox.Text = dtr.Item(18)
            'EnfarteCheckBox.Text = dtr.Item(19)
            'AVCCheckBox.Text = dtr.Item(20)
            'Lesao_pesCheckBox.Text = dtr.Item(21)




        End While
    End Sub

Botao Guardar para varias tabelas

Recommended Posts

Batista15 0

Share this post

Link to post

Share on other sites

jpaulino 97

Share this post

Link to post

Share on other sites

Valadas 0

Share this post

Link to post

Share on other sites

jpaulino 97

Share this post

Link to post

Share on other sites

Batista15 0

Share this post

Link to post

Share on other sites

anolsi 12

Share this post

Link to post

Share on other sites

Valadas 0

Share this post

Link to post

Share on other sites

Batista15 0

Share this post

Link to post

Share on other sites

Sir Pereira 1

Share this post

Link to post

Share on other sites

Valadas 0

Share this post

Link to post

Share on other sites

Batista15 0

Share this post

Link to post

Share on other sites

Batista15 0

Share this post

Link to post

Share on other sites

jpaulino 97

Share this post

Link to post

Share on other sites

Batista15 0

Share this post

Link to post

Share on other sites

Hellblazer 0

Share this post

Link to post

Share on other sites

Batista15 0

Share this post

Link to post

Share on other sites

Batista15 0

Share this post

Link to post

Share on other sites

Hellblazer 0

Share this post

Link to post

Share on other sites

Batista15 0

Share this post

Link to post

Share on other sites

Hellblazer 0

Share this post