JoãoNascimento

Será que podes colocar ai um exemplo do codigo para eu ver se consigo? Não consigo mesmo tentar resolver isso... A minha base de dados é SQL... Abraço Amigo já consegui fazer o que queria.... Abraços e mt obrigasdo a si e a todos

Amigos tenho um problema com uma combobox, é assim queria que ao seleccionar uma combobox aparecesse em duas textbox valores da base de dados... Ate ai td bem, o problem é basta clicar na combobox que aparece logo valores incorrectos.... Vou colar o codigo que talvez possa-os ajudar... Private Sub FuncionarioComboBox_click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FuncionarioComboBox.Click Const constr As String = "Data Source=JOÃONASCIMEN-PC\SQLEXPRESS;Initial Catalog=GestSal;Integrated Security=True;Pooling=False" Dim db As New SqlClient.SqlConnection(constr) db.Open() limpar_campos() Dim varsql As String varsql = "Select * from Funcionarios" ' where nome='" & FuncionarioComboBox.Text & "'" Dim cmd As New SqlClient.SqlCommand(varsql, db) Dim dr As SqlClient.SqlDataReader dr = cmd.ExecuteReader While dr.Read() SubsidioAlimentacaoMaskedTextBox.Text = dr.Item("SubsidioAlimentacao") SalarioBaseDiaMaskedTextBox.Text = dr.Item("SalarioBaseDia") End While db.Close() End Sub Abraços

Pessoal é o seguinte tenho um projecto no qual tenho a ligação da base de dados SQL... E tenho um form que ao escolher um nome quero associar a un certo valor da base de dados, não sei como fazer ajudemme

Pois amigo ai esta o problema sou frocho em VB.... Lol não pode colocar ai um exemplo de codigo que eu tento encaixar a minha maneira... Abraçox

Pessoal tenho uma duvida... Como é que eu ao seleccionar num form duas combobox, uma com um mes e outra com um nome (as duas são dados da base de dados), abre um crystal report já preenchido, com os dados da base de dados... Em resumo, Seleccionar duas combobox (mês e funcionario) e abre relatorio já preenchido com os dados da base de dados... Abraços

Amigo funciona bem..... Obrigadao..... :) Tipo amigo se precisar de mais alguma ajuda devo abrir outro tópico ou postar aqui????

O unico erro que da é na textbox Banco aparece imbotida a instruçao where é isso masis nada <_<

Pessoal é o seguinte tenho um projecto no qual tenho a ligação da base de dados SQL... E tenho um form que ao escolher um nome quero associar a un certo valor da base de dados, não sei como fazer ajudemme

cara consegui resolver meu problema... agoraa apareceu outro não muito grave... Diga-me so uma coisa Esta linha de codigo esta correcta: varsql = "update Empresa set nome='" & NomeTextBox.Text & "', CapitalSocial='" & CapitalSocialMaskedTextBox.Text & "', Morada='" & MoradaTextBox.Text & "', CodigoPostal='" & CodigoPostalTextBox.Text & "', Concelho='" & ConcelhoTextBox.Text & "', Telefone='" & TelefoneTextBox.Text & "', Fax='" & FaxTextBox.Text & "', NIF='" & NIFTextBox.Text & "', NIB='" & NIBMaskedTextBox.Text & "', Banco='" & BancoTextBox.Text & "" & "where codempresa=6'" responda por favor o mais breve possivel... abraços

