از این کد استفاده میکنم ولی اررور دارم ، چک میکنه که هست ، ولی بخواد بعدش Insert کنه اررور داره و به باز بودن datareader گیر میده و چند باری بستمش ولی بازم اررور دارم ، راهنمایی دوستان
If Txt_UserName.Text = Nothing Then MessageBox.Show(" usernamo bezan ")
Txt_UserName.Focus()
Else
Try
cmd = New SqlCommand
cmd.Connection = con
con.Open()
strsql = "select UserName from TblLogin where UserName=@UserName and [PassWord]=@PassWord"
cmd = New SqlCommand(strsql, con)
cmd.Parameters.AddWithValue("@UserName", Txt_UserName.Text)
cmd.Parameters.AddWithValue("@Password", Txt_PassWord.Text)
dr = cmd.ExecuteReader()
If con.State = ConnectionState.Open Then
If dr.Read Then
MessageBox.Show(" hastesh")
Else
cmd.CommandText = "INSERT INTO TblLogin (UserName,PassWord,UserLevel)
VALUES (@UserName,@PassWord,@UserLevel)"
cmd.Parameters.AddWithValue("UserName", Txt_UserName.Text)
cmd.Parameters.AddWithValue("PassWord", Txt_PassWord.Text)
cmd.Parameters.AddWithValue("UserLevel", Cbo_UserLevel.Text)
If con.State = ConnectionState.Open Then
cmd.ExecuteNonQuery()
MessageBox.Show("Reg shod")
End If
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
con.Close()
End Try
End If