Profox > Forum

Forum Home

Visual FoxPro

Client/Server

Buna tututror!...

Buna tututror!

6/6/2010 3:41:35 AM

IONY

51 posts

Buna tututror!
(N/A)

Salutare! Ma poate ajuta cineva cu urmatoarea problema!
Am o baza de date firebird cu 2 utilizatori unu are drept de insert pe o tabele celalat nu, cum as putea din fox pro in momentul cand fac un sqlexe cu utilizatorul care nu are drept de acces la insert sa imi intoarca o eroare din firebird iar eu sa o pot trata si expune intr-un mesaj de genul 'nu aveti acest drept'

6/6/2010 11:36:08 AM

costin_mentor

483 posts

www.accessoft.ro

Re: Buna tututror!
(N/A)

Testeaza ce mesaj de eroare primesti cu aerror .Codul de eroare pe care il primesti de la Firebird cand nu ai acces de scriere este -551. Uite un exemplu mai jos :

*!* AERROR(2)= mesaj eroare vfp || 3 = mesaj eroare ODBC || 4 = ODBC stare curenta ||
*!* 5 = Numar eroare returnat de ODBC 6 = ODBC conexiune handle

if AERROR(aErrorArray)>0 && Data from most recent error
DO case
CASE aErrorArray(1)=1526 && When an ODBC error numbered 1526 occurs
DO case
CASE aErrorArray(5)=-836 && a fost "aruncata" o exceptie de catre Firebird
=MESSAGEBOX(STREXTRACT(aErrorArray(3),"~","~")+CHR(13)+'Tabela : ' +ALLTRIM(ctabela)+', am renuntat!',48,'Atentie!')
CASE aErrorArray(5)=-803 && Violation of primary or unique key constraint // attempt to store duplicate value in unique index
=MESSAGEBOX('Incercare de introducere valori duplicate incorecte in tabela '+ALLTRIM(ctabela)+', am renuntat!',48,'Atentie!')
CASE aErrorArray(5)=-530 && Foreign key references are present for the record
=MESSAGEBOX('Nu puteti sterge inregistrarea curenta, aveti inregistrari copil! '+CHR(13)+;
'Inregistrare copil fara inregistrare parinte aferenta !'+CHR(13)+;
' Am renuntat!',48,'Atentie!')
CASE aErrorArray(5)=-913
=MESSAGEBOX('Un alt utilizator editeaza aceasta inregistrare in tabela ' +ALLTRIM(ctabela)+', am renuntat la modificari!')
CASE aErrorArray(5)=-551
=MESSAGEBOX('Nu aveti acest drept ')
OTHERWISE
ENDCASE
otherwise
ENDCASE
ENDIF

Page 1 of 1

Visual FoxPro

Client/Server

Buna tututror!...