• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Batista15

Botao Guardar para varias tabelas

38 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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 ?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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 :hmm:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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 :confused:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Desculpa mas nao entendi o que disses-te :)

E isto que me acontece! e ja tenho o campo

        Nome_medicacaoComboBox.Items.Clear() 

:confused:

semttulonk9.jpg

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

Nome_medicacaoComboBox.Text

Tenta antes:

Nome_medicacaoComboBox.SelectedItem.Text

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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 :/

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

e nao e selectitem mas sim selecteditem :confused:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

e nao e selectitem mas sim selecteditem :confused:

Sim enganei-me! xD

Mas mesmo assim nao da ".text"

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Equece... isso é em Web Applications lol :confused:

esprimenta assim:

comboBox1.SelectedIndex.ToString()

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Equece... isso é em Web Applications lol :confused:

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

semttuloqy6.jpg

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora