TsR

Valeu aee quintelab vou usar os texts mais você tem algum exemplo disso porque na hora de alterar vo me atrapalha tdo tem algum exemplo...........

Ta nãoa mão meu querido!!! Exemplo Formatação

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!

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?

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