A.Dim ADOcn As New Connection B.Dim ADOcn As Connection C.Declare ADOcn As New Connection D.Declare ADOcn As Connection
A.Connection B.Update C.Command D.Recordset
A.ADOcn.Execute "UPATE FROM SC WHERE 學(xué)號 = ’A30’ " B.ADOcn.Execute "SELECT FROM SC WHERE 學(xué)號 = ’A30’ " C.ADOcn.Execute "DELETE FROM SC WHERE 學(xué)號 = ’A30’ " D.ADOcn.Execute "DROP FROM SC WHERE 學(xué)號 = ’A30’ "