اكواد الحفظ والتحديث

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

انا استخدم هذا الكود في الحفظ

 If (FileUpload1.HasFile) Then
            Try
                con = New OleDbConnection("Provider=MSDAORA.1;Password=dbateam;User ID=admin;Data Source=sbgmega;Persist Security Info=True")
                con.Open()
                Dim str As String = FileUpload1.PostedFile.FileName
                str = System.IO.Path.GetFileName(str)
                FileUpload1.PostedFile.SaveAs(Server.MapPath("~\t_attach\") & str)

                '  Dim cm2 As New OleDbCommand("INSERT INTO att (attach) VALUES ('" & str & "')", con)
                Dim cm2 As New OleDbCommand("INSERT INTO taeen (sno,EMP_NO,attach) VALUES ('" & sno.Text & "','" & emp_no.Text & "','t_attach\" & str & "')'", con)

                ' cm2.Parameters.AddWithValue("@file1.text", str)
                cm2.ExecuteNonQuery()
                HyperLink1.NavigateUrl = str
                Label2.Text = "File Uploaded Successfully"
            Finally
                con.Close()
            End Try
        Else
            LABEL4.TEXT = "ERROR IN SAVE"
            Label2.Text = "!Error In Uploaded"
        End If

بس المشكلة ان الكود اذا لم اضع اتاتش او لم ادخل في sno او emp_no

بمعنى لابد ان ادخل فيها كلها او يعطيني خطأ

اريد كود يعطين الخطأ اين واذا لم ادخل في احد التكست يحفظها فاضية ولا يعطيني خطأ

يمعنى أخر اريد التعديل في هذا الكود بحيث يبدو افضل في الحفظ وأسهل على المستخدم

ثانيا انا استخدم هذا الكود للتحديث

con = New OleDbConnection("Provider=MSDAORA.1;Password=dbateam;User ID=admin;Data Source=sbgmega;Persist Security Info=True")

        con.Open()

        Dim cmd As New OleDbCommand("update taeen set emp_no=" & emp_no.Text & "where sno=" & sno.Text, con)
        Dim cmd2 As New OleDbCommand("update taeen set NATIONAL_ID=" & nat.Text & "where sno=" & sno.Text, con)
        Dim cmd3 As New OleDbCommand("update taeen set taeen_name='" & taeen_name.Text & "'where sno=" & sno.Text, con)
        Dim cmd4 As New OleDbCommand("update taeen set status='" & status.Text & "'where sno=" & sno.Text, con)

        cmd.ExecuteNonQuery()
        cmd2.ExecuteNonQuery()
        cmd3.ExecuteNonQuery()
        cmd4.ExecuteNonQuery()
        Label3.Visible = True
        con.Close()
        ' emp_no.Enabled = True

        'Me.emp_no.Focus()

استخدم هذا الكود للتحديث في زر اخر بس اعاني نفس المشكلة يمعنى كيف اضع الاتاتش في الكود

يعني انا ادخلت بعض المعلومات لمستخدم ما واردت فيما بعد ان احدث معلوماته ومن ضمن المعلومات الاتاتش

كيف استطيع ذلك

هل استطيع دمج الكودين في زر واحد اسميه "حفظ"

يمعنى اذا ضغط المستخدم على هذا الزر يحفظ ويحدث في نفس الوقت

اريد كووود يبين الخطأ أين وايضا اريد يدخل البيانات حتى ولو كان التسكت فارغ

ارجووووووو ان تكونو فهمتو قصدي

وشكر جزاكم الله خير