Ir para conteúdo
Fórum Script Brasil
  • 0

O q tá errado nesse codigo ?

Guest Rubens Paulino

Perguntado por Guest Rubens Paulino,

 Share

Pergunta

Guest Rubens Paulino

Guest Rubens Paulino

Postado
Postado 

Private Sub TextBox1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Leave
        TextBox1.BackColor = Color.White
        cgccpf = TextBox1.Text
        Dim Numdig As Integer = TextBox1.TextLength
        If Numdig > 0 Then
            If Numdig < 11 Or Numdig > 14 Then
                MessageBox.Show("Numero de digitos invalido para CPF e CNPJ")
                TextBox1.Text = TextBox1.Text
                TextBox1.Focus()
            End If
            If Numdig > 11 And Numdig <= 13 Then
                MessageBox.Show("Numero de digitos invalido para CPF e CNPJ")
                TextBox1.Text = TextBox1.Text
                TextBox1.Focus()
            End If
            If Numdig = 11 Then
                If ValidarCPF(TextBox1.Text.Trim) = False Then
                    MessageBox.Show("O CPF informado não é valido ... ")
                    TextBox1.Text = TextBox1.Text
                    TextBox1.Focus()
                Else
                    'MessageBox.Show("O CPF esta OK ... ")
                    TextBox1.Text = Mid(TextBox1.Text, 1, 3) & "." & Mid(TextBox1.Text, 4, 3) & "." & Mid(TextBox1.Text, 7, 3) & "-" & Mid(TextBox1.Text, 10, 2)
                End If
            End If
            If Numdig = 14 Then
                If ValidarCNPJ(TextBox1.Text.Trim) = False Then
                    MessageBox.Show("O CNPJ informado não é valido ... ")
                    TextBox1.Text = TextBox1.Text
                    TextBox1.Focus()
                Else
                    'MessageBox.Show("O CNPJ esta OK ... ")
                    TextBox1.Text = Mid(TextBox1.Text, 1, 2) & "." & Mid(TextBox1.Text, 3, 3) & "." & Mid(TextBox1.Text, 6, 3) & "/" & Mid(TextBox1.Text, 9, 4) & "-" & Mid(TextBox1.Text, 13, 2)
                End If
            End If
        End If

        Dim conn As New SqlClient.SqlConnection
        Dim comando As New SqlClient.SqlCommand
        Dim dr_cli As SqlClient.SqlDataReader
        
        conn.ConnectionString = My.Settings.SisvenConnectionString

        Try
            conn.Open()
            comando.Connection = conn

            'Vê se o cliente já esta cadastrado ou não
            comando.Parameters.AddWithValue("@cgccpf", cgccpf)
            comando.CommandText = "Select cgccpf FROM cadcli Where cgccpf=@cgccpf"

            dr_cli = comando.ExecuteReader()
            ' Carregar os TEXTBOX do formulario com as informacoes da tabela

            If dr_cli.Read() Then
                While dr_cli.Read()
                    TextBox1.Text = dr_cli.Item(0)
                    TextBox2.Text = dr_cli.Item(1)
                    'continua ate carregar todas as informacoes da tabela
                End While
            Else
                Console.WriteLine("Registro não encontrado.")
            End If
            'Fecha o sqlDataReader e o SqlConnection
            conn.Close()
        Catch ex As Exception
            MessageBox.Show("Erro ao efetuar a conexão com a base de dados :" + ex.Message)
        Finally
            conn.Close()
            conn.Dispose()
        End Try

    End Sub

**** O Q TÁ ERRADO, QUERO ALGO SIMPLES ... LER NA TABELA E CARREGAR NOS TEXTBOX ***

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
Guest Visitante

Guest Visitante

Postado
Postado
Private Sub TextBox1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Leave

TextBox1.BackColor = Color.White

cgccpf = TextBox1.Text

Dim Numdig As Integer = TextBox1.TextLength

If Numdig > 0 Then

If Numdig < 11 Or Numdig > 14 Then

MessageBox.Show("Numero de digitos invalido para CPF e CNPJ")

TextBox1.Text = TextBox1.Text

TextBox1.Focus()

End If

If Numdig > 11 And Numdig <= 13 Then

MessageBox.Show("Numero de digitos invalido para CPF e CNPJ")

TextBox1.Text = TextBox1.Text

TextBox1.Focus()

End If

If Numdig = 11 Then

If ValidarCPF(TextBox1.Text.Trim) = False Then

MessageBox.Show("O CPF informado não é valido ... ")

TextBox1.Text = TextBox1.Text

TextBox1.Focus()

Else

'MessageBox.Show("O CPF esta OK ... ")

TextBox1.Text = Mid(TextBox1.Text, 1, 3) & "." & Mid(TextBox1.Text, 4, 3) & "." & Mid(TextBox1.Text, 7, 3) & "-" & Mid(TextBox1.Text, 10, 2)

End If

End If

If Numdig = 14 Then

If ValidarCNPJ(TextBox1.Text.Trim) = False Then

MessageBox.Show("O CNPJ informado não é valido ... ")

TextBox1.Text = TextBox1.Text

TextBox1.Focus()

Else

'MessageBox.Show("O CNPJ esta OK ... ")

TextBox1.Text = Mid(TextBox1.Text, 1, 2) & "." & Mid(TextBox1.Text, 3, 3) & "." & Mid(TextBox1.Text, 6, 3) & "/" & Mid(TextBox1.Text, 9, 4) & "-" & Mid(TextBox1.Text, 13, 2)

End If

End If

End If

Dim conn As New SqlClient.SqlConnection

Dim comando As New SqlClient.SqlCommand

Dim dr_cli As SqlClient.SqlDataReader

conn.ConnectionString = My.Settings.SisvenConnectionString

Try

