δημιουργία πίνακα stuinfo1
(
stuid int πρωτεύον κλειδί,
stuname varchar(10) δεν είναι άκυρο,
stusex char(2) check(stusex='αρσενικό' ή stusex='θηλυκό'),
Ημερομηνία Stubir
);
εισαγωγή στις τιμές stuinfo ('001','Zhang San','αρσενικό',to_date ('1999-1-1','εεεε-μμ-ηη'))·
εισαγωγή στις τιμές stuinfo («002», «Reese», «αρσενικό», to_date (1997-12-1», «εεεε-μμ-ηη»))·
εισαγωγή στις τιμές stuinfo («003», «Wang Wu», «θηλυκό», to_date («1995-3-4», «εεεε-μμ-ηη»))·
εισάγεται στις τιμές STUINFO («004», «χαχα», «αρσενικό», to_date (2000-7-5», «εεεε-μμ-ηη»))·
Εισαγωγή στις τιμές STUINFO («005», «χαχα», «αρσενικό», to_date («1993-7-5», «εεεε-μμ-ηη»))·
--Προκαθορισμένες εξαιρέσεις συστήματος
δηλώνουν
v_name stuinfo.stuname%type;
αρχίζω
επιλέξτε stuname σε v_name από το stuinfo.
--εξαίρεση
-- όταν too_many_rows τότε
-- dbms_output.put_line('Τα αποτελέσματα του ερωτήματος είναι περιττά, δεν μπορούν να εκχωρηθούν');
τέλος;
--εξαιρέσεις που ορίζονται από το χρήστη
δηλώνουν
money_error εξαίρεση.
money1 int := 1000;
money2 int :=&; ποσό μεταφοράς;
αρχίζω
αν money1-money2 < 0 τότε
raise_application_error (-20001, «Ανεπαρκές υπόλοιπο»)·
--αύξηση money_error.
αλλιώς
dbms_output.put_line('Επιτυχής μεταφορά');
τέλος αν?
--εξαίρεση
-- όταν money_error τότε
-- dbms_output.put_line('Ανεπαρκές υπόλοιπο');
τέλος;
--μη προκαθορισμένες εξαιρέσεις
δηλώνουν
εξαίρεση myerror;
pragma exception_init(myerror,-1);
αρχίζω
Εισάγεται στο STUINFO τιμές («001», «AA», «θηλυκό», to_date(«1995-3-4», «εεεε-μμ-ηη»))·
Εξαίρεση
όταν το myerror τότε
dbms_output.put_line('Παραβίαση του περιορισμού μοναδικότητας πρωτεύοντος κλειδιού');
τέλος;
Εισαγάγετε στο STUINFO1 τιμές (1,'SDF','Αρσενικό','');
Επιλέξτε * από TB1;
πτώση πίνακα TB1;
--Δυναμική SQL
αρχίζω
Εκτέλεση άμεσης «Δημιουργία πίνακα TB1(TID INT)».
τέλος;
δηλώνουν
sqlString varchar2(200);
tId int:=2;
αρχίζω
sqlString:='εισαγωγή σε τιμές tb1 (:1)';
εκτελέστε το immediate sqlString χρησιμοποιώντας το tId.
τέλος;
επιλέξτε * από το stuinfo.
--Έμμεσος δρομέας
αρχίζω
DBMS_OUTPUT. PUT_LINE('Πριν από την εισαγωγή:'|| SQL%ROWCOUNT);
ενημέρωση stuinfo set stusex = 'αρσενικό';
DBMS_OUTPUT. PUT_LINE('Μετά την εισαγωγή:'|| SQL%ROWCOUNT);
ΤΕΛΟΣ;
|
Δημοσιεύτηκε στις 19/3/2015 9:28:41 π.μ.
|
|
|
