Ir para conteúdo
Fórum Script Brasil
  • 0

DatagridView (vb.net)


TsR

Pergunta

Galeraaaa... B)

Bom meu problema é o seguinte tenho um Form onde cadastro cliente e neste form tenho um DataGridView queria saber como faço para junto com o cliente cadastrar os dados desse grid mais em outra tabela...(com um relacionamento na cliente "CodCliente")..

E depois no Form Ver Cliente como mostrar esses dados novamente..

Aguardo Repostas, o meu código onde cadastro clientes é este:

Imports System.Data.OleDb
Public Class VerClientes
    Dim Conexao As New ADODB.Connection
    Dim RS As New ADODB.Recordset
    Const StrConn As String = "Provider = Microsoft.jet.OleDB.4.0;Data Source = c:\bd.mdb;"
    Private Sub VerClientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListaClientes()
    End Sub
    Private Function ExibeDados(ByVal NomeCliente As String) As String
        Conexao = New ADODB.Connection
        Conexao.Open(StrConn)
        RS = New ADODB.Recordset
        RS.Open("SELECT * FROM Clientes WHERE Cliente = '" & NomeCliente & "'", Conexao, 1, 2) 'Recebe a variável NomeCliente, a qual foi recebido o nome do cliente no parâmetro "NomeCliente" da função

        Guia.Text = RS.Fields("Guia").Value
        Endereco.Text = RS.Fields("Endereco").Value
        Bairro.Text = RS.Fields("Bairro").Value
        CEP.Text = RS.Fields("CEP").Value
        Cidade.Text = RS.Fields("Cidade").Value
        Estado.Text = RS.Fields("Estado").Value
        CNPJ.Text = RS.Fields("CNPJ").Value
        InscEst.Text = RS.Fields("InscEst").Value
        Contrato.Text = RS.Fields("Contrato").Value
        Valor.Text = RS.Fields("Valor").Value
        Inicio.Text = RS.Fields("Inicio").Value
        DiaVencimento.Text = RS.Fields("DiaVencimento").Value
        Reajuste.Text = RS.Fields("Reajuste").Value
        Indice.Text = RS.Fields("Indice").Value
        Equipamentos.Text = RS.Fields("Equipamentos").Value

        'Formulario 2 \o/
        Cobranca_F2.Text = RS.Fields("Cobranca_F2").Value
        Endereco_F2.Text = RS.Fields("Endereco_F2").Value
        Bairro_F2.Text = RS.Fields("Bairro_F2").Value
        CEP_F2.Text = RS.Fields("CEP_F2").Value
        Cidade_F2.Text = RS.Fields("Cidade_F2").Value
        Estado_F2.Text = RS.Fields("Estado_F2").Value
        AC_F2.Text = RS.Fields("AC_F2").Value
        OBS_F2.Text = RS.Fields("OBS_F2").Value

        'Formulario 3 \o/
        Sindico_F3.Text = RS.Fields("Sindico_F3").Value
        Telefone_F3.Text = RS.Fields("Telefone_F3").Value
        Email_F3.Text = RS.Fields("Email_F3").Value

        'Blocos \o/
        Obs_Blocos.Text = RS.Fields("OBS_Blocos").Value

        'Formulario 4 \o/
        Contato_F4.Text = RS.Fields("Contato_F4").Value
        Telefone_F4.Text = RS.Fields("Telefone_F4").Value
        Email_F4.Text = RS.Fields("Email_F4").Value

        'Formulario 5 \o/
        Administradora_F5.Text = RS.Fields("Administradora_F5").Value
        Contato_F5.Text = RS.Fields("Contato_F5").Value
        Telefone_F5.Text = RS.Fields("Telefone_F5").Value
        Email_F5.Text = RS.Fields("Email_F5").Value
        Endereco_F5.Text = RS.Fields("Endereco_F5").Value
        Bairro_F5.Text = RS.Fields("Bairro_F5").Value
        Cidade_F5.Text = RS.Fields("Cidade_F5").Value
        CEP_F5.Text = RS.Fields("CEP_F5").Value
        Estado_F5.Text = RS.Fields("Estado_F5").Value
        chkAtivo.Checked = False
        chkInativo.Checked = False

        If RS.Fields("AtivoOuInativo").Value = 1 Then
            chkAtivo.Checked = True
        Else
            chkInativo.Checked = True
        End If
        Return True
    End Function
    Public Function ListaClientes()
        'Rotina para listar os clientes no combo
        cboCliente.Items.Clear()
        Conexao = New ADODB.Connection
        Conexao.Open(StrConn)
        RS = New ADODB.Recordset
        RS.Open("SELECT * FROM Clientes", Conexao, 1, 2)
        While RS.EOF = False
            cboCliente.Items.Add(RS.Fields("Cliente").Value)
            RS.MoveNext()
        End While
        Return True
    End Function
    Private Sub cboCliente_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboCliente.SelectedIndexChanged
        'Rotina para exibir os dados do cliente
        ExibeDados(cboCliente.Text) 'Chama a função ExibeDados, passando o conteúdo de cboClientes.Text como parâmetro de busca, no caso o nome do cliente
    End Sub
    Private Sub btoAlterar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btoAlterar.Click
        Conexao = New ADODB.Connection
        Conexao.Open(StrConn)
        RS = New ADODB.Recordset
        RS.Open("SELECT * FROM Clientes WHERE Cliente = '" & cboCliente.Text & "'", Conexao, 1, 2)
        RS.Fields("Guia").Value = Guia.Text
        RS.Fields("Endereco").Value = Endereco.Text
        RS.Fields("Bairro").Value = Bairro.Text
        RS.Fields("CEP").Value = CEP.Text
        RS.Fields("Cidade").Value = Cidade.Text
        RS.Fields("Estado").Value = Estado.Text
        RS.Fields("CNPJ").Value = CNPJ.Text
        RS.Fields("InscEst").Value = InscEst.Text
        RS.Fields("Contrato").Value = Contrato.Text
        RS.Fields("Valor").Value = Valor.Text
        RS.Fields("Inicio").Value = Inicio.Text
        RS.Fields("DiaVencimento").Value = DiaVencimento.Text
        RS.Fields("Reajuste").Value = Reajuste.Text
        RS.Fields("Indice").Value = Indice.Text
        RS.Fields("Equipamentos").Value = Equipamentos.Text

        'Formulario 2 \o/
        RS.Fields("Cobranca_F2").Value = Cobranca_F2.Text
        RS.Fields("Endereco_F2").Value = Endereco_F2.Text
        RS.Fields("Bairro_F2").Value = Bairro_F2.Text
        RS.Fields("CEP_F2").Value = CEP_F2.Text
        RS.Fields("Cidade_F2").Value = Cidade_F2.Text
        RS.Fields("Estado_F2").Value = Estado_F2.Text
        RS.Fields("AC_F2").Value = AC_F2.Text
        RS.Fields("OBS_F2").Value = OBS_F2.Text

        'Formulario 3 \o/
        RS.Fields("Sindico_F3").Value = Sindico_F3.Text
        RS.Fields("Telefone_F3").Value = Telefone_F3.Text
        RS.Fields("Email_F3").Value = Email_F3.Text

        'Blocos \o/
        RS.Fields("OBS_Blocos").Value = Obs_Blocos.Text

        'Formulario 4 \o/
        RS.Fields("Contato_F4").Value = Contato_F4.Text
        RS.Fields("Telefone_F4").Value = Telefone_F4.Text
        RS.Fields("Email_F4").Value = Email_F4.Text

        'Formulario 5 \o/
        RS.Fields("Administradora_F5").Value = Administradora_F5.Text
        RS.Fields("Contato_F5").Value = Contato_F5.Text
        RS.Fields("Telefone_F5").Value = Telefone_F5.Text
        RS.Fields("Email_F5").Value = Email_F5.Text
        RS.Fields("Endereco_F5").Value = Endereco_F5.Text
        RS.Fields("Bairro_F5").Value = Bairro_F5.Text
        RS.Fields("Cidade_F5").Value = Cidade_F5.Text
        RS.Fields("CEP_F5").Value = CEP_F5.Text
        RS.Fields("Estado_F5").Value = Estado_F5.Text
        Dim AtivoOuInativo As String = ""

        If chkAtivo.Checked = True Then
            AtivoOuInativo = AtivoOuInativo & "1"
        End If
        If chkInativo.Checked = True Then
            AtivoOuInativo = AtivoOuInativo & "0"
        End If
        RS.Fields("AtivoOuInativo").Value = AtivoOuInativo 'Coloca as informações das permissões na base de dados

        RS.Update()
        MsgBox("Cliente atualizado com sucesso.", MsgBoxStyle.Information, "Atualização de clientes")
        ListaClientes() 'Chama a função ListaClientes, para atualizar os nomes dos clientes no cboClientes, caso o nome seja alterado
        For Each Control As Control In Me.Controls 'For Each para limpar todos os TextBoxes e o ComboBox existentes no formulário
            If TypeOf Control Is TextBox Or TypeOf Control Is ComboBox Then
                Control.Text = String.Empty
            End If
        Next
    End Sub
    Private Sub chkInativo_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        chkAtivo.Checked = False
    End Sub
    Private Sub chkAtivo_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        chkInativo.Checked = False
    End Sub

    Private Sub bto_Imprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bto_Imprimir.Click
        If chkAtivo.Checked = "True" Then
            MsgBox("Imprimir CLiente")
        Else
            MsgBox("Só é permitida a impressão de clientes ativos.", MsgBoxStyle.Information, "Clientes")

        End If
    End Sub
End Class

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0

Olá quintelab valeu aee, forum show de bola..

Bom meu problema é o seguinte

Tenho um Form onde faço cadastro de clientes certo

Nesse form quero colocar um grid onde preencho informações certo

Os dados desse grid devem ser salvos em uma tabela com o codigo do cliente que foi cadastrado no mesmo form que ele certo..

quero saber como faço esse cadastro do grid e os texts junto ao aperter apenas um botao..

e depois como mostrar as informações em um form onde vejo clientes sendo que eu vejo meus clientes da seguinte forma: eu seleciono o nomde do mesmo em um combobox e é mostrada as informações entaum ele deveria preencher o grid tb

Tem como?

Link para o comentário
Compartilhar em outros sites

  • 0

Pelo motivo de que existem mais de um "Elevador" para cada cliente por exemplo

O Cliente: Edificio Plaza

Elevadores:

Elevador:1 - Bloco:6 - Tipo:Social

Elevador:2 - Bloco:4 - Tipo:Serviço

Elevador:3 - Bloco:7 - Tipo:Social

Por Isso presciso do grid, e de outra tabela tambem...

Obrigado por responder!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...