Вопросы Теги

Свойства доступа MS

Шаг 1. Добавьте null=True в поле tech_lead как 

class Application(models.Model):
    assessment_owner = models.ForeignKey(User, related_name='assessment_owner')
    creator = models.ForeignKey(User, related_name='creator')
    tech_lead = models.ForeignKey(User, related_name='tech_lead', null=True)

Шаг 2. Создайте файл миграции с помощью python manage.py makemigrations [ 1116]

Шаг 3. перенести db python manage.py migrate

Шаг 4. открыть оболочку django, [1118 ] python manage.py shell

Шаг 5. Запустите следующий скрипт 

from your_app.models import Application
from django.db.models.expressions import F

Application.objects.filter(tech_lead__isnull=True).update(tech_lead=F('assessment_owner'))
7
задан Curtis Inderwiesche 31 March 2009 в 15:34
поделиться

4 ответа

Я не полагаю, что где угодно существует список. Tho, свойство Properties является набором. Можно выполнить итерации по ним и получить все, что те связали. Необходимо было бы сделать это все версии Доступа MS, которым Вы интересуетесь. Для дальнейшего разъяснения, почти все внутренние объекты, например, таблицы, поля, запросы, и т.д. имеют свойства. Свойства полей особенно полезны, поскольку можно присвоиться, как Каналы доступа MS и отображают поле пользователю.

10
ответ дан 6 December 2019 в 08:45
поделиться

Существует набор свойств:

Sub ListProps()
    For i = 0 To CurrentDb.Properties.Count - 1
        Debug.Print CurrentDb.Properties(i).Name
    Next
End Sub
7
ответ дан 6 December 2019 в 08:45
поделиться

Трудно найти такую информацию.

Я действительно находил ссылку здесь для определенных Доступом свойств DAO

3
ответ дан 6 December 2019 в 08:45
поделиться

Можно? :) 

Option Compare Database
Option Explicit

Private Sub btnShowDbProps_Click()
On Error GoTo Err_btnShowDbProps_Click

  Dim prp As DAO.Property
  Dim dbs As Database
  Dim strProps As String

  Set dbs = CurrentDb

  For Each prp In dbs.Properties
    Dim propval As String
    propval = "<not defined>"

    On Error Resume Next
    propval = CStr(prp.value)

    If propval = vbNullString Then propval = "<empty>"

    strProps = strProps & prp.Name & "=" & propval & " (" & PropertyType(prp.Type) & ")" & vbNewLine
    Debug.Print strProps
  Next

  MsgBox strProps

Exit_btnShowDbProps_Click:
    Exit Sub

Err_btnShowDbProps_Click:
    MsgBox Err.Description
    Resume Exit_btnShowDbProps_Click

End Sub

Function PropertyType(intType As Integer) As String

   Select Case intType
      Case dbBoolean
         PropertyType = "dbBoolean"
      Case dbByte
         PropertyType = "dbByte"
      Case dbInteger
         PropertyType = "dbInteger"
      Case dbLong
         PropertyType = "dbLong"
      Case dbCurrency
         PropertyType = "dbCurrency"
      Case dbSingle
         PropertyType = "dbSingle"
      Case dbDouble
         PropertyType = "dbDouble"
      Case dbDate
         PropertyType = "dbDate"
      Case dbText
         PropertyType = "dbText"
      Case dbLongBinary
         PropertyType = "dbLongBinary"
      Case dbMemo
         PropertyType = "dbMemo"
      Case dbGUID
         PropertyType = "dbGUID"
      Case Else
         PropertyType = "Unknown:" & intType
   End Select

End Function
1
ответ дан 6 December 2019 в 08:45
поделиться