Жазбалар жиынының сипаты

Бұл сипат төмендегі нысандарға қолданылады

Тізімді өріс нысаны

Пішін нысаны

Тізім нысаны

Есеп нысаны

Пішін, есеп, тізімді басқару немесе тізімді өрісті басқару үшін арналған жазба көзі ретінде қолданылатын ADO Жазбалар жиыны немесе DAO Жазбалар жиыны нысанын қайтару не орнату үшін. Оқу және жазу.

өрнек.Жазбалар жиыны

өрнек Міндетті. Қолдану тізіміндегі нысандардың біреуін қайтаратын өрнек.

Ескерімдер

Бұл сипатты DAO нысанында ODBC Тікелей жазбалар жиыны түрлерімен пайдалана алмайсыз.

Жазбалар жиыны сипаты пішін, есеп, тізімді басқару элементі немесе тізімді өрісті басқару элементінде жолы көрсетіліп тұрған деректерді ұсынатын жазбалар жиынын қайтарады. Пішін сұрауға негізделген болса, мысалы, Жазбалар жиыны сипаты Жазбалар жиыны нысанының көшірмесін бірдей сұрау арқылы жасау нәтижесінде жасалады. Алайда, Жазбалар жиынының көшірмесін жасау сипатын пайдаланудан айырмасы, пішіннің Жазбалар жиыны сипаты қайтаратын жазбалар жиынында оның жазбасын өзгерту ағымдық болады, сонымен қатар бұл сипат пішіннің ағымдық жазбасын орнатады.

Бұл сипат Бағдарламаларға арналған Visual Basic (VBA) кодын пайдалану арқылы ғана қатынаулы.

Сипаттың таныған жазбалар жиынындағы деректер түрі (Access немесе SQL) және жазбалар жиыны (ADO немесе DAO) Жазбалар жиыны сипатының оқу және жазу күйін анықтайды.

Жазбалар жиынының түрі

SQL деректеріне негізделген

Access деректеріне негізделген

ADO

Оқу және жазу

Оқу және жазу

DAO

N/A

Оқу және жазу

Төмендегі мысал пішінді ашып, жазбалар жиынын ашып, одан кейін пішіннің Жазбалар жиыны сипатын жасалған жаңа Жазбалар жиыны нысанына орната отырып, пішінді жазбалар жиынына байланыстырады.

Global rstSuppliers As ADODB.RecordsetSub MakeRW()DoCmd.OpenForm "Suppliers"Set rstSuppliers = New ADODB.RecordsetrstSuppliers.CursorLocation = adUseClientrstSuppliers.Open "Select * From Suppliers", _CurrentProject.Connection, adOpenKeyset, adLockOptimisticSet Forms("Suppliers").Recordset = rstSuppliersEnd Sub

Жазбалар жиыны сипатын пайдаланыңыз:

  • Бірнеше пішінді жалпы деректер жиынына байланыстыру. Бұл бірнеше пішіндерді үндестіруге рұқсат етеді. Мысалы,

    Set Me.Recordset = Forms!Form1.Recordset

  • Пішінде тікелей қолданылмайтын Жазбалар жиыны нысанымен бірге тәсілдерді пайдалану. Мысалы, жазбаны табу үшін таңдамалы тілқатысуда ADO Іздеу немесе DAO Іздеу әдістері бар Жазбалар жиыны сипатын пайдалана аласыз.

  • Бірнеше пішінге әсер ететін өзгертулер жиынының ішінде бірізді амалдар (кері қайтара алатын ) тасымалдау.

Пішіннің Жазбалар жиыны сипатын өзгерту Жазба көзі, Жазбалар жиынының түрі мен Жазбаларды құрсаулау сипаттарын да ауыстыруы мүмкін. Сонымен қатар, кейбір деректерге қатысты сипаттарды елемеу орын алуы мүмкін, мысалы, Сүзгі, Қосылған сүзгі, Реті бойынша мен Қосылған реті бойынша сипаттары.

Пішіннің жазбалар жиынының (мысалы, Forms(0).Recordset.Requery) Жаңғырту әдісін шақыру пішіннің байланыстырылатындығына әкеліп соға алады. Жазбалар жиынына байластырылған пішіндегі деректерді жаңарту үшін, пішіннің Жазбалар көзі сипатын өзінің (Forms(0).RecordSource = Forms(0).RecordSource) сипатына орнатыңыз.

Пішін жазбалар жиынына байланыстырылғанда, Сүзгіні Пішін пәрмені сияқты пайдалансаңыз, қате шығады.

Мысалы

Төмендегі мысал Жазбалар жиыны нысанының жаңа көшірмесін ағымдық пішіннен жасау үшін Жазбалар жиыны сипатын пайдаланып, өрістердің аттарын Жөндеу терезесінде басып шығарады.

Sub Print_Field_Names()
Dim rst As DAO.Recordset, intI As Integer
Dim fld As Field
Set rst = Me.Recordset
For Each fld in rst.Fields
' Print field names.
Debug.Print fld.Name
Next
End Sub

Төмендегі мысал жазбалар жиыны мен пішіннің ағымдық жазбасын үндестіру үшін Жазбалар жиыны сипаты мен Жазбалар жиыны нысанын пайдаланады. Компанияның атауы тізімді өрістен таңдалған кезде, бұл компания туралы жазбаны табу үшін Біріншіні табу тәсілі пайдаланылып, табылған жазбаны пішінде көрсетеді.

Sub SupplierID_AfterUpdate()
Dim rst As DAO.Recordset
Dim strSearchName As String
Set rst = Me.Recordset
strSearchName = CStr(Me!SupplierID)
rst.FindFirst "SupplierID = " & strSearchName
If rst.NoMatch Then
MsgBox "Record not found"
End If
rst.Close
End Sub

Төмендегі код жазбалар жиынының түрінің түрлі жағдайларда Жазбалар жиыны сипатымен қайтарылатындығын анықтауға көмектеседі.

Sub CheckRSType()
Dim rs as Object
Set rs=Forms(0).Recordset
If TypeOf rs Is DAO.Recordset Then
MsgBox "DAO Recordset"
ElseIf TypeOf rs is ADODB.Recordset Then
MsgBox "ADO Recordset"
End If
End Sub
Дағдыларды жетілдіру
Оқыту курсымен танысыңыз
Жаңа мүмкіндіктерге бірінші болып қол жеткізу
Office Insider бағдарламасына қосылу

Осы ақпарат пайдалы болды ма?

Пікіріңіз үшін рақмет!

Пікіріңізге рақмет! Сізді Office қолдау көрсету қызметіндегі агенттердің бірімен байланыстырған жөн болуы мүмкін.

×