nafiseh_hch
Member
سلام
من تکه کد زیر رو نوشتم ولی هر کاری می کنم این error رو میده
There is already an open DataReader associated with this Command which must be closed first.
کد:
ممنون می شم اگه کسی بتونه کمکم کنه
من تکه کد زیر رو نوشتم ولی هر کاری می کنم این error رو میده
There is already an open DataReader associated with this Command which must be closed first.
کد:
کد:
[SIZE=2][COLOR=black]Dim count As Int32 = 0[/COLOR][/SIZE]
[SIZE=2][COLOR=black]Dim MySqlCount AsNew SqlCommand("SELECT Count(*) FROM Comission01", MySqlConnection)[/COLOR][/SIZE]
[SIZE=2][COLOR=black]MySqlConnection.Open()[/COLOR][/SIZE]
[SIZE=2][COLOR=black]count = Convert.ToInt32(MySqlCount.ExecuteScalar())[/COLOR][/SIZE]
[SIZE=2][COLOR=black]MySqlConnection.Close()[/COLOR][/SIZE]
[SIZE=2][COLOR=black]Dim MySqlSelect AsNew SqlCommand("SELECT Id,CoLatterNo,CoLatterDate,comptxt FROM Comission01", MySqlConnection)[/COLOR][/SIZE]
[SIZE=2][COLOR=black]MySqlConnection.Open()[/COLOR][/SIZE]
[SIZE=2][COLOR=black]Dim DataReader As System.Data.SqlClient.SqlDataReader = MySqlSelect.ExecuteReader()[/COLOR][/SIZE]
[COLOR=black][SIZE=2]Dim finaltxt As[/SIZE][SIZE=2]String[/SIZE][/COLOR]
[SIZE=2][COLOR=black]For a AsInteger = 0 To count - 1[/COLOR][/SIZE]
[COLOR=black][SIZE=2]If (DataReader.Read()) [/SIZE][SIZE=2]Then[/SIZE][/COLOR]
[SIZE=2][COLOR=black]id = DataReader("id").ToString()[/COLOR][/SIZE]
[SIZE=2][COLOR=black]Dim str1 AsString = DataReader("comptxt").ToString()[/COLOR][/SIZE]
[COLOR=black][SIZE=2]Dim str2 AsString = [/SIZE][SIZE=2]" "[/SIZE][/COLOR]
[SIZE=2][COLOR=black]Dim pos AsInteger = InStr(str1, str2)[/COLOR][/SIZE]
[SIZE=2][COLOR=black]Dim res AsString = str1.Substring(pos - 1)[/COLOR][/SIZE]
[SIZE=2][COLOR=black]finaltxt = " " & DataReader("CoLatterNo").ToString() & " " & DataReader("CoLatterDate").ToString() & res[/COLOR][/SIZE]
[SIZE=2][COLOR=black]Dim MySqlUpdate AsNew SqlCommand("UPDATE Comission01 SET comptxt2=@comptxt2 where id=" + "'" + id + "'", MySqlConnection)[/COLOR][/SIZE]
[SIZE=2][COLOR=black]MySqlUpdate.Parameters.Add("@comptxt2", SqlDbType.NText)[/COLOR][/SIZE]
[SIZE=2][COLOR=black]MySqlUpdate.Parameters("@comptxt2").Value = finaltxt[/COLOR][/SIZE]
[SIZE=2][COLOR=black]MySqlUpdate.ExecuteNonQuery()[/COLOR][/SIZE]
[SIZE=2][COLOR=black]Label1.Text = finaltxt[/COLOR][/SIZE]
[COLOR=black][SIZE=2]End[/SIZE][SIZE=2]If[/SIZE][/COLOR]
[SIZE=2][COLOR=black]Next[/COLOR][/SIZE]
[SIZE=2][COLOR=black]MySqlConnection.Close()[/COLOR][/SIZE]
آخرین ویرایش: