+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة في حل هذا الخطاء (/showthread.php?tid=50966)
مساعدة في حل هذا الخطاء - fireswored1 - 18-01-25
السلام عليكم ورحمة الله وبركاته
اخوتي الاعزاء انا احاول عند تشغيل الفورم يستدعي قيمة الendtime لليبول في حالة انها فراغ يظهر ليبول Welcomeاما في حالة الendtime اكبر او يساوي ليبول 4 يظهر ماسج بوكس ولكن عند التشغيل يظهر لي خطاء سارفع صورة الخطاء ومرفق الملف موضح فيه اكثرالصور مرفقة ايضا
عزرا هذا هو الملف مرفق
RE: مساعدة في حل هذا الخطاء - fireswored1 - 18-01-25
في تحت end using بتوقفه
RE: مساعدة في حل هذا الخطاء - fireswored1 - 18-01-25
لا بس جربت استخدم كود تاني وبرده عمل خطاء في "dt"
كود :
'Dim q As String = "select * from new_data where ID='" & techang.Text & "'"
'Using con As OleDb.OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=logcode.mdb;;Jet OLEDB:Database Password=8294;")
' Using cmd As OleDbCommand = New OleDbCommand(q, con)
' Using da As New OleDb.OleDbDataAdapter()
' da.SelectCommand = cmd
' Using dt As New DataTable
' da.Fill(dt)
' If dt.Rows.Count > 0 Then
' Label2.Text = dt.Rows(0)(3).ToString()
' Label1.Text = dt.Rows(0)(4).ToString()
' End If
' End Using
' End Using
' End UsingRE: مساعدة في حل هذا الخطاء - fireswored1 - 18-01-25
انا مسحت واحد منهم فعلا واشتغل بس المفروض في خطوة بعدها بيعمل تحديث لقعدة البيانات فبيدي خطاء عند cmd.ExecuteNonQuery()
مرفق الملف الجديد بعد التعديل
RE: مساعدة في حل هذا الخطاء - fireswored1 - 18-01-25
لقد وجدت الخطاء وتم الحل شكرا ولكن احتاج مساعدة انا انهيت مشروعي واريد تصديره الي شخص اخر علي شكل exe ممكن شرح تفصيلي للخطوات