سلام
ببینید اون کوئری که بهتون عرض کردم ، اگر به نتیجش توجه کنید ، چیزی حدود 9000 کد ارور رو پوشش داده ، یعنی شما باید اول متن تک تک اون خطاها رو ترجمه کنی!
تفکیک خطاها ، اگر تعداد محدودی مد نظر باشه ، میتونه چیزی شبیه به این بشه (یعنی شما کوئریت رو در بلوک Try ، اجرا میکنی و اگر خطا داشتی در بخش Catch اون خطا رو مدیریت میکنی)
Try
Dim da As New DataAccess
da.ConOpen()
da.ExecNonQuery("INSERT INTO TEST (id, title) VALUES (1,'hello')")
da.ConClose()
Catch ex As SqlClient.SqlException
Select Case ex.Number
Case 2627
MsgBox("ترجمه متن خطای 2627")
Case 544
MsgBox("ترجمه متن خطای 544")
End Select
End Try
اما اگر بخواهید کل 9000 خطا رو اونم فقط برای SqlServer ترجمه کنید طبیعتا ساختار دیگری رو برای پیاده سازی و نمایش میطلبه.
موفق باشید.