FORM COM DATAGRID
Boa tarde, estou com a seguinte dúvida...
Tenho um fom aonde é realizado procura,exclusão,adição de clientes, neste form tenho um datagrid com 3 campos, número do pedido, data da venda e vendedor....Quando eu clico no botão procurar o evento chama um form pequeno de procura neste form de procura eu digito o cpf do cliente e quando dou um OK ele procura pelo mesmo no BD, Neste BD tenho uma tabela chamada CadClientes e CadPedidos. Eu gostaria que quando fosse realizado a busca pelo cpf ele me apresentasse dentro da DataGrid todos os pedidos deste cliente...Tipo se eu executo o evento hoje no form procurar tem o seguinte codigo..
[txt-color=#ff0000] [/txt-color]
Private Sub Imgcpf_Click()
If txtprocura.Text = "" Then
Exit Sub
End If
Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=x:\Data.mdb;Jet OLEDB:Database Password=tmonrsr2308s;"
Rs.Open "SELECT * FROM CadClientes where Cpf='" & txtprocura.Text & "'", Cnn
Do While Not Rs.EOF
If Rs.Fields("Cpf") = (txtprocura.Text) Then
FundoBranco frmcontclientes
frmcontclientes.txtnomecliente.Text = Rs.Fields("NomeCliente")
frmcontclientes.txtcpf.Text = Rs.Fields("Cpf")
frmcontclientes.txtrg.Text = Rs.Fields("Rg")
frmcontclientes.txtorgaoemissor.Text = Rs.Fields("OrgaoEmissor")
frmcontclientes.txtnascimento.Text = Rs.Fields("Nascimento")
frmcontclientes.cbosexo.Text = Rs.Fields("Sexo")
frmcontclientes.cboestadocivil.Text = Rs.Fields("EstadoCivil")
frmcontclientes.txtenderecoresidencial.Text = Rs.Fields("EnderecoResidencial")
frmcontclientes.txtbairro.Text = Rs.Fields("Bairro")
frmcontclientes.txtcidade.Text = Rs.Fields("Cidade")
frmcontclientes.txtuf.Text = Rs.Fields("Cidade")
frmcontclientes.txtcep.Text = Rs.Fields("Cep")
frmcontclientes.cboresidencia.Text = Rs.Fields("TipoResidencia")
frmcontclientes.txttemporesidencia.Text = Rs.Fields("TempoResidencia")
frmcontclientes.txtfoneresidencial.Text = Rs.Fields("TelefoneResidencial")
frmcontclientes.txtfonecelular.Text = Rs.Fields("Telefonecelular")
frmcontclientes.txtobservacoes.Text = Rs.Fields("Observacoes")
frmcontclientes.lblid.Caption = Rs.Fields("Id")
frmcontclientes.cmdalterar.Enabled = True
frmcontclientes.cmdcancelar.Enabled = True
Rs.Close
Set Rs = Nothing
Cnn.Close
Set Cnn = Nothing
Unload Me
Exit Sub
Else
Rs.MoveNext
End If
Loop
MsgBox "CPF não encontrado", vbInformation, " Atenção!"
txtprocura.Text = ""
txtprocura.SetFocus
End Sub
[txt-color=#000000] [/txt-color]
Como vocês podem ver se ele me encontrar o cadastro ele me prenche todos os campos com as informações, mas eu não sei como fazer para ele me prencher a DataGrid ja que os dados virão de outra tabela...Se alguém poder me dar uma luz agradeceria muito....
Tenho um fom aonde é realizado procura,exclusão,adição de clientes, neste form tenho um datagrid com 3 campos, número do pedido, data da venda e vendedor....Quando eu clico no botão procurar o evento chama um form pequeno de procura neste form de procura eu digito o cpf do cliente e quando dou um OK ele procura pelo mesmo no BD, Neste BD tenho uma tabela chamada CadClientes e CadPedidos. Eu gostaria que quando fosse realizado a busca pelo cpf ele me apresentasse dentro da DataGrid todos os pedidos deste cliente...Tipo se eu executo o evento hoje no form procurar tem o seguinte codigo..
[txt-color=#ff0000] [/txt-color]
Private Sub Imgcpf_Click()
If txtprocura.Text = "" Then
Exit Sub
End If
Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=x:\Data.mdb;Jet OLEDB:Database Password=tmonrsr2308s;"
Rs.Open "SELECT * FROM CadClientes where Cpf='" & txtprocura.Text & "'", Cnn
Do While Not Rs.EOF
If Rs.Fields("Cpf") = (txtprocura.Text) Then
FundoBranco frmcontclientes
frmcontclientes.txtnomecliente.Text = Rs.Fields("NomeCliente")
frmcontclientes.txtcpf.Text = Rs.Fields("Cpf")
frmcontclientes.txtrg.Text = Rs.Fields("Rg")
frmcontclientes.txtorgaoemissor.Text = Rs.Fields("OrgaoEmissor")
frmcontclientes.txtnascimento.Text = Rs.Fields("Nascimento")
frmcontclientes.cbosexo.Text = Rs.Fields("Sexo")
frmcontclientes.cboestadocivil.Text = Rs.Fields("EstadoCivil")
frmcontclientes.txtenderecoresidencial.Text = Rs.Fields("EnderecoResidencial")
frmcontclientes.txtbairro.Text = Rs.Fields("Bairro")
frmcontclientes.txtcidade.Text = Rs.Fields("Cidade")
frmcontclientes.txtuf.Text = Rs.Fields("Cidade")
frmcontclientes.txtcep.Text = Rs.Fields("Cep")
frmcontclientes.cboresidencia.Text = Rs.Fields("TipoResidencia")
frmcontclientes.txttemporesidencia.Text = Rs.Fields("TempoResidencia")
frmcontclientes.txtfoneresidencial.Text = Rs.Fields("TelefoneResidencial")
frmcontclientes.txtfonecelular.Text = Rs.Fields("Telefonecelular")
frmcontclientes.txtobservacoes.Text = Rs.Fields("Observacoes")
frmcontclientes.lblid.Caption = Rs.Fields("Id")
frmcontclientes.cmdalterar.Enabled = True
frmcontclientes.cmdcancelar.Enabled = True
Rs.Close
Set Rs = Nothing
Cnn.Close
Set Cnn = Nothing
Unload Me
Exit Sub
Else
Rs.MoveNext
End If
Loop
MsgBox "CPF não encontrado", vbInformation, " Atenção!"
txtprocura.Text = ""
txtprocura.SetFocus
End Sub
[txt-color=#000000] [/txt-color]
Como vocês podem ver se ele me encontrar o cadastro ele me prenche todos os campos com as informações, mas eu não sei como fazer para ele me prencher a DataGrid ja que os dados virão de outra tabela...Se alguém poder me dar uma luz agradeceria muito....
maiconls, sua tabela esta relacionada a outra por um campo, nas duas tabelas os campos tem o mesmo valor é só dar um select na tabela filho, utilizando como criterio o campo da tabela pai que se relaciona com a tabela filho, vamos supor que seja o campo cpf que esta sendo relacionado,
então
rspedidos.open "select * from cadpedidos where cpf like '" & textcpf.text & "'"
então
rspedidos.open "select * from cadpedidos where cpf like '" & textcpf.text & "'"
Tópico encerrado , respostas não são mais permitidas