Přístup na vzdálená data pohledy,SQL příkazy

Pohledy a SPT. Co s tím ?

• Použití SPT a visuálního návrhu
• 1) Definice spojení
  • 1a) Obecný popis
  • 1b) Vlastnosti spojení
  • 1c) Batch processing
  • 1d) Asynchronní/Synchronní provoz
  • 1e) Transakce
• 2) Definice pohledů a SQL příkazů
  • 2a) Obecný popis
  • 2b) Vlastnosti pohledu
  • 2c) Updateovací pohledy
  • 2d) Parametrizované pohledy a SQL příkazy
  • 2e) Volání uložených procedur
• Použití ADO a OLE-DB

2) Definice pohledu (SQL příkazu)

2a) Obecný popis:
Definice pohledů mezi visuálním návrhem a SPT se opět nijak výrazně neliší. Rozdíl je pouze v tom, že pohled definovaný v DBC konteineru (a otevíraný pomocí příkazu USE) si automaticky otevírá spojení na vzdálená data. Kdežto pro pohled (SQL příkaz) SPT se musí spojení nejdříve otevřít.

2c) Updateovací pohledy:

Updateovací pohledy jsou výhodné, neboť dělají spoustu věcí za programátora.

• Automatická kontrola změn v datech vůči datovému serveru.
• Automatická tvorba SQL příkazů INSERT,UPDATE,DELETE
  (Příkaz UPDATE je tvořen i dle to v jakých položkách došlo ke změnám hodnot vůči VFP bufferu).
• Možnost aktualizovat více vět a tyto změny uložit najednou - použitím vlastností BatchUpdateCount a Buffering
  (Zlí jazykové tvrdí, že to nefunguje. Mají pravdu. Již při použití Buffering=5 se neuloží všechny změny. Při nastavení vlastnosti BatchUpdateCount>1 snad nedochází k uložení změn vůbec. Testováno na VFP 6.0 SP4 ).

LOCAL lihdbc,lcAlias
lcAlias=SYS(2015)
lihdbc=SQLSTRINGCONNECT("DSN=MOJE_DSN;uid=Uziv1;pwd=Heslo1;")
=SQLEXEC(lihdbc,"SELECT XX000,XX001,XX002,XX003 AS XX00X FROM XXT000",lcAlias)
=CURSORSETPROP("KeyFieldList","XX000",lcAlias)
=CURSORSETPROP("Tables","XXT000",lcAlias)
=CURSORSETPROP("UpdatableFieldList","XX000,XX001,XX002,XX00X",lcAlias)
=CURSORSETPROP("UpdateNameList","XX000 XXT000.XX000, XX001 XXT000.XX001, XX002 XXT000.XX002, XX00X XXT000.XX003",lcAlias)
=CURSORSETPROP("SendUpdates",.T.,lcAlias)

* Nyní se můžou provádět změny v datech VFP kurzoru, které budou automaticky/ručně promítnuty na datový server.

• .F., pokud vlastnost WhereType má hodnotu 2 nebo 3
  (kontrola probíhá na PK a položky uvedené ve vlastnosti UpdatableFieldList nebo PK a změněné položky)
• .F./.T, pokud vlastnost WhereType má hodnotu 1 nebo 4
  (kontrola probíhá na PK nebo na PK a TimeStamp)

2d) Parametrizované pohledy a SQL příkazy:

VFP přímo podporuje parametrizované pohledy/SQL příkazy. Používá se pro to konvence: Položka=?pPoložka kde "pPoložka" je proměnná ve které je požadovaná hodnota. Znak "?" slouží pro určení, že se jedná o parametr.
Stačí nastavit novou hodnotu dané proměnné a provést znovu načtení dat. Pohledy v DBC konteineru se znovunačtou pomocí funkce REQUERY(), SQL příkazy se musejí znovu spustit.
Pokud "hrozí", že daný pohled/SQL příkaz bude spouštěn vícekrát během krátké doby pak u pohledu je vhodné nastavit vlastnost Prepared, SQL příkaz lze přepřipravit nastavením vlastnosti Prepared na nultém spojení, či použitím funkce SQLPrepare().

Výsledný kód by tedy vypadal takto:

LOCAL lihdbc,lcAlias,lcXX001
lcAlias=SYS(2015)
lihdbc=SQLSTRINGCONNECT("DSN=MOJE_DSN;uid=Uziv1;pwd=Heslo1;")
=SQLPREPARE(lihdbc,"SELECT XX000,XX001,XX002,XX003 AS XX00X FROM XXT000 WHERE XX001 LIKE ?lcXX001",lcAlias)

lcXX001="%TEST%"
* Pak už jen stačí
=SQLEXEC(lihdbc,"SELECT XX000,XX001,XX002,XX003 AS XX00X FROM XXT000 WHERE XX001 LIKE ?lcXX001",lcAlias)

* Nebo
=SQLEXEC(lihdbc)


* Nyní se může změnit hodnota vstupního parametru a znova zavolat
lcXX001="%ABC%"
=SQLEXEC(lihdbc,"SELECT XX000,XX001,XX002,XX003 AS XX00X FROM XXT000 WHERE XX001 LIKE ?lcXX001",lcAlias)

2e) Volání uložených procedur:

Slovníček pojmů a zkratek:
ConnectString - - Spojovací řetězec , jehož některé elementy můžou být specifické pro určitý ODBC driver, ale většina odpovídá standardu ODBC
ODBC driver - - Specifický driver pro konkrétní datový zdroj
DSN - Data Source Name - Název datového zdroje definovaného v ODBC manažeru
DAO - Data Access Object - Objektové rozhraní pro přístup k RD
SPT - -viz SQL Pass Through
SQL Pass Through - - Technologie pro vykonaní nativních příkazů pro datový server
ODBC - Open database connectivity - Univerzální rozhraní pro přístup k různým datovým zdrojům
RD - - Vzdálená data
DE - Developmen Environment - Vývojové prostředí
Runtime - -
OLE-DB - -
ADO - -