Invalid attempt to read when no data is present

[azn1387]

وقتي كه بانك خالي هستش و مي خوام كه اطلاعاتي رو ثبت كنم اين پيغام ظاهر مي شه:

[ali_md110]

کد برنامتونو بزارید ببینیم چی نوشتی

[azn1387]

اينم كد استفاده شده:


Dim query As String = "select s_book from t_book where name_title = N'" + Combotitle1.Text.Trim + "'"

Dim dp2 As SqlDataAdapter = New SqlDataAdapter(query, obcnn)
Dim ds2 As DataSet = New DataSet()
dp2.Fill(ds2, "s_book")
If ds2.Tables("s_book").Rows.Count = Texts_book1.Text.Trim Then

MsgBox("این شماره كتاب قبلاً ثبت شده است", MsgBoxStyle.Information, " ")
Texts_book1.Focus()
Exit Sub

Else

obcmm = obcnn.CreateCommand()
obcmm.CommandText = "insert into t_book values ('" + Texts_book1.Text.Trim + "','" + Combos_title2.Text.Trim + "','" + Comboonvan3.Text.Trim + "','" + Combonevisande4.Text.Trim + "','" + Combomota5.Text.Trim + "','" + Texttedad2.Text.Trim + "','" + Combotitle1.Text.Trim + "','" + TextBox1.Text.Trim + "','" + TextBox2.Text.Trim + "','" + TextBox3.Text.Trim + "','" + Textdes3.Text.Trim + "')"

obcnn.Open()
mysqldatareader = obcmm.ExecuteReader()
mysqldatareader.Read()
obcnn.Close()