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

Datareader - Execução estranha


rodrigotnoma

Pergunta

Meu código é:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim conn As SqlClient.SqlConnection
        Dim sql, sql1 As String
        Dim cmd, cmd1 As SqlClient.SqlCommand
        Dim dr, dr1 As SqlClient.SqlDataReader

        sql1 = "insert into tb_usuarios(usuario,senha) values('" & TextBox1.Text & "', '" & TextBox2.Text & "')"

        sql = "select * from tb_usuarios where usuario='" & TextBox1.Text & "'"

        conn = New SqlClient.SqlConnection("Data Source=USER-B95C64A782\SQLEXPRESS;Initial Catalog=teste;Integrated Security=True;Pooling=False;MultipleActiveResultSets=True")

        conn.Open()

        cmd = New SqlClient.SqlCommand(sql, conn)

        dr = cmd.ExecuteReader

        If dr.Read() Then

            MsgBox("usuario já existe", MsgBoxStyle.Exclamation)

            TextBox1.Clear()
            TextBox2.Clear()
            TextBox1.Focus()

            dr.Close()

        Else

            [b]dr.Close()

            cmd1 = New SqlClient.SqlCommand(sql1, conn)

            dr1 = cmd1.ExecuteReader

            MsgBox("Cadastrado", MsgBoxStyle.OkOnly)

            TextBox1.Clear()
            TextBox2.Clear()

            dr.Close()
[/b]
        End If

    End Sub

O que não consigo entender é na parte em negrito.

Está fazendo o inserto correto no BD, mas não seria necessario ter isso:

cmd1.ExecuteNonQuery()

para realizar o INSERT????

Obrigado

Editado por quintelab
Adicionado BBCode Code
Link para o comentário
Compartilhar em outros sites

3 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.

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.



  • Estatísticas dos Fóruns

    • Tópicos
      152,2k
    • Posts
      651,9k
×
×
  • Criar Novo...