Batista15 0 Denunciar mensagem Publicado 19 de Fevereiro de 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 Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
jpaulino 106 Denunciar mensagem Publicado 19 de Fevereiro de 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 ? Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
Valadas 0 Denunciar mensagem Publicado 19 de Fevereiro de 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!? Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
jpaulino 106 Denunciar mensagem Publicado 19 de Fevereiro de 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. Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
Batista15 0 Denunciar mensagem Publicado 19 de Fevereiro de 2009 Pois, ja tentei mas da erro! Penso que como ja esta declarado um insert into nao da para mais! :S Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
anolsi 16 Denunciar mensagem Publicado 19 de Fevereiro de 2009 E que erro dá? Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
Valadas 0 Denunciar mensagem Publicado 19 de Fevereiro de 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!! Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
Batista15 0 Denunciar mensagem Publicado 19 de Fevereiro de 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 :hmm: Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
Sir Pereira 3 Denunciar mensagem Publicado 19 de Fevereiro de 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 (?, ?, ?, ?, ?, ?, ?, ?)" Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
Valadas 0 Denunciar mensagem Publicado 19 de Fevereiro de 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 Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
Batista15 0 Denunciar mensagem Publicado 19 de Fevereiro de 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 Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
Batista15 0 Denunciar mensagem Publicado 19 de Fevereiro de 2009 Ja tentei! Aquilo pergunta se quero guardar meto sim! Depois quando vou la aparece o nome que esta em 1º na combobox Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
jpaulino 106 Denunciar mensagem Publicado 19 de Fevereiro de 2009 Mostra lá o codigo ! Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
Batista15 0 Denunciar mensagem Publicado 19 de Fevereiro de 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 Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
Hellblazer 0 Denunciar mensagem Publicado 20 de Fevereiro de 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() Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
Batista15 0 Denunciar mensagem Publicado 20 de Fevereiro de 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! Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
Batista15 0 Denunciar mensagem Publicado 20 de Fevereiro de 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 Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
Hellblazer 0 Denunciar mensagem Publicado 20 de Fevereiro de 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 Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
Batista15 0 Denunciar mensagem Publicado 20 de Fevereiro de 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! Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
Hellblazer 0 Denunciar mensagem Publicado 20 de Fevereiro de 2009 Reparei agora que estas a gravar o valor das comboas desta maneira: Nome_medicacaoComboBox.Text Tenta antes: Nome_medicacaoComboBox.SelectedItem.Text Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
Batista15 0 Denunciar mensagem Publicado 20 de Fevereiro de 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 :/ Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
Hellblazer 0 Denunciar mensagem Publicado 20 de Fevereiro de 2009 Duvido que seja porcausa disso mas pode estar a gravar mal porcausa disso lol e nao e selectitem mas sim selecteditem Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
Batista15 0 Denunciar mensagem Publicado 20 de Fevereiro de 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" Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
Hellblazer 0 Denunciar mensagem Publicado 20 de Fevereiro de 2009 Equece... isso é em Web Applications lol esprimenta assim: comboBox1.SelectedIndex.ToString() Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
Batista15 0 Denunciar mensagem Publicado 20 de Fevereiro de 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 Partilhar esta mensagem Link para a mensagem Partilhar noutros sites
