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
Pergunta
TsR
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:
Link para o comentário
Compartilhar em outros sites
6 respostass a esta questão
Posts Recomendados
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.