از این کد استفاده میکنم ولی اررور دارم ، چک میکنه که هست ، ولی بخواد بعدش 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
چک کردن قبل ثبت اطلاعات در دیتابیس sql
پاسخ با نقل قول
نوشته شده توسط محمد آشتیانی
