Promotic
WikipediaLinkedInYoutubeTwitterFacebook

ReadFieldValues - vlastnost objektu PmDatabase

Popis:
Vlastnost představuje hodnotu aktuálního řádku (určeného například voláním metody Move) a daného sloupce tabulky (určeného parametrem vField).
Syntaxe:
ReadFieldValues([vField As Variant]) As Variant
Volání:
x = oDb.ReadFieldValues(vField)
Parametry:
vField[nepovinné] (Variant) Název sloupce tabulky nebo jeho index (indexováno od 0). Pokud není nastaveno, pak vlastnost čte celý řádek tabulky/zapisuje do celého řádku tabulky proměnnou typu Array (pole).
Poznámka:
Vlastnost je určena jen pro čtení. Pokud je touto vlastností čtena z tabulky 'prázdná hodnota' (<Null>), pak lze definovat metodou SetNullValue náhradní hodnotu, která bude vrácena místo této prázdné hodnoty. Tato náhradní hodnota je platná až do příštího volání SetNullValue.
Příklad1:
VBScriptVyber a zkopíruj do schránky

Dim x, oDb
Set oDb = pMe.Pm("/Database0")

If oDb.IsOpen() Then
  'čtení ze sloupce s názvem "column1" prvního řádku tabulky
  oDb.MoveFirst
  x = oDb.ReadFieldValues("column1")
  Pm.Debug x

  'čtení z 1. sloupce 2. řádku tabulky
  oDb.MoveNext
  x = oDb.ReadFieldValues(0)
  Pm.Debug x

  'zápis do 3. sloupce 2. řádku tabulky
  x = 100
  oDb.ReadFieldValues(2) = x
  Pm.Debug x
End If
Příklad2:
Zápis do více sloupců v 1. řádku tabulky pomocí metody Edit. V tom případě je to lepší způsob, než nastavovat vlastnost ReadFieldValues opakovaně samostatně bez Edit.
VBScriptVyber a zkopíruj do schránky

If oDb.IsOpen() Then
  oDb.MoveFirst
  oDb.Edit
  oDb.FieldValues(0) = 1
  oDb.FieldValues(1) = 12
  oDb.FieldValues(2) = "Text"
  oDb.Update
End If
Příklad3:
Zápis do více sloupců v prvním řádku tabulky pomocí Array (pole) hodnot.
VBScriptVyber a zkopíruj do schránky

If oDb.IsOpen() Then
  Dim arr
  arr = Array(1, 12, "Note")
  oDb.MoveFirst
  oDb.FieldValues = arr
End If
© MICROSYS, spol. s r. o.Tavičská 845/21 703 00 Ostrava-Vítkovice