Мы получили устаревшее приложение vb.net, которое работало годами.
Но вдруг он перестает работать вчера и дает время ожидания сервера SQL
Большая часть приложения выдает ошибку тайм-аута, одна часть, например, ниже кода:
command2 = New SqlCommand("select * from Acc order by AccDate,AccNo,AccSeq", SBSConnection2)
reader2 = command2.ExecuteReader()
If reader2.HasRows() Then
While reader2.Read()
If IndiAccNo <> reader2("AccNo") Then
CAccNo = CAccNo + 1
CAccSeq = 10001
IndiAccNo = reader2("AccNo")
Else
CAccSeq = CAccSeq + 1
End If
command3 = New SqlCommand("update Acc Set AccNo=@NewAccNo,AccSeq=@NewAccSeq where AccNo=@AccNo and AccSeq=@AccSeq", SBSConnection3)
command3.Parameters.Add("@AccNo", SqlDbType.Int).Value = reader2("AccNo")
command3.Parameters.Add("@AccSeq", SqlDbType.Int).Value = reader2("AccSeq")
command3.Parameters.Add("@NewAccNo", SqlDbType.Int).Value = CAccNo
command3.Parameters.Add("@NewAccSeq", SqlDbType.Int).Value = CAccSeq
command3.ExecuteNonQuery()
End While
End If
Это работало и теперь дает время ожидания в command3.ExecuteNonQuery ()
Есть идеи?
~~~~~~~~~~~
Некоторая информация:
Нет ничего, что было изменено в сети, и приложение использует локальную базу данных
Основная проблема в том, что даже в среде разработки это больше не работает