É assim meu codigo do form load é: Private Sub FormEmpresa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'GestSalDataSet.Empresa' table. You can move, or remove it, as needed. 'Me.EmpresaTableAdapter.Fill(Me.GestSalDataSet.Empresa) NomeTextBox.MaxLength = 50 'CapitalSocialMaskedTextBox.Mask = "00000" MoradaTextBox.MaxLength = 50 CodigoPostalTextBox.MaxLength = 10 ConcelhoTextBox.MaxLength = 50 TelefoneTextBox.MaxLength = 9 FaxTextBox.MaxLength = 9 NIFTextBox.MaxLength = 9 'NIBMaskedTextBox.Mask = "000000000000000000000" BancoTextBox.MaxLength = 50 Const constr As String = "Data Source=JOÃONASCIMEN-PC\SQLEXPRESS;Initial Catalog=GestSal;Integrated Security=True;Pooling=False" Dim db As New SqlClient.SqlConnection(constr) db.Open() Dim varsql As String varsql = "Select * from Empresa" Dim cmd As New SqlClient.SqlCommand(varsql, db) Dim dr As SqlClient.SqlDataReader dr = cmd.ExecuteReader 'Dim inf As String = "" While dr.Read() 'inf = inf & dr.Item("Nome") & "," & dr.Item("CapitalSocial") & "," & dr.Item("Morada") & "," & dr.Item("CodigoPostal") & "," & dr.Item("Concelho") & "," & dr.Item("Telefone") & "," & dr.Item("Fax") & "," & dr.Item("NIF") & "," & dr.Item("NIB") & "," & dr.Item("Banco") '& Chr(13) NomeTextBox.Text = dr.Item("Nome") CapitalSocialMaskedTextBox.Text = dr.Item("CapitalSocial") MoradaTextBox.Text = dr.Item("Morada") CodigoPostalTextBox.Text = dr.Item("CodigoPostal") ConcelhoTextBox.Text = dr.Item("Concelho") TelefoneTextBox.Text = dr.Item("Telefone") FaxTextBox.Text = dr.Item("fax") NIFTextBox.Text = dr.Item("NIF") NIBMaskedTextBox.Text = dr.Item("NIB") BancoTextBox.Text = dr.Item("Banco") End While 'MsgBox(inf, MsgBoxStyle.Information, "Todos os registos") db.Close() End Sub O do botão alterar é: Private Sub ButtonConfirmar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonConfirmar.Click If validar_dados() = False Then Exit Sub Dim adapter_empresa As New GestSalDataSetTableAdapters.EmpresaTableAdapter Dim tab_empresa As New GestSalDataSet.EmpresaDataTable Try adapter_empresa.Update(Me.NomeTextBox.Text, Me.CapitalSocialMaskedTextBox.Text, Me.MoradaTextBox.Text, Me.CodigoPostalTextBox.Text, Me.ConcelhoTextBox.Text, Me.TelefoneTextBox.Text, Me.FaxTextBox.Text, Me.NIFTextBox.Text, Me.NIBMaskedTextBox.Text, Me.BancoTextBox.Text, codempresa_anterior, nome_anterior, capitalsocial_anterior, morada_anterior, codigopostal_anterior, concelho_anterior, telefone_anterior, fax_anterior, nif_anterior, nib_anterior, banco_anterior, banco_anterior) MsgBox("Dados modificados com sucesso!", MsgBoxStyle.Information, Me.Text) Catch ex As Exception MsgBox(ex.Message) End Try End Sub

Amigo é o seguinte eu quero alterar todo o registo da base de dados, (pois é apenas um) mas o meu problema é ao programar... Já programei de uma maneira, so que o problema é que não consigo aceder de novo aos dados... Ou seja os dados não aparecem, mas se retirar as linhas de codigo que inseri aparece de novo... Sera que me pode enviar um exemplo? .... Abrços

Amigo raphael consegui fazer o que queria.... :) Agora só me falta neste form alterar o codigo a modo que possa alterar os dados desse form, de forma a seja impossivel inserir novos registos, apenas alterar o registo na base de dados.... Abraços e origado pela ajuda

