منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته

اخوتي الاعزاء انا احاول عند تشغيل الفورم يستدعي قيمة الendtime لليبول في حالة انها فراغ يظهر ليبول Welcomeاما في حالة الendtime اكبر او يساوي ليبول 4 يظهر ماسج بوكس ولكن عند التشغيل يظهر لي خطاء سارفع صورة الخطاء ومرفق الملف موضح فيه اكثرالصور مرفقة ايضا

عزرا هذا هو الملف مرفق

في تحت end using بتوقفه

لا بس جربت استخدم كود تاني وبرده عمل خطاء في "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 Using

انا مسحت واحد منهم فعلا واشتغل بس المفروض في خطوة بعدها بيعمل تحديث لقعدة البيانات فبيدي خطاء عند cmd.ExecuteNonQuery()
مرفق الملف الجديد بعد التعديل

لقد وجدت الخطاء وتم الحل شكرا ولكن احتاج مساعدة انا انهيت مشروعي واريد تصديره الي شخص اخر علي شكل exe ممكن شرح تفصيلي للخطوات

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

fireswored1

fireswored1

fireswored1

fireswored1

fireswored1