13-01-19, 04:04 AM
تظهر لي رسالة اثناء عملية الحفظ ولا أفهم معناها
مع العلم ان الكود يعمل معي في شاشات أخرى
مرفق صورة للرسالة
مع العلم ان الكود يعمل معي في شاشات أخرى
مرفق صورة للرسالة
كود :
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)
وهذا الكود للتعديل أو الإيضاح