Amigo já vi uma cenas, mas é o seguinte consegui conectar td bem. testei com uma msgbox e todos os dados aparecem certos. o meu problema agora é consiliar os campos da base de dados as respectivas textbox.. O codigo que tou usando como exemplo é esse: Const constr As String = "Data Source=JOÃONASCIMEN-PC\SQLEXPRESS;Initial Catalog=GestSal;Integrated Security=True;Pooling=False" Dim db As New SqlClient.SqlConnection(constr) db.Open() Dim varsql As String varsql = "Select * from Empresa" Dim cmd As New SqlClient.SqlCommand(varsql, db) Dim dr As SqlClient.SqlDataReader dr = cmd.ExecuteReader Dim inf As String = "" While dr.Read() inf = inf & dr.Item("Nome") & "," & dr.Item("CapitalSocial") & "," & dr.Item("Morada") & "," & dr.Item("CodigoPostal") & "," & dr.Item("Concelho") & "," & dr.Item("Telefone") & "," & dr.Item("Fax") & "," & dr.Item("NIF") & "," & dr.Item("NIB") & "," & dr.Item("Banco") '& Chr(13) End While MsgBox(inf, MsgBoxStyle.Information, "Todos os registos") db.Close() Como é que faço... Sou verdinho nesta area...

Muito obrigado amigo, vou explorar a tua dica hoje mesmo já devo dizerlhe se consegui ou não... Abraço

Sim é para mostrar em caixas de texto.....

Sim uso... A base de dados é SQl, o problema é k não sei como acessar o form com os dados da preenchidos...

Será que podes colocar ai um exemplo do codigo para eu ver se consigo? Não consigo mesmo tentar resolver isso... A minha base de dados é SQL... Abraço

Amigo Kuroi já consegui resolver essa cena, mas tenho outro problema.... Tenho um form para lançar aa folha salarial dde um trabalhador, o meu problema é que tenho uma combobox para seleccionar o funcionario certo, o meu problema é k tenho dois campos que dependem dessa combobox. como faço para aparecer consoante o funcionario seleccionado os outros dois textbox preenchidos atumaticamente...

Amigo como assim? coloque ai uma linha de codigo exemplo por favor...

Pessoal preciso de uma juda ai. Tenho um form onde quero que ao carregar no menu a opção empresa, abra os dados da empresa no form... Os dados estão numa tabela na base de dados... Mas não sei como importar esses dados para lá, se ouve-se um datagrid eu ai sabia como importar esses dados, mas assim não sei... alguém me pode ajudar... O código que tava a pensar era o seguinte: Private Sub EmpresaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EmpresaToolStripMenuItem.Click Dim codempresa As Integer Dim nome As String Dim capitalssocial As Integer Dim morada As String Dim codigopostal As String Dim concelho As String Dim telefone As Long Dim fax As Long Dim nif As Long Dim nib As Long Dim banco As String Dim adapter_empresa As New GestSalDataSetTableAdapters.EmpresaTableAdapter Dim tab_empresa As New GestSalDataSet.EmpresaDataTable adapter_empresa.Fill(tab_empresa) (..)-> não sei como qual é a linha de código que me faça importar os dados Dim form As New FormEmpresa form.MdiParent = Me form.Show() form.alterar() End Sub Abraços

Pessoal tenho um problema, tenho um form chamado "FormEmpresa" na qual quero que ao caregar no menu, item empresa, me abra esse form com o respectivo dados da base de dados. Na base de dados a tabela empresa esta vazia, so é preenchida pelo utilizador na primeira execução do programa. Como é que faço para exportar os dados para esse form.... Por favor me ajudem.

Viva pessoal mais uma vez desta vez tenho um erro que me tem massacrado a cabeça.... tenho 3 combobox no meu formfuncionarios que vai buscar valores a 3 tabelas diferentes (cada um a sua). Não da qualquer erro, o problema é que ao correr depois de preencher todos os campos daquele form aparece uma mensagem a dizer: "A conversão da cadeia "EXEMPLO" para tipo 'Integer' não é valida... Não sei que fazer mais por favor ajudem-me... Abraços

Ola pessoal tou precisando de uma ajuda , ai para um projecto em visual basic... Qualquer pessoa interessada que avise... Desde já o meu obrigado Abraços JN

Já agora caro amigo tenho outr duvida qual é o evento que eu ao seleccionar uma lista de uma datagrid e ao carregar no botão eliminar, elimino o registo.

Obrigado amigo grande ajuda... Cumprimento