[سؤال] مشكلة في كود الحفظ - نسخة قابلة للطباعة

كود :

       If Not check() Then

            Exit Sub

        End If

        CreateConn()

        Dim SQLString As String = "SELECT * FROM RENT_TBL WHERE LEASE_NO='" & Me.TXT_CON_NO.Text & "' "

        Dim objCommand As OleDbCommand = New OleDbCommand(SQLString, getConn())

        OpenConn()

        Dim objDataReader As OleDbDataReader

        Try

            objDataReader = objCommand.ExecuteReader()

            If objDataReader.HasRows Then

                has_row = 1

            Else

                has_row = 2

            End If

            objDataReader.Close()

        Catch OleDbExceptionErr As OleDbException

            MessageBox.Show(OleDbExceptionErr.Message, "eeee Access SQL")

        End Try

        objCommand.Dispose()

        objCommand = Nothing

        objDataReader = Nothing

        CloseConn()

        If has_row = 2 Then

            If MsgBox(" هل تريد حفظ السجل الحالي ؟ ", MsgBoxStyle.OkCancel, "تأكيد الحفظ") = MsgBoxResult.Cancel Then

                Exit Sub

            End If

            Dim rs1 As String

            Try

                rs1 = "INSERT INTO RENT_TBL (BULD_NO,BULD_NAM,FLAT_NO,FLAT_NAM,RENTER_NAM,CIV_ID,RENT_VAL,BEFO_PAY,RENT_ST,RENT_FIN,LEASE_NO,RENT_NOT) VALUES (@BULD_NO,@BULD_NAM,@FLAT_NO,@FLAT_NAM,@RENTER_NAM,@CIV_ID,@RENT_VAL,@BEFO_PAY,@RENT_ST,@RENT_FIN,@LEASE_NO,@RENT_NOT)"

                Dim cmdrent As New OleDb.OleDbCommand(rs1, con)

                cmdrent.Parameters.AddWithValue("BULD_NO", CMB_BULD.SelectedValue.ToString)

                cmdrent.Parameters.AddWithValue("BULD_NAM", CMB_BULD.SelectedText)

                cmdrent.Parameters.AddWithValue("FLAT_NO", cmp_flat.SelectedValue.ToString)

                cmdrent.Parameters.AddWithValue("FLAT_NAM", cmp_flat.SelectedText)

                cmdrent.Parameters.AddWithValue("RENTER_NAM", txt_renter.Text)

                cmdrent.Parameters.AddWithValue("CIV_ID", txt_civ.Text)

                cmdrent.Parameters.AddWithValue("RENT_VAL", txt_val.Text)

                cmdrent.Parameters.AddWithValue("BEFO_PAY", txt_pay.Text)

                cmdrent.Parameters.AddWithValue("RENT_ST", ST_DAT.Text)

                cmdrent.Parameters.AddWithValue("RENT_FIN", END_DAT.Text)

                cmdrent.Parameters.AddWithValue("LEASE_NO", TXT_CON_NO.Text)

                cmdrent.Parameters.AddWithValue("RENT_NOT", TXT_NOTE.Text)

                con.Open()

                cmdrent.ExecuteNonQuery()

                con.Close()



                MessageBox.Show("Saved Successfully....")

            Catch ex As Exception

            MsgBox(ex.Message)

        End Try

            ts.Text = "تمت الإضافة بنجاح"

            fill_ds()

            NavigateRecords()

            MyCurrencyManager.Position = MyCurrencyManager.Count - 1

            record_count()

           btn_enable(True)



وهذا الكود للتعديل أو  الإيضاح

كود :

                       SavInto.CommandText = "INSERT INTO RENT_TBL(RENT_ID,RENTER_NO,RENTER_NAM,RENTER_CIV,RENT_ST,RENT_END,RENT_VAL,RENT_PAY,RENT_BLD,RENT_BLD_NO,UN_NO,UN_NAM,RENT_NOT)" & _

                         " values ('" & Me.TXT_ID.Text & "','" & Me.TXT_CON_NO.Text & "','" & Me.txt_renter.Text & "','" & Me.txt_civ.Text & "','" & Me.ST_DAT.Text & "','" & Me.EN_DAT.Text & "','" & Me.txt_val.Text & "','" & Me.txt_pay.Text & "'" & _

                         ",'" & Me.CMB_BULD.Text & "'," & Me.CMB_BULD.SelectedValue.ToString & "," & Me.cmp_flat.SelectedValue.ToString & "," & Me.cmp_flat.Text & ",'" & Me.TXT_NOTE.Text & "')"

لكن يا غالي .. بيني و بين نفسي لست مقتنعا بهذا الحل و بهذا الكود إطلاقا .. و لذلك صدقني كنت أحاول أن أجد لك طريقة أفضل من هذه .. و ما دمت قلقت .. تفضّل مشروعك .. و عند التوصل لما هو أفضل من طرفي أو من طرف السادة الأفاضل أكيد لن يبخلوا به عليك .. كملاحظة : لو كان مشروعي الخاص كنت قمت فورا بتغيير كل الكواد و محاولة تنظيمها