<br /> Private Sub BtnDelete1_Click()<br /> SQL = "UPDATE (SELECT A.*,S.AO_ID From Asset A, ASSET_OPTION S"<br /> SQL = SQL + " Where A.AID = S.AID AND AO_ID= " & Text1.Text & ")"<br /> SQL = SQL + " SET BIT='TRUE' "<br /> RS.Open SQL, CON, 1, 2<br /> End Sub<br />
UPDATE (SELECT A.BIT,S.AO_ID FROM Asset A, ASSET_OPTION S WHERE A.AID = S.AID) D SET D.BIT='TRUE' WHERE D.AO_ID = (value)
SQL> desc asset Name Null? Type ----------------------------------------- -------- ------------ AID NOT NULL NUMBER(38) ASSET_NAME VARCHAR2(50) LOC_ID NUMBER(38) UNIT VARCHAR2(25) SUP_ID NUMBER(38) BIT NOT NULL VARCHAR2(5)SQL> desc asset_option Name Null? Type ----------------------------------------- -------- ------------ IDLE_SINCE_DATE DATE REASON_IDLE VARCHAR2(30) UTILIZED_PERIOD DATE FREE_ON_DATE DATE CURRENT_STATUS VARCHAR2(50) AID NUMBER(38) LOC_ID NUMBER(38) ESTIMATED_REPAIR_COST FLOAT(126) EXPECTED_VAL FLOAT(126) OFFER_RECEIVED FLOAT(126) AO_ID NOT NULL NUMBER(38) P_DATE DATE P_COST FLOAT(126)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)