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

Batista15

Botao Guardar para varias tabelas

Recommended Posts

Batista15

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

Share this post


Link to post
Share on other sites
jpaulino

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 ?

Share this post


Link to post
Share on other sites
Valadas

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


RV

Share this post


Link to post
Share on other sites
jpaulino

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.

Share this post


Link to post
Share on other sites
Batista15

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

Share this post


Link to post
Share on other sites
anolsi

E que erro dá?


"Nós somos o que fazemos repetidamente, a excelência não é um feito, e sim, um hábito."
Não respondo a questões por PM que possam ser colocadas no fórum!

Share this post


Link to post
Share on other sites
Valadas

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


RV

Share this post


Link to post
Share on other sites
Batista15

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 🤔

Share this post


Link to post
Share on other sites
Sir Pereira

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

Share this post


Link to post
Share on other sites
Valadas

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


RV

Share this post


Link to post
Share on other sites
Batista15

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

Share this post


Link to post
Share on other sites
Batista15

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

Share this post


Link to post
Share on other sites
Batista15

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

Share this post


Link to post
Share on other sites
Hellblazer

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


There are two ways to write error-free programs; only the third one works.

Share this post


Link to post
Share on other sites
Batista15

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!

Share this post


Link to post
Share on other sites
Batista15

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

Share this post


Link to post
Share on other sites
Hellblazer

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:


There are two ways to write error-free programs; only the third one works.

Share this post


Link to post
Share on other sites
Batista15

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!

Share this post


Link to post
Share on other sites
Hellblazer

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

Nome_medicacaoComboBox.Text

Tenta antes:

Nome_medicacaoComboBox.SelectedItem.Text


There are two ways to write error-free programs; only the third one works.

Share this post


Link to post
Share on other sites
Batista15

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

Share this post


Link to post
Share on other sites
Hellblazer

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

e nao e selectitem mas sim selecteditem :confused:


There are two ways to write error-free programs; only the third one works.

Share this post


Link to post
Share on other sites
Batista15

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"

Share this post


Link to post
Share on other sites
Hellblazer

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

esprimenta assim:

comboBox1.SelectedIndex.ToString()


There are two ways to write error-free programs; only the third one works.

Share this post


Link to post
Share on other sites
Batista15

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.