Batista15 Posted February 19, 2009 at 06:21 PM Report Share #245587 Posted February 19, 2009 at 06:21 PM Boas Pessoal, a minha questão e a seguinte, com este código guardo todos os campos que tenho na form mas em apenas uma tabela, e queria guardar o resto dos campos das outras tabelas alguem que me ajude? Thanks ;D Ps. E as checkbocks estao em comentario porqe nao sei se sao em ValChar, Integer... Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Try 'Dim lm As String = "INSERT INTO `dados` (`Id_Cliente`, `Nome`, `Idade`, `Morada`, `Peso`, `Altura`, `Tipo_Diabetes`, `Insulinoterapia`, `IMC`, `Hiperlipidemia`, `Habitos_alcoolicos`, `Habitos_tabagicos`, `Hipertensao`, `Obesidade`, `Antecedentes_Pessoais`, `Auto_Vigilancia`, `Defice_Visual`, `Amputacao`, `Dialise`, `Enfarte`, `AVC`, `Lesao_pes`) VALUES ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" Dim lm As String = "INSERT INTO `dados` (`Id_Cliente`, `Nome`, `Idade`, `Morada`, `Peso`,`Altura`, `Tipo_Diabetes`, `IMC`) VALUES (?, ?, ?, ?, ?, ?, ?, ?)" ' Inicia uma ligação à base de dados Using connection As New OleDbConnection(pap.My.Settings.ligacao) ' Define o comando e os parâmetros Dim command As New OleDbCommand(lm, connection) 'pergunta se quer guardar ou nao Dim msg = MsgBox("Pretende guardar o registo? ", MsgBoxStyle.YesNoCancel) If msg = MsgBoxResult.Yes Then If Id_ClienteTextBox.Text.Trim <> String.Empty Then command.Parameters.Add("Id_CLiente", OleDbType.Integer).Value = Id_ClienteTextBox.Text Else command.Parameters.Add("Id_Cliente", OleDbType.Integer).Value = 0 End If command.Parameters.Add("Nome", OleDbType.VarChar).Value = NomeTextBox.Text() If IdadeTextBox.Text.Trim <> String.Empty Then command.Parameters.Add("Idade", OleDbType.Integer).Value = IdadeTextBox.Text Else command.Parameters.Add("Idade", OleDbType.Integer).Value = 0 End If command.Parameters.Add("Morada", OleDbType.VarChar).Value = MoradaTextBox.Text() If PesoTextBox.Text.Trim <> String.Empty Then command.Parameters.Add("Peso", OleDbType.Integer).Value = PesoTextBox.Text Else command.Parameters.Add("Peso", OleDbType.Integer).Value = 0 End If If AlturaMaskedTextBox.Text.Trim <> String.Empty Then command.Parameters.Add("Altura", OleDbType.Decimal).Value = AlturaMaskedTextBox.Text Else command.Parameters.Add("Altura", OleDbType.Decimal).Value = 0 End If If Tipo_DiabetesComboBox.Text.Trim <> String.Empty Then command.Parameters.Add("Tipo_Diabetes", OleDbType.Integer).Value = Tipo_DiabetesComboBox.Text Else command.Parameters.Add("Tipo_Diabetes", OleDbType.Integer).Value = 0 End If 'command.Parameters.Add("Insulinoterapia", OleDbType.VarChar).Value = InsulinoterapiaCheckBox.Text() command.Parameters.Add("IMC", OleDbType.Decimal).Value = IMCTextBox.Text() 'command.Parameters.Add("Hiperlipidemia", OleDbType.VarChar).Value = HiperlipidemiaCheckBox.Text 'command.Parameters.Add("Habitos_alcoolicos", OleDbType.VarChar).Value = Habitos_alcoolicosCheckBox.Text 'command.Parameters.Add("Habitos_tabagicos", OleDbType.VarChar).Value = Habitos_tabagicosCheckBox.Text 'command.Parameters.Add("Hipertensao", OleDbType.VarChar).Value = HipertensaoCheckBox.Text() 'command.Parameters.Add("Obesidade", OleDbType.VarChar).Value = ObesidadeCheckBox.Text() 'command.Parameters.Add("Antecedentes_Pessoais", OleDbType.VarChar).Value = Antecedentes_PessoaisTextBox.Text() 'command.Parameters.Add("Auto_Vigilancia", OleDbType.VarChar).Value = Auto_VigilanciaCheckBox.Text() 'command.Parameters.Add("Defice_Visual", OleDbType.VarChar).Value = Defice_VisualCheckBox.Text() 'command.Parameters.Add("Amputacao", OleDbType.VarChar).Value = AmputacaoCheckBox.Text() ' command.Parameters.Add("Dialise", OleDbType.VarChar).Value = DialiseCheckBox.Text() 'command.Parameters.Add("Enfarte", OleDbType.VarChar).Value = EnfarteCheckBox.Text() 'command.Parameters.Add("AVC", OleDbType.VarChar).Value = AVCCheckBox.Text() 'command.Parameters.Add("Lesao_pes", OleDbType.VarChar).Value = Lesao_pesCheckBox.Text() ElseIf msg = MsgBoxResult.No Then End If If msg = MsgBoxResult.Cancel Then Form1.Show() Me.Close() End If ' Abre a ligação e insere o registo connection.Open() Dim x As Integer = command.ExecuteNonQuery() If x <> 1 Then Throw New ArgumentException("Não foi possível inserir o registo na base de dados!") End If End Using Catch ex As Exception MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub Link to comment Share on other sites More sharing options...
jpaulino Posted February 19, 2009 at 08:56 PM Report Share #245627 Posted February 19, 2009 at 08:56 PM Boas Pessoal, a minha questão e a seguinte, com este código guardo todos os campos que tenho na form mas em apenas uma tabela, e queria guardar o resto dos campos das outras tabelas alguem que me ajude? Thanks ;D Só tens de fazer a mesma coisa para outra tabela, cou os campos que queres gravar, ou não entendi ? Link to comment Share on other sites More sharing options...
Valadas Posted February 19, 2009 at 08:59 PM Report Share #245630 Posted February 19, 2009 at 08:59 PM Só tens de fazer a mesma coisa para outra tabela, cou os campos que queres gravar, ou não entendi ? mas para isso ele nao tem de fazer uma nova ligaçao à bd!? RV Link to comment Share on other sites More sharing options...
jpaulino Posted February 19, 2009 at 09:02 PM Report Share #245632 Posted February 19, 2009 at 09:02 PM mas para isso ele nao tem de fazer uma nova ligaçao à bd!? Sim, mas neste caso, e para não complicar muito o código, é mail fácil criar dois subrotinas: uma para gravar na tabela x e outra para gravar na tabela y. Depois no evento click do botão chama as duas subrotinas. Link to comment Share on other sites More sharing options...
Batista15 Posted February 19, 2009 at 09:02 PM Author Report Share #245633 Posted February 19, 2009 at 09:02 PM Pois, ja tentei mas da erro! Penso que como ja esta declarado um insert into nao da para mais! :S Link to comment Share on other sites More sharing options...
anolsi Posted February 19, 2009 at 09:03 PM Report Share #245634 Posted February 19, 2009 at 09:03 PM 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! Link to comment Share on other sites More sharing options...
Valadas Posted February 19, 2009 at 09:09 PM Report Share #245640 Posted February 19, 2009 at 09:09 PM Sim, mas neste caso, e para não complicar muito o código, é mail fácil criar dois subrotinas: uma para gravar na tabela x e outra para gravar na tabela y. Depois no evento click do botão chama as duas subrotinas. sim realmente esta correcto o que disseste... fui confirmar e de facto funciona correctamente!! 😛 RV Link to comment Share on other sites More sharing options...
Batista15 Posted February 19, 2009 at 09:18 PM Author Report Share #245647 Posted February 19, 2009 at 09:18 PM Eu tou a preencher um inquerito! E depois na 2ª tabela a que tambem quero guardar os nomes repetem-se varias vezes na combobox e quando guardo o nome e sempre o mesmo, mesmo que mude o nome para todos os registos ? Link to comment Share on other sites More sharing options...
Ivo Pereira Posted February 19, 2009 at 09:28 PM Report Share #245652 Posted February 19, 2009 at 09:28 PM e nesse 2º insert não estás a colocar o código assim deste estilo pois não? Dim lm As String = "INSERT INTO `dados` (`Id_Cliente`, `Nome`, `Idade`, `Morada`, `Peso`,`Altura`, `Tipo_Diabetes`, `IMC`) VALUES (?, ?, ?, ?, ?, ?, ?, ?)" se sim, aconselho-te que alteres o nome da variável no segundo insert por exemplo para: Dim lm2 As String = "INSERT INTO `dados` (`Id_Cliente`, `Nome`, `Idade`, `Morada`, `Peso`,`Altura`, `Tipo_Diabetes`, `IMC`) VALUES (?, ?, ?, ?, ?, ?, ?, ?)" Link to comment Share on other sites More sharing options...
Valadas Posted February 19, 2009 at 09:29 PM Report Share #245653 Posted February 19, 2009 at 09:29 PM desta maneira assima fazer duas rotinas, para nao repetir a pergunta se quer gravar so se pode meter na segunda rotina. e assim quer se meta nao ou cancelar vai sempre gravar a primeira rotina... :s RV Link to comment Share on other sites More sharing options...
Batista15 Posted February 19, 2009 at 09:29 PM Author Report Share #245654 Posted February 19, 2009 at 09:29 PM e nesse 2º insert não estás a colocar o código assim deste estilo pois não? Dim lm As String = "INSERT INTO `dados` (`Id_Cliente`, `Nome`, `Idade`, `Morada`, `Peso`,`Altura`, `Tipo_Diabetes`, `IMC`) VALUES (?, ?, ?, ?, ?, ?, ?, ?)" se sim, aconselho-te que alteres o nome da variável no segundo insert por exemplo para: Dim lm2 As String = "INSERT INTO `dados` (`Id_Cliente`, `Nome`, `Idade`, `Morada`, `Peso`,`Altura`, `Tipo_Diabetes`, `IMC`) VALUES (?, ?, ?, ?, ?, ?, ?, ?)" Vou tentar, mas sim estava a fazer igual ao outro insert Link to comment Share on other sites More sharing options...
Batista15 Posted February 19, 2009 at 09:33 PM Author Report Share #245655 Posted February 19, 2009 at 09:33 PM Ja tentei! Aquilo pergunta se quero guardar meto sim! Depois quando vou la aparece o nome que esta em 1º na combobox Link to comment Share on other sites More sharing options...
jpaulino Posted February 19, 2009 at 10:06 PM Report Share #245673 Posted February 19, 2009 at 10:06 PM Mostra lá o codigo ! Link to comment Share on other sites More sharing options...
Batista15 Posted February 19, 2009 at 10:11 PM Author Report Share #245676 Posted February 19, 2009 at 10:11 PM Mostra lá o codigo ! 1º O nome na combobox repete-se 2º depois se me puder dizer como declaro os checkbocks Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Try 'Dim lm As String = "INSERT INTO `dados` (`Id_Cliente`, `Nome`, `Idade`, `Morada`, `Peso`, `Altura`, `Tipo_Diabetes`, `Insulinoterapia`, `IMC`, `Hiperlipidemia`, `Habitos_alcoolicos`, `Habitos_tabagicos`, `Hipertensao`, `Obesidade`, `Antecedentes_Pessoais`, `Auto_Vigilancia`, `Defice_Visual`, `Amputacao`, `Dialise`, `Enfarte`, `AVC`, `Lesao_pes`) VALUES ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" Dim lm As String = "INSERT INTO `dados` (`Id_Cliente`, `Nome`, `Idade`, `Morada`, `Peso`,`Altura`, `Tipo_Diabetes`) VALUES (?, ?, ?, ?, ?, ?, ?)" ' Inicia uma ligação à base de dados Using connection As New OleDbConnection(pap.My.Settings.ligacao) ' Define o comando e os parâmetros Dim command As New OleDbCommand(lm, connection) 'pergunta se quer guardar ou nao Dim msg = MsgBox("Pretende guardar o registo? ", MsgBoxStyle.YesNoCancel) If msg = MsgBoxResult.Yes Then If Id_ClienteTextBox.Text.Trim <> String.Empty Then command.Parameters.Add("Id_CLiente", OleDbType.Integer).Value = Id_ClienteTextBox.Text Else command.Parameters.Add("Id_Cliente", OleDbType.Integer).Value = 0 End If command.Parameters.Add("Nome", OleDbType.VarChar).Value = NomeTextBox.Text() If IdadeTextBox.Text.Trim <> String.Empty Then command.Parameters.Add("Idade", OleDbType.Integer).Value = IdadeTextBox.Text Else command.Parameters.Add("Idade", OleDbType.Integer).Value = 0 End If command.Parameters.Add("Morada", OleDbType.VarChar).Value = MoradaTextBox.Text() If PesoTextBox.Text.Trim <> String.Empty Then command.Parameters.Add("Peso", OleDbType.Integer).Value = PesoTextBox.Text Else command.Parameters.Add("Peso", OleDbType.Integer).Value = 0 End If If AlturaMaskedTextBox.Text.Trim <> String.Empty Then command.Parameters.Add("Altura", OleDbType.Decimal).Value = AlturaMaskedTextBox.Text Else command.Parameters.Add("Altura", OleDbType.Decimal).Value = 0 End If If Tipo_DiabetesComboBox.Text.Trim <> String.Empty Then command.Parameters.Add("Tipo_Diabetes", OleDbType.Integer).Value = Tipo_DiabetesComboBox.Text Else command.Parameters.Add("Tipo_Diabetes", OleDbType.Integer).Value = 0 End If 'command.Parameters.Add("Insulinoterapia", OleDbType.VarChar).Value = InsulinoterapiaCheckBox.Text() 'command.Parameters.Add("IMC", OleDbType.Decimal).Value = IMCTextBox.Text() 'command.Parameters.Add("Hiperlipidemia", OleDbType.VarChar).Value = HiperlipidemiaCheckBox.Text 'command.Parameters.Add("Habitos_alcoolicos", OleDbType.VarChar).Value = Habitos_alcoolicosCheckBox.Text 'command.Parameters.Add("Habitos_tabagicos", OleDbType.VarChar).Value = Habitos_tabagicosCheckBox.Text 'command.Parameters.Add("Hipertensao", OleDbType.VarChar).Value = HipertensaoCheckBox.Text() 'command.Parameters.Add("Obesidade", OleDbType.VarChar).Value = ObesidadeCheckBox.Text() 'command.Parameters.Add("Antecedentes_Pessoais", OleDbType.VarChar).Value = Antecedentes_PessoaisTextBox.Text() 'command.Parameters.Add("Auto_Vigilancia", OleDbType.VarChar).Value = Auto_VigilanciaCheckBox.Text() 'command.Parameters.Add("Defice_Visual", OleDbType.VarChar).Value = Defice_VisualCheckBox.Text() 'command.Parameters.Add("Amputacao", OleDbType.VarChar).Value = AmputacaoCheckBox.Text() ' command.Parameters.Add("Dialise", OleDbType.VarChar).Value = DialiseCheckBox.Text() 'command.Parameters.Add("Enfarte", OleDbType.VarChar).Value = EnfarteCheckBox.Text() 'command.Parameters.Add("AVC", OleDbType.VarChar).Value = AVCCheckBox.Text() 'command.Parameters.Add("Lesao_pes", OleDbType.VarChar).Value = Lesao_pesCheckBox.Text() ElseIf msg = MsgBoxResult.No Then End If If msg = MsgBoxResult.Cancel Then Form1.Show() Me.Close() End If ' Abre a ligação e insere o registo connection.Open() Dim x As Integer = command.ExecuteNonQuery() If x <> 1 Then Throw New ArgumentException("Não foi possível inserir o registo na base de dados!") End If End Using Catch ex As Exception MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try Try Dim lm2 As String = "INSERT INTO `medicamento` (`Nome_medicacao`) VALUES (?)" ' Inicia uma ligação à base de dados Using connection As New OleDbConnection(pap.My.Settings.ligacao) ' Define o comando e os parâmetros Dim command As New OleDbCommand(lm2, connection) 'pergunta se quer guardar ou nao Dim msg = MsgBox("Pretende guardar o registo? ", MsgBoxStyle.YesNoCancel) If msg = MsgBoxResult.Yes Then command.Parameters.Add("Nome_medicacao", OleDbType.VarChar).Value = Nome_medicacaoComboBox.Text ElseIf msg = MsgBoxResult.No Then End If If msg = MsgBoxResult.Cancel Then Form1.Show() Me.Close() End If ' Abre a ligação e insere o registo connection.Open() Dim x As Integer = command.ExecuteNonQuery() If x <> 1 Then Throw New ArgumentException("Não foi possível inserir o registo na base de dados!") End If End Using Catch ex As Exception MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub Link to comment Share on other sites More sharing options...
Hellblazer Posted February 20, 2009 at 09:47 AM Report Share #245716 Posted February 20, 2009 at 09:47 AM isto: Dim lm As String = "INSERT INTO `dados` (`Id_Cliente`, `Nome`, `Idade`, `Morada`, `Peso`,`Altura`, `Tipo_Diabetes`) VALUES (?, ?, ?, ?, ?, ?, ?)" não é nada... ele apenas te mostrou o exemplo... Queres algo do tipo: Dim lm As String = "INSERT INTO dados (Id_Cliente, Nome, Idade, Morada, Peso,Altura, Tipo_Diabetes, IMC) VALUES (@Id_Cliente, @Nome, @Idade, @Morada, @Peso, @Altura, @Tipo_Diabetes, @IMC)" ' Inicia uma ligação à base de dados Using connection As New OleDbConnection(pap.My.Settings.ligacao) ' Define o comando e os parâmetros Dim command As New OleDbCommand(lm, connection) 'pergunta se quer guardar ou nao Dim msg = MsgBox("Pretende guardar o registo? ", MsgBoxStyle.YesNoCancel) If msg = MsgBoxResult.Yes Then If Id_ClienteTextBox.Text.Trim <> String.Empty Then command.Parameters.Add("@Id_CLiente", OleDbType.Integer).Value = Id_ClienteTextBox.Text Else command.Parameters.Add("@Id_Cliente", OleDbType.Integer).Value = 0 End If command.Parameters.Add("@Nome", OleDbType.VarChar).Value = NomeTextBox.Text() If IdadeTextBox.Text.Trim <> String.Empty Then command.Parameters.Add("@Idade", OleDbType.Integer).Value = IdadeTextBox.Text Else command.Parameters.Add("@Idade", OleDbType.Integer).Value = 0 End If command.Parameters.Add("@Morada", OleDbType.VarChar).Value = MoradaTextBox.Text() If PesoTextBox.Text.Trim <> String.Empty Then command.Parameters.Add("@Peso", OleDbType.Integer).Value = PesoTextBox.Text Else command.Parameters.Add("@Peso", OleDbType.Integer).Value = 0 End If If AlturaMaskedTextBox.Text.Trim <> String.Empty Then command.Parameters.Add("@Altura", OleDbType.Decimal).Value = AlturaMaskedTextBox.Text Else command.Parameters.Add("@Altura", OleDbType.Decimal).Value = 0 End If If Tipo_DiabetesComboBox.Text.Trim <> String.Empty Then command.Parameters.Add("@Tipo_Diabetes", OleDbType.Integer).Value = Tipo_DiabetesComboBox.Text Else command.Parameters.Add("@Tipo_Diabetes", OleDbType.Integer).Value = 0 End If command.Parameters.Add("@IMC", OleDbType.Decimal).Value = IMCTextBox.Text() There are two ways to write error-free programs; only the third one works. Link to comment Share on other sites More sharing options...
Batista15 Posted February 20, 2009 at 10:13 AM Author Report Share #245722 Posted February 20, 2009 at 10:13 AM isto: Dim lm As String = "INSERT INTO `dados` (`Id_Cliente`, `Nome`, `Idade`, `Morada`, `Peso`,`Altura`, `Tipo_Diabetes`) VALUES (?, ?, ?, ?, ?, ?, ?)" não é nada... ele apenas te mostrou o exemplo... Queres algo do tipo: Dim lm As String = "INSERT INTO dados (Id_Cliente, Nome, Idade, Morada, Peso,Altura, Tipo_Diabetes, IMC) VALUES (@Id_Cliente, @Nome, @Idade, @Morada, @Peso, @Altura, @Tipo_Diabetes, @IMC)" ' Inicia uma ligação à base de dados Using connection As New OleDbConnection(pap.My.Settings.ligacao) ' Define o comando e os parâmetros Dim command As New OleDbCommand(lm, connection) 'pergunta se quer guardar ou nao Dim msg = MsgBox("Pretende guardar o registo? ", MsgBoxStyle.YesNoCancel) If msg = MsgBoxResult.Yes Then If Id_ClienteTextBox.Text.Trim <> String.Empty Then command.Parameters.Add("@Id_CLiente", OleDbType.Integer).Value = Id_ClienteTextBox.Text Else command.Parameters.Add("@Id_Cliente", OleDbType.Integer).Value = 0 End If command.Parameters.Add("@Nome", OleDbType.VarChar).Value = NomeTextBox.Text() If IdadeTextBox.Text.Trim <> String.Empty Then command.Parameters.Add("@Idade", OleDbType.Integer).Value = IdadeTextBox.Text Else command.Parameters.Add("@Idade", OleDbType.Integer).Value = 0 End If command.Parameters.Add("@Morada", OleDbType.VarChar).Value = MoradaTextBox.Text() If PesoTextBox.Text.Trim <> String.Empty Then command.Parameters.Add("@Peso", OleDbType.Integer).Value = PesoTextBox.Text Else command.Parameters.Add("@Peso", OleDbType.Integer).Value = 0 End If If AlturaMaskedTextBox.Text.Trim <> String.Empty Then command.Parameters.Add("@Altura", OleDbType.Decimal).Value = AlturaMaskedTextBox.Text Else command.Parameters.Add("@Altura", OleDbType.Decimal).Value = 0 End If If Tipo_DiabetesComboBox.Text.Trim <> String.Empty Then command.Parameters.Add("@Tipo_Diabetes", OleDbType.Integer).Value = Tipo_DiabetesComboBox.Text Else command.Parameters.Add("@Tipo_Diabetes", OleDbType.Integer).Value = 0 End If command.Parameters.Add("@IMC", OleDbType.Decimal).Value = IMCTextBox.Text() Devo me ter explicado mal! Essa parte ja esta, mas agora a parte da 2ª tabela que e uma combobox os nomes repetem se e o nome fica sempre o mesmo para todos os registo! Link to comment Share on other sites More sharing options...
Batista15 Posted February 20, 2009 at 11:05 AM Author Report Share #245737 Posted February 20, 2009 at 11:05 AM Quando escolho um elemento da combobox adiciona novamente na combobox e tambem na base de dados, deve ser do novo try! Agora o problema e guardar o que escolhi na combobox! 2º qual a diferenca entre " ' " e " @ "! O meu 2º Try esta bem feito? e que nao guarda Link to comment Share on other sites More sharing options...
Hellblazer Posted February 20, 2009 at 11:52 AM Report Share #245743 Posted February 20, 2009 at 11:52 AM Quando escolho um elemento da combobox adiciona novamente na combobox e tambem na base de dados, deve ser do novo try! Agora o problema e guardar o que escolhi na combobox! 2º qual a diferenca entre " ' " e " @ "! O meu 2º Try esta bem feito? e que nao guarda Desculpa mas nao entendi o que disses-te 😕 There are two ways to write error-free programs; only the third one works. Link to comment Share on other sites More sharing options...
Batista15 Posted February 20, 2009 at 11:57 AM Author Report Share #245744 Posted February 20, 2009 at 11:57 AM Desculpa mas nao entendi o que disses-te 🙂 E isto que me acontece! e ja tenho o campo Nome_medicacaoComboBox.Items.Clear() 😕 http://img172.imageshack.us/img172/4246/semttulonk9.jpg E nao guarda! E isto que me esta a acontecer! Link to comment Share on other sites More sharing options...
Hellblazer Posted February 20, 2009 at 12:53 PM Report Share #245761 Posted February 20, 2009 at 12:53 PM Reparei agora que estas a gravar o valor das comboas desta maneira: Nome_medicacaoComboBox.Text Tenta antes: Nome_medicacaoComboBox.SelectedItem.Text There are two ways to write error-free programs; only the third one works. Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now