Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

TsR

DatagridView (vb.net)

Por , em .NET

Recommended Posts

TsR    0

TsR
Postado

Galeraaaa... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

 

Eu aqui de novo!

 

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

TsR    0

TsR
Postado

Olá quintelab valeu aee, por responder..

 

 

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?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos .NET
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito