Announcement
Collapse
No announcement yet.
Unconfigured Ad Widget
Collapse
Boriat :(
Collapse
X
-
Re: Boriat :(
Originally posted by fari View Postboriyat ka best hal ama jani aur sis ko tang karna unse gappain marna 372-hahaunki watt lagana naqal utar kar unki:khi:mophali khana ya phir chilgozay:khi:
kisi din u ki behn ne bore hojana he to u ki watt laga deni he372-haha
Comment
-
Re: Boriat :(
Originally posted by Bint E Aadam View PostAs Salam-o-Alaykum
ham pir e kamil novel kayi baar ka parha hua phir aprhte ahin ya digest ham sanmbhal ekr rkahte ahin dher laga hoa haio woh aprhte ahin ya kitchen mag s ekoi dish nikal ker bnanay ka sochte hain ya phir toton se gap shap :-)
Comment
-
Re: Boriat :(
Originally posted by MSA View Postghar k lawn ka chakara lagya
lawn thunda tha mein under chala aaya...:lol
chae bana k pi...lekin phir bhi boriat wahi ki wahi khari huns rahi he:donno:
Comment
-
Re: Boriat :(
Originally posted by MSA View PostAssalam o Alaikum....
Tamam Dekhti Aankho aur Sunte kano walo k lie meri shub'kamnaein...:hehe:
pochna yeh tha k app log boriat me kia kurete hein....- jub light na ho...:(
- jub cable ki light na ho
- jub net na lug raha ho...:pagal:
- jub koi online na ho...:embarasse
- jub sms ka credit na ho...:mm:
- jub neend bhi na aarahi ho...
- jub kahen ghomne ka mood bhi na ho raha ho...
- aur jitne bhi options ho wo sub bbund ho tub.....:tasali:
to jub yeh sub kam aik sath ho rahe hon to app kia kurte hien...boriat kaisi khatam kurte hein....:donno:
PROCEDURE ins_upd_emp_dept IS
LN$Dummy PLS_INTEGER := 0 ;
BEGIN
-- Table DEPT --
Begin
Select 1
Into LN$Dummy
From DUAL
Where exists( select deptno from dept where deptno = :EMP_DEPT.DEPTNO ) ;
-- Found -> update --
Message('Update DEPT table');
UPDATE DEPT
SET DNAME = :EMP_DEPT.DNAME
WHERE DEPTNO = :EMP_DEPT.DEPTNO ;
Exception
When no_data_found Then
-- Not found -> insert --
Message('Insert into DEPT table');
INSERT INTO DEPT ( DEPTNO, DNAME )
VALUES ( :EMP_DEPT.DEPTNO, :EMP_DEPT.DNAME ) ;
End ;
-- Table EMP --
Begin
Select 1
Into LN$Dummy
From DUAL
Where exists( select empno from emp where empno = :EMP_DEPT.EMPNO ) ;
-- Found -> update --
Message('Update EMP table');
UPDATE EMP
SET ENAME = :EMP_DEPT.ENAME
WHERE EMPNO = :EMP_DEPT.EMPNO ;
Exception
When no_data_found Then
-- Not found -> insert --
Message('Insert into EMP table');
INSERT INTO EMP ( EMPNO, ENAME )
VALUES ( :EMP_DEPT.EMPNO, :EMP_DEPT.ENAME ) ;
End ;
END;:alhamd::SubhanAllhaa::alhamd::jazak::insha:
Comment
-
شاہ حسین جیہناں سچ پچھاتا' کامل عِشق تیہناں دا جاتا
Comment
-
Re: Boriat :(
Originally posted by senorita View Postumeed he ab tak ap ki light achuki ho gi,net on ho gya ho ga,mobile charge ho gya ho ga or boryeta khatam ho gai ho gi:D:
ajj bhi net nahi laga...light bhi gai...mobile bhi ghar pe tha...:hehe:
Originally posted by sky angle View Postto main fm sunti hu
ya
kuch parh leti hu:lpop:
Comment
-
Re: Boriat :(
Originally posted by rehman View Postjab mein bor hota hoon tu yeh code parhta hoon....
PROCEDURE ins_upd_emp_dept IS
LN$Dummy PLS_INTEGER := 0 ;
BEGIN
-- Table DEPT --
Begin
Select 1
Into LN$Dummy
From DUAL
Where exists( select deptno from dept where deptno = :EMP_DEPT.DEPTNO ) ;
-- Found -> update --
Message('Update DEPT table');
UPDATE DEPT
SET DNAME = :EMP_DEPT.DNAME
WHERE DEPTNO = :EMP_DEPT.DEPTNO ;
Exception
When no_data_found Then
-- Not found -> insert --
Message('Insert into DEPT table');
INSERT INTO DEPT ( DEPTNO, DNAME )
VALUES ( :EMP_DEPT.DEPTNO, :EMP_DEPT.DNAME ) ;
End ;
-- Table EMP --
Begin
Select 1
Into LN$Dummy
From DUAL
Where exists( select empno from emp where empno = :EMP_DEPT.EMPNO ) ;
-- Found -> update --
Message('Update EMP table');
UPDATE EMP
SET ENAME = :EMP_DEPT.ENAME
WHERE EMPNO = :EMP_DEPT.EMPNO ;
Exception
When no_data_found Then
-- Not found -> insert --
Message('Insert into EMP table');
INSERT INTO EMP ( EMPNO, ENAME )
VALUES ( :EMP_DEPT.EMPNO, :EMP_DEPT.ENAME ) ;
End ;
END;
Comment
Comment