conn.Open()

comando.Connection = conn

'Vê se o cliente já esta cadastrado ou não

comando.Parameters.AddWithValue("@cgccpf", cgccpf)

comando.CommandText = "Select cgccpf FROM cadcli Where cgccpf=@cgccpf"

dr_cli = comando.ExecuteReader()

' Carregar os TEXTBOX do formulario com as informacoes da tabela

If dr_cli.Read() Then

While dr_cli.Read()

TextBox1.Text = dr_cli.Item(0)

TextBox2.Text = dr_cli.Item(1)

'continua ate carregar todas as informacoes da tabela

End While

Else

Console.WriteLine("Registro não encontrado.")

End If

'Fecha o sqlDataReader e o SqlConnection

conn.Close()

Catch ex As Exception

MessageBox.Show("Erro ao efetuar a conexão com a base de dados :" + ex.Message)

Finally

conn.Close()

conn.Dispose()

End Try

End Sub

**** O Q TÁ ERRADO, QUERO ALGO SIMPLES ... LER NA TABELA E CARREGAR NOS TEXTBOX ***

esqueci de dizer ... a mensagem de erro q dá é essa :

INDEX WAS OUTSIDE THE BOUNDS OF THE ARRAY

o q é isso ????

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Rubens Paulino

Guest Rubens Paulino

Postado
Postado
Private Sub TextBox1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Leave

TextBox1.BackColor = Color.White

cgccpf = TextBox1.Text

Dim Numdig As Integer = TextBox1.TextLength

If Numdig > 0 Then

If Numdig < 11 Or Numdig > 14 Then

MessageBox.Show("Numero de digitos invalido para CPF e CNPJ")

TextBox1.Text = TextBox1.Text

TextBox1.Focus()

End If

If Numdig > 11 And Numdig <= 13 Then

MessageBox.Show("Numero de digitos invalido para CPF e CNPJ")

TextBox1.Text = TextBox1.Text

TextBox1.Focus()

End If

If Numdig = 11 Then

If ValidarCPF(TextBox1.Text.Trim) = False Then

MessageBox.Show("O CPF informado não é valido ... ")

TextBox1.Text = TextBox1.Text

TextBox1.Focus()

Else

'MessageBox.Show("O CPF esta OK ... ")

TextBox1.Text = Mid(TextBox1.Text, 1, 3) & "." & Mid(TextBox1.Text, 4, 3) & "." & Mid(TextBox1.Text, 7, 3) & "-" & Mid(TextBox1.Text, 10, 2)

End If

End If

If Numdig = 14 Then

If ValidarCNPJ(TextBox1.Text.Trim) = False Then

MessageBox.Show("O CNPJ informado não é valido ... ")

TextBox1.Text = TextBox1.Text

TextBox1.Focus()

Else

'MessageBox.Show("O CNPJ esta OK ... ")

TextBox1.Text = Mid(TextBox1.Text, 1, 2) & "." & Mid(TextBox1.Text, 3, 3) & "." & Mid(TextBox1.Text, 6, 3) & "/" & Mid(TextBox1.Text, 9, 4) & "-" & Mid(TextBox1.Text, 13, 2)

End If

End If

End If

Dim conn As New SqlClient.SqlConnection

Dim comando As New SqlClient.SqlCommand

Dim dr_cli As SqlClient.SqlDataReader

conn.ConnectionString = My.Settings.SisvenConnectionString

Try

conn.Open()

comando.Connection = conn

'Vê se o cliente já esta cadastrado ou não

comando.Parameters.AddWithValue("@cgccpf", cgccpf)

comando.CommandText = "Select cgccpf FROM cadcli Where cgccpf=@cgccpf"

dr_cli = comando.ExecuteReader()

' Carregar os TEXTBOX do formulario com as informacoes da tabela

If dr_cli.Read() Then

While dr_cli.Read()

TextBox1.Text = dr_cli.Item(0)

TextBox2.Text = dr_cli.Item(1)

'continua ate carregar todas as informacoes da tabela

End While

Else

Console.WriteLine("Registro não encontrado.")

End If 'Fecha o sqlDataReader e o SqlConnection

conn.Close()

Catch ex As Exception

MessageBox.Show("Erro ao efetuar a conexão com a base de dados :" + ex.Message)

Finally

conn.Close()

conn.Dispose()

End Try

End Sub

**** O Q TÁ ERRADO, QUERO ALGO SIMPLES ... LER NA TABELA E CARREGAR NOS TEXTBOX ***

esqueci de dizer ... a mensagem de erro q dá é essa :

INDEX WAS OUTSIDE THE BOUNDS OF THE ARRAY

o q é isso ????

NESSE TRECHO Q DÁ ERRO, quando TENTO LER O DATAREADER E CARREGAR OS TEXTBOX DO MEU FORMULARIO DE CADASTRO COM AS INFORMACOES já GRAVADAS NA TABELA.

If dr_cli.Read() Then
While dr_cli.Read()
TextBox1.Text = dr_cli.Item(0)
TextBox2.Text = dr_cli.Item(1)
'continua ate carregar todas as informacoes da tabela
End While

Link para o comentário
Compartilhar em outros sites
  • 0
Denis Bittencourt Muniz

Denis Bittencourt Muniz

Postado
Postado

SQL: "Select cgccpf FROM cadcli Where cgccpf=@cgccpf"

Seu DataReader dr_cli está apenas com informações de CPF/CNPJ do cliente, pois foi a única coluna requisitada na consulta SQL. Como você precisa de outras informações (colunas) do cliente, requisite as mesmas na instrução SQL para assim o DataReader ter o resultado das mesmas guardado em buffer.

Bom, qualquer dúvida, lance um post! Até mais!

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,5k
    • Posts
      652,4k
×
×
  • Criar Novo...