ABRIR FORM EM REGISTRO ESPECÍFICO

SANROMAN 28/08/2015 13:50:18
#450604
Olá amigos,

Como faço para abrir um formulário em um registro específico através de um botão em outro formulário. Já tentei de algumas formas, mas o formulário abre sem registro nenhum.
KURTGU 28/08/2015 14:00:38
#450605
Amigo voce nao postou nenhum codigo, nao postou nenhuma tela, nao postou como busca estes dados assim fica dificil...
TUNUSAT 28/08/2015 14:32:54
#450613
SANROMAN,

Você quer que ao abrir o código apareça um registro específico?
Você usou [Ô]recordset[Ô] para carregar uma [Ô]grid[Ô] (por exemplo) ou [Ô]dataset[Ô] direto no objeto ... exemplo: um [Ô]datagrid[Ô]?

[][ô]s,
Tunusat.
SANROMAN 28/08/2015 14:38:05
#450615
KURTGU, boa tarde

Realmente me equivoquei, peço desculpas.

Tenho um formulário que possui campos que são preenchidos através de uma consulta. Esses campos são originalmente do formulário Cadastro de Clientes. Segue abaixo o código..


Dim sqlCon As New SqlConnection(strCmd)
        Dim strSql As String = [Ô]SELECT * [Ô] & _
                               [Ô]FROM TB_ClientesPessoaFisica [Ô] & _
                               [Ô]WHERE pf_TelefoneResidencial = [ô][Ô] & mskTelResDelivery.Text & [Ô][ô][Ô]

        Dim sqlCmd As New SqlCommand(strSql, sqlCon)
        Dim dr As SqlDataReader

        sqlCmd.Connection.Open()
        dr = sqlCmd.ExecuteReader
        dr.Read()

        Try
            If mskTelResDelivery.Text = [Ô]__ ____.____[Ô] Then
                Exit Sub
            Else
                If Not Validar.isValidTelefoneFixo(mskTelResDelivery.Text) Then
                    MessageBox.Show([Ô]Esse número de telefone não é válido...[Ô], [Ô]ERRO[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
                Else
                    If Not dr.HasRows Then
                        If MsgBox([Ô]Cliente não cadastrado. [Ô] + vbCrLf + [Ô]Gostaria de cadastrar o cliente para continuar com a venda?[Ô], MsgBoxStyle.Information + vbOKCancel, [Ô]ATENÇÃO[Ô]) = MsgBoxResult.Ok Then
                            btnCancelarDelivery.PerformClick()
                            mskTelResDelivery.Text = String.Empty
                            frmClientesPessoaFisica.Show()
                            frmClientesPessoaFisica.btnNovo.PerformClick()
                            Exit Sub
                        Else
                            btnCancelarDelivery.PerformClick()
                            Exit Sub
                        End If
                    Else
                        txtIdClientesDelivery.Text = dr([Ô]id_PessoaFisica[Ô]).ToString
                        txtNomeDelivery.Text = dr([Ô]pf_Nome[Ô]).ToString
                        txtEnderecoDelivery.Text = dr([Ô]pf_Endereco[Ô]).ToString
                        txtNumEndDelivery.Text = dr([Ô]pf_NumEnd[Ô]).ToString
                        txtComplEndDelivery.Text = dr([Ô]pf_Complemento[Ô]).ToString
                        txtBairroDelivery.Text = dr([Ô]pf_Bairro[Ô]).ToString
                        txtCidadeDelivery.Text = dr([Ô]pf_Cidade[Ô]).ToString
                        txtEstadoDelivery.Text = dr([Ô]pf_Estado[Ô]).ToString
                        txtCepDelivery.Text = dr([Ô]pf_CEP[Ô]).ToString
                    End If
                End If
            End If

        Catch ex As Exception
            MsgBox([Ô]Erro ao conectar com o banco de dados. Segue detalhes do erro:[Ô] & vbCrLf & ex.ToString, MsgBoxStyle.Exclamation, [Ô]Erro[Ô])
        Finally
            dr.Close()
            sqlCon.Close()
        End Try

    End Sub


Nesse mesmo formulário possuo um botão para editar esses campos caso alguma informação esteja incorreta. O código do campo para edição é o seguinte.


If btnEditarClienteDelivery.Text = [Ô]EDITAR[Ô] Then
   frmClientesPessoaFisica.ShowDialog()
   btnEditarClienteDelivery.Text = [Ô]ATUALIZAR[Ô]
ElseIf btnEditarClienteDelivery.Text = [Ô]ATUALIZAR[Ô] Then
   selecionaCliente()
   btnEditarClienteDelivery.Text = [Ô]EDITAR[Ô]
End If


Esse último código abre formulário cadastro de cliente em branco. Gostaria de saber como abrir o formulário cadastro de cliente no registro específico das informação que estão no campo do primeiro formulário, filtrados pela consulta.

Muito obrigado pela atenção.
SANROMAN 28/08/2015 15:55:36
#450631
Boa tarde TUNUSAT

Quero que abra o formulário cadastro de clientes com o registro selecionado através do código abaixo:


Dim sqlCon As New SqlConnection(strCmd)
Dim strSql As String = [Ô]Select * FROM TB_ClientesPessoaFisica [Ô] & _
                                   [Ô]WHERE PF_TelefoneResidencial = [ô][Ô] & mskTelResDelivery.Text & [Ô][ô][Ô]
Dim sqlCmd As New SqlCommand(strSql, sqlCon)
Dim daClientes As New SqlDataAdapter(sqlCmd)
Dim ds = New DataSet
sqlCmd.Connection.Open()
daClientes.SelectCommand = sqlCmd
daClientes.Fill(ds, [Ô]TB_ClientesPessoaFisica[Ô])


Só que não sei como continuar.
Tópico encerrado , respostas não são mais permitidas
Voltar