none
exemplo de alterar dados ja cadastrados no banco de dados no visual studio 2005 RRS feed

  • Pergunta

  • Estou fazendo um projeto no visual studio 2005, tenho a tela contatos.

    nela tem um listview que já esta puxando os dados já cadastrados no banco de dados da tabela contatos.
    Queria saber como buscar esses dados para um form e altera-los os dados são o codigo que será jogado em um Label o usuario não ira alterar esse dado irá alterar somente o nome e email.

    Queria algum exemplo?

    Aguardo retorno, desde ja muito obrigado

    sexta-feira, 1 de outubro de 2010 00:45

Respostas

  • Olá,

    Então, pelo que eu entendi, você está com dificuldades em passar os dados de um form para o outro, certo? Se for isso mesmo, veja se este artigo de ajuda:

    http://vbnotebookfor.net/2007/09/28/how-to-pass-data-between-forms-in-vbnet/


    André Alves de Lima
    Visite o meu site: http://andrealveslima.spaces.live.com
    Me siga no Twitter: @andrealveslima
    sexta-feira, 1 de outubro de 2010 22:47
    Moderador
  •  Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        
    Aqui vai exemplo pra ti:
     If Not ListView1.SelectedItems.Count = 0 Then
          Dim Procurar_Registo As String = ListView1.SelectedItems.Item(0).Text
     Using AccessTeste As New SqlConnection(My.Settings.ConnectMe)
     Dim command As New SqlCommand("Select * From Table_Copy WHERE FirstName =@Procurar_Registo", AccessTeste)
     command.Parameters.AddWithValue("@Procurar_Registo", Procurar_Registo.ToString()) ', Busca)
            AccessTeste.Open()
    
            Dim apap As SqlDataAdapter = New SqlDataAdapter(command)
    
            Dim Tabela As New DataSet
    
            apap.Fill(Tabela, "Tabela")
    
            If Tabela.Tables(0).Rows.Count > 0 Then
              Dim bindingsource As New BindingSource
              bindingsource.DataSource = Tabela.Tables(0)
    
              Dim form2 As New Form3
              form2.DataGridView1.DataSource = bindingsource
              form2.Show()
            Else
    
              MessageBox.Show("Nao Existe")
    
            End If
    
    
          End Using
          Return
    
        End If
      End Sub

    Just Be Humble Malange!
    sábado, 2 de outubro de 2010 00:33
    Moderador

Todas as Respostas

  • Prezado,

    Sugiro que você dê uma olhada neste artigo:

    http://www.macoratti.net/vbna_cp1.htm


    André Alves de Lima
    Visite o meu site: http://andrealveslima.spaces.live.com
    Me siga no Twitter: @andrealveslima
    sexta-feira, 1 de outubro de 2010 12:38
    Moderador
  • OK Obrigado pelas informações,...

    Mas é que é o seguinte eu tenho um form contatos que tem um listview e nele lista todos os contatos ja cadastrados queria que quando eu apertasse o btn de Alterar abrisse outro form que puxe os dados e que ali eu altere e já salve....
    essas telas eu já tenho pronta só estou com dificuldade no codigo fonte

     

     

     

    sexta-feira, 1 de outubro de 2010 22:33
  • Olá,

    Então, pelo que eu entendi, você está com dificuldades em passar os dados de um form para o outro, certo? Se for isso mesmo, veja se este artigo de ajuda:

    http://vbnotebookfor.net/2007/09/28/how-to-pass-data-between-forms-in-vbnet/


    André Alves de Lima
    Visite o meu site: http://andrealveslima.spaces.live.com
    Me siga no Twitter: @andrealveslima
    sexta-feira, 1 de outubro de 2010 22:47
    Moderador
  •  Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        
    Aqui vai exemplo pra ti:
     If Not ListView1.SelectedItems.Count = 0 Then
          Dim Procurar_Registo As String = ListView1.SelectedItems.Item(0).Text
     Using AccessTeste As New SqlConnection(My.Settings.ConnectMe)
     Dim command As New SqlCommand("Select * From Table_Copy WHERE FirstName =@Procurar_Registo", AccessTeste)
     command.Parameters.AddWithValue("@Procurar_Registo", Procurar_Registo.ToString()) ', Busca)
            AccessTeste.Open()
    
            Dim apap As SqlDataAdapter = New SqlDataAdapter(command)
    
            Dim Tabela As New DataSet
    
            apap.Fill(Tabela, "Tabela")
    
            If Tabela.Tables(0).Rows.Count > 0 Then
              Dim bindingsource As New BindingSource
              bindingsource.DataSource = Tabela.Tables(0)
    
              Dim form2 As New Form3
              form2.DataGridView1.DataSource = bindingsource
              form2.Show()
            Else
    
              MessageBox.Show("Nao Existe")
    
            End If
    
    
          End Using
          Return
    
        End If
      End Sub

    Just Be Humble Malange!
    sábado, 2 de outubro de 2010 00:33
    Moderador