Přístup na vzdálená data

Vzdálená data - skoro každý už o tom slyšel, ale ti začínající si kladou otázky:
- Jak na to ?
- Jaké tam jsou podrazy ?
- Vyplatí se to ?

• 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ů
• Použití ADO a OLE-DB

Na vzdálená data se dá přistupovat pomocí nativní vrstvy pro podporu ODBC ve VFP nebo pomocí objektů DAO a OLE-DB. V samotné VFP lze na RD přistupovat programově pomocí SPT (SQL Pass Through) či spojení a pohledy definovat visuálně v DBC konteineru.

Část první - Použití SPT a visuálního návrhu

Nebudu se zde zabývat jak visuálně definovat spojení a pohledy na RD, či otevírat spojení a tahat data pomocí SPT. Hodlám poukázat na rozdíly mezi visuálním návrhem a SPT a na různé špeky.

Obecné výhody visuálního návrhu:

• Veškeré informace jsou uloženy v DBC konteineru.
• VFP automaticky nastavuje vlastnosti spojení a pohledů, jež musejí být nastaveny před otevřením spojení či pohledu.
• VFP automaticky otevírá spojení s příslušným pohledem.

Obecné nevýhody visuálního návrhu:

• Veškeré informace jsou uloženy v DBC konteineru - některé údaje lze sice měnit, ale ne všechny.
• Nelze vytvářet složité SELECTy, či jiné jakékoliv SQL příkazy (programově ano, avšak editováním se tyto informace ztratí).

Obecné výhody SPT:

• Spojení ,pohledy a SQL příkazy lze za běhu vytvářet a provádět.

Obecné nevýhody SPT:

• Veškeré informace se musejí odněkud brát.

1) Definice spojení

1a) Obecný popis:
Definice spojení mezi visuálním návrhem a SPT se nijak neliší. V obou případech se lze odkazovat na DSN či přímo definovat ConnectString. V samotném ConnectString-u lze definovat DSN nebo přímo ODBC driver.

Spojení uložené v DBC konteineru lze otevřít pomocí funkce SQLCONNECT(), kde se jako parametr použije název spojení v DBC konteineru.

Spojení přes SPT se otevírá pomocí funkcí

• SQLCONNECT(), kde jako první parametr je název DSN, druhým parametrem je ID uživatele a jako třetí parametr je heslo uživatele.
• SQLSTRINGCONNECT(), kde jako parametr je řětězec tzv. ConnectString. Tento řetězec určuje zdroj dat (pomocí DSN či názvu ODBC driveru), uživatele, databázi atd. Přesný popis elementů je popsán v helpu k příslušnému ODBC driveru.

* Otevření spojení z DBC konteineru
LOCAL lihdbc
lihdbc=SQLCONNECT("MOJE_SPOJENI_V_DBC_KONTEINERU")

* Otevření spojení přes SPT
lihdbc=SQLCONNECT("MOJE_DSN","Uziv1","heslo1")

* Otevření spojení přes SPT pomocí definovaného ConnectStringu přes DSN
lihdbc=SQLSTRINGCONNECT("DSN=MOJE_DSN;uid=Uziv1;pwd=Heslo1;")

* Otevření spojení přes SPT pomocí definovaného ConnectStringu přes určení ODBC driveru
lihdbc=SQLSTRINGCONNECT("driver={Microsoft Access driver (*.mdb)};dbq=rdatab.mdb;uid=Uziv1;pwd=Heslo1")

• server - Název SQL serveru.
• database - Název databáze na SQL serveru.

• connectstring - jméno instance databáze nebo její kompletní určení.

• DBA - Atribut databáze RO/RW.

• DriverID - ID driveru.

1c) Batch processing (provedení více SQL příkazů pomocí funkce SQLEXEC()):
1ca) Vlastnost BatchMode = .T.
  Pokud proběhly všechny SQL příkazy v pořádku, funkce SQLEXEC() 1. Pokud jsou v SQL příkazu pouze SELECTy pak, vrátí počet provedených SELECTů (nebo vytvořených VFP kurzorů).

* Vyvolání dvou SELECTů najednou
SQLEXEC(1,"SELECT * FROM XXT001;SELECT * FROM XXT002","test")

* Vyvolání dvou UPDATEů najednou
SQLEXEC(1,"UPDATE XXT001 SET XX002 = 0 WHERE XX001='A';UPDATE XXT002 SET XX002 = 0 WHERE XX001='B'")

1d) Asynchronní/Synchronní provoz:
Pokud nedošlo ke zmeně vlastnosti Asynchronous na 0. spojení (DE,Runtime), nebo ke změně nastavení VFP (DE), pak je spojení otevíráno v režimu synchronním. Velice dobrý popis rozdílů mezi asynchronním a synchronním režimem je v samotném helpu VFP.

Synchronní režim se používá pokud je potřeba co nejrychleji vykonat SQL příkaz a nevadí, že po tu dobu bude aplikace zablokovaná.
Funkce SQLEXECUTE() či SQLMORERESULT() vrací 1 pokud nic neselhalo, -1 pokud selhal SQL příkaz či -2 pokud došlo k chybě na úrovni spojení.

Asynchronní režim se používá pokud je potřeba postupně načítat data na pozadí či na požádání nebo spouštět naráz více SQL příkazů na různých spojení (všechna musí být v asynchronním režimu).
Funkce SQLEXECUTE() vrací 0 dokud není SQL příkaz komletně vykonán, 1 pokud je SQL příkaz kompletně vykonán a nic neselhalo, -1 pokud selhal SQL příkaz či -2 pokud došlo k chybě na úrovni spojení (chování fukce SQLMORERESULT() je popsáno v části 1c) Batch processing).

1e) Transakce:
Standardně jsou na spojení nastaveny automatické transakce, to znamená, že po vykonaní každého příkazu INSERT,UPDATE či DELETE jsou změny nevratné.Pokud by bylo potřeba jednu větu větu založit, další opravit a smazat nějaký blok dat a při selhání jednoho z oněch příkazů vrátit zpět původní stav, pak se musí nastavit na spojení ruční transakce.

* Spojení je už otevřeno, v synchronním režimu
=SQLSETPROP(lihdbc,"Transactions",2) && Nastav ruční transakce

* Proveď INSERT,UPDATE,DELETE
liErr=SQLEXEC(lihdbc,"INSERT INTO XXT001 (XX001,XX002) VALUES ('AAAA','BBBBB')")
IF liErr=1
   liErr=SQLEXEC(lihdbc,"UPDATE XXT001 SET XX002='BBBBB'  WHERE XX001='AAAA'")
ENDIF
IF liErr=1
   liErr=SQLEXEC(lihdbc,"DELETE FROM XXT001 WHERE XX001='AAAA'")
ENDIF
* Pokud došlo k chybě musí se vrátit změny
IF liErr<0
   =SQLROLLBACK(lihdbc)
ELSE
   * Jinak se musejí potvrdit
   liErr=SQLCOMMIT(lihdbc) && i tato funkce může vrátit -1 nebo -2
   IF liErr#1
      * Zatím se mi nestalo, že by to takhle dopadlo, takže je to tady jen pro jistotu
      =SQLROLLBACK(lihdbc)
   ENDIF
ENDIF
* Nastavení automatických transakcí
=SQLSETPROP(lihdbc,"Transactions",1)

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 - -