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:
Pergunta
rodrigotnoma
Meu código é:
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 quintelabAdicionado